perl 5.0 alpha 6
[perl.git] / 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;