This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add __FILE__ and its minions to perlfunc
authorFather Chrysostomos <sprout@cpan.org>
Mon, 8 Aug 2011 15:46:22 +0000 (08:46 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 12 Aug 2011 16:11:25 +0000 (09:11 -0700)
This takes the place of documenting __FILE__() syntax.  By adding
these to perlfunc, they are covered by the description of the syntax
at the top of perlfunc.  Hopefully this will appease those who think
we should not be teaching it to new bees.

pod/perlfunc.pod

index 062f0f2..264fbdc 100644 (file)
@@ -162,7 +162,8 @@ C<umask>, C<unlink>, C<utime>
 X<control flow>
 
 C<caller>, C<continue>, C<die>, C<do>, C<dump>, C<eval>, C<exit>,
-C<goto>, C<last>, C<next>, C<redo>, C<return>, C<sub>, C<wantarray>
+C<__FILE__>, C<goto>, C<last>, C<__LINE__>, C<next>, C<__PACKAGE__>,
+C<redo>, C<return>, C<sub>, C<wantarray>,
 
 =item Keywords related to the switch feature
 
@@ -1983,6 +1984,11 @@ on your own, though.
 
 Portability issues: L<perlport/fcntl>.
 
+=item __FILE__
+X<__FILE__>
+
+A special token that returns the name of the file in which it occurs.
+
 =item fileno FILEHANDLE
 X<fileno>
 
@@ -2967,6 +2973,11 @@ characters, not physical bytes.  For how many bytes a string encoded as
 UTF-8 would take up, use C<length(Encode::encode_utf8(EXPR))> (you'll have
 to C<use Encode> first).  See L<Encode> and L<perlunicode>.
 
+=item __LINE__
+X<__LINE__>
+
+A special token that compiles to the current line number.
+
 =item link OLDFILE,NEWFILE
 X<link>
 
@@ -4577,6 +4588,11 @@ On systems that support a close-on-exec flag on files, that flag is set
 on all newly opened file descriptors whose C<fileno>s are I<higher> than 
 the current value of $^F (by default 2 for C<STDERR>).  See L<perlvar/$^F>.
 
+=item __PACKAGE__
+X<__PACKAGE__>
+
+A special token that returns the name of the package in which it occurs.
+
 =item pop ARRAY
 X<pop> X<stack>