Select Code to Download

package junk;

...
sub END {  printf "Hi from %s END\n", __PACKAGE__ }

1;

#! perl -slw
use strict;
...
eval "use junk";

print "Main runtime: Just eval'd use junk"; <STDIN>;

C:\test>junk
Main runtime: About to eval use junk
...
Main runtime: Just eval'd use junk

Hi from junk END

package junk;
use Attribute::Handlers;
...
1;

#! perl -slw
use strict;
...

junk::doStuff( 1..10 );

C:\test>junk
Main runtime: About to eval use junk
...
junk.pm(16) called with [1 2 3 4 5 6 7 8 9 10]
junk::doStuff says hi
junk.pm(16): returning [ 1 ]