root/docs/yappo/20080515-yapcasia2008/run-normal.pl

use strict;
use warnings;
use Data::Dumper;

print "---- running\n";
use normal;
warn "run: " . Dumper(%^H);
BEGIN { warn Dumper(%^H) }
no normal;
warn "run: " . Dumper(%^H);
BEGIN { warn Dumper(%^H) }

use normal 'larry';
warn "run: " . Dumper(%^H);
BEGIN { warn Dumper(%^H) }
if (1) {
    use normal 'ingy';
    warn "run: " . Dumper(%^H);
    BEGIN { warn Dumper(%^H) }
}
warn "run: " . Dumper(%^H);
BEGIN { warn Dumper(%^H) }