Next | The Perl Hardware Store | DC.pm Version | 12 |
# If you subclass this package, it will # export the overriden `burgers' from the # subclass, if there is one.
sub import { my $package = shift; my $caller = caller; *{$caller . '::burgers'} = $package->can('burgers'); }
Next | Copyright © 2003 M. J. Dominus |