Help for this page

Select Code to Download


  1. or download this
    $ perl -w
sub addcoderef { my ($orig, $add) = @_; sub { $orig->(); $add->(); } }
...
__END__
SUB1
SUB2
  2. or download this
    $ perl -w
use strict;
...
__END__
SUB1
SUB2