Help for this page

Select Code to Download


  1. or download this
    use lib '.';
    
    ...
    require My;
    eval "My::Run('eval')";
    My::Run('normal');
    
  2. 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
    
  3. or download this
    use v5.12;
    use warnings;
    ...
        }
    
    }
    
  4. or download this
    ---- Loading My at 1727477140.49975 ... 
    Running Run(normal) loaded at 1727477140.49975
    ...
    
    ---- ReImporting from module
    [1 .. 5]
    
  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" }