| 1 |
One can define a default function AUTOLOAD to resolve unsatisfied subroutine references in a given (set of) packages
|
| 2 |
You set up AUTOLOAD to deal with this case in whatever way you want!
|
| 3 |
AUTOLOAD is passed arguments that were passed to called subroutine and name of unsatisfied external is in variable $AUTOLOAD
|
| 4 |
sub AUTOLOAD { # Call UNIX for unsatisfied externals
|
| 5 |
my $program = $AUTOLOAD;
|
| 6 |
$program =~ s/.*:://; # remove any package precursors
|
| 7 |
system($program, @_);
|
| 8 |
}
|
| 9 |
date(); # will be executed correctly by above AUTOLOAD
|
