Help for this page

Select Code to Download


  1. or download this
    $\=$/;
sub tst { print shift }
sub ptst(&) { print shift }
...
sub ff { tst sub {1, 2, 3,} } ff for (1..3);
sub ff { print sub {1, 2, 5,} } ff for (1..3);
sub ff { ptst {1, 2, 4,} } ff for (1..3);
  2. or download this
      
  DB<1> $\=$/;

...
CODE(0x2d1c8a0)
CODE(0x2d1c930)
CODE(0x2d1c8e8)
  3. or download this
    $\=$/;
sub ptst(&) { print shift }
sub ff {ptst {1, 2, 3, 4,} } ff for (1..3);
ptst {1, 2, 3, 4,};
  4. or download this
    CODE(0x20f2b8)
CODE(0x20f2b8)
CODE(0x20f2b8)