Help for this page

Select Code to Download


  1. or download this
    package My;
print "Loading...\n";
sub Run { print "Running\n" }
  2. or download this
    use My;
delete $INC{"My.pm"};
...
require My;
eval "My::Run()";
My::Run();
  3. or download this
    Loading...
Loading...
Running
Undefined subroutine &My::Run called at -e line 1.
  4. or download this
    use My;
delete $INC{"My.pm"};
...
require My;
eval "My::Run()";
My::Run();
  5. or download this
    Loading...
Loading...
Running
Running
  6. or download this
    use My;
<STDIN>;                       # NEW
...
require My;
eval "My::Run()";
My::Run();
  7. or download this
    Loading...

Loading...
Running again
Running
  8. or download this
    Loading...

Loading...
Running again