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

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

print "---- running\n";
use normal;
warn "run: " . Dumper(%^H);
warn "caller: " . Dumper(normal->hinthash);

BEGIN { warn Dumper(%^H) }
no normal;
warn "run: " . Dumper(%^H);
warn "caller: " . Dumper(normal->hinthash);
BEGIN { warn Dumper(%^H) }

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