Help for this page

Select Code to Download


  1. or download this
    >type test.pl && perl -MO=Concise,-exec test.pl 2>&1 | find "proto"
sub with_proto()  { 4 }
...

                                 <---- Note absence of "with_proto"
5  <#> gv[*without_proto] s      <---- Not constant
  2. or download this
    >type test.pl && perl -MO=Concise,-exec test.pl 2>&1 | find "proto"
sub with_proto()  { my $lex }
...

i  <#> gv[*with_proto] s         <---- Not constant
m  <#> gv[*without_proto] s      <---- Not constant
  3. or download this
    >type test.pl && perl -MO=Concise,-exec test.pl 2>&1 | find "proto"
sub with_proto()  { \my $lex }
...

i  <#> gv[*with_proto] s         <---- Not constant
m  <#> gv[*without_proto] s      <---- Not constant
  4. or download this
    >type test.pl && perl -MO=Concise,-exec test.pl 2>&1 | find "proto"
sub with_proto()  :lvalue { my $lex }
...

i  <#> gv[*with_proto] s
m  <#> gv[*without_proto] s