Help for this page

Select Code to Download


  1. or download this
    use 5.010;
sub f {
...
__END__
CODE(0x18cede8)
CODE(0x18cede8)
  2. or download this
    use 5.010;
sub f {
...
__END__
CODE(0x1d5cde8)
CODE(0x1d5cf98)
  3. or download this
    perl -MO=Concise,f -e 'sub f { my $x = shift; sub () { $x } };'
main::f:
...
6              <0> pushmark sRM ->7
7              <$> anoncode[CV ""] lRM ->8
-e syntax OK