lib/AutoLoader.pm

   1 package AutoLoader;
   2
   3 AUTOLOAD {
   4     my $name = "auto/$AUTOLOAD.al";
   5     $name =~ s#::#/#g;
   6     eval {require $name};
   7     if ($@) {
   8         ($p,$f,$l) = caller($AutoLevel);
   9         $@ =~ s/ at .*\n//;
  10         die "$@ at $f line $l\n";
  11     }
  12     goto &$AUTOLOAD;
  13 }
  14
  15 1;