- or download this
use lib '.';
...
require My;
eval "My::Run('eval')";
My::Run('normal');
- or download this
---- Loading My at 1727478470.8689 ...
Running Run(eval) loaded at 1727478470.8689
Running Run(normal) loaded at 1727478470.8689
...
---- Loading My at 1727478470.87299 ...
Running Run(eval) loaded at 1727478470.87299
Running Run(normal) loaded at 1727478470.87299
- or download this
use v5.12;
use warnings;
...
}
}
- or download this
---- Loading My at 1727477140.49975 ...
Running Run(normal) loaded at 1727477140.49975
...
---- ReImporting from module
[1 .. 5]
- or download this
package My;
use v5.12;
...
my $loadtime = time();
say "\n\n---- Loading " . __PACKAGE__ . " at $loadtime ... ";
sub Run { say "Running Run(@_) loaded at $loadtime" }