lib/AutoLoader.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package AutoLoader;

AUTOLOAD {
    my $name = "auto/$AUTOLOAD.al";
    $name =~ s#::#/#g;
    eval {require $name};
    if ($@) {
	($p,$f,$l) = caller($AutoLevel);
	$@ =~ s/ at .*\n//;
	die "$@ at $f line $l\n";
    }
    goto &$AUTOLOAD;
}

1;