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