Select Code to Download

# Module.pm
use warnings;
...
my $thingy = 'thangy';
sub doit { eval 'print "thingy is $thingy\n"'; }
1;

use Module;
Module::doit();  # "thingy is "

{
   use warnings;
...
}

Module::doit();  # "thingy is "

{
   use warnings;
...
}

doit();  # "thingy is "

{
   use warnings;
...
}

doit();  # "thingy is thangy"

{
   use warnings;
...
}

doit();  # "thingy is thangy"

{
   use warnings;
...
}

doit();  # "thingy is thangy"

{
   use warnings;
...
}

doit();  # "thingy is thangy"