#!/usr/bin/perl -w
use AUTOLOADER;
sub AUTOLOAD {
$v = $AUTOLOAD;
$v =~ s/.*:://g;
if($v eq "SomeFunctionFromHires")
{
#if this is called, it didn't work
require qw(c:\temp\hires.pm);
}
}
&SomeFunctionFromHires();
&foo;
&SomeOtherFunctionFromHires();
&secondfoo;
1;
Here's what is in the phony Hires.pm:
sub foo
{
print "foo!";
}
sub secondfoo
{
print "secondfoo!";
}
1;
Celebrate Intellectual Diversity
In reply to Re: Only
by InfiniteSilence
in thread Only
by rrwo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |