Allow calls to orig_foo, load_orig_foo, set_orig_foo
to be able to call a FUNC that you've overloaded with a function.
This commit is contained in:
1
Info.pm
1
Info.pm
@@ -2606,6 +2606,7 @@ sub AUTOLOAD {
|
|||||||
|
|
||||||
my $attr = $sub_name;
|
my $attr = $sub_name;
|
||||||
$attr =~ s/^(load|set)_//;
|
$attr =~ s/^(load|set)_//;
|
||||||
|
$attr =~ s/^orig_//;
|
||||||
|
|
||||||
# Let's use the %GLOBALS and %FUNCS from the class that
|
# Let's use the %GLOBALS and %FUNCS from the class that
|
||||||
# inherited us.
|
# inherited us.
|
||||||
|
|||||||
Reference in New Issue
Block a user