| ☞ | Help! Help! | 5 |
use Help 'Horrible::Thing';
This calls Help->import('Horrible::Thing'):
package Help;
sub import {
my ($selfclass, @classes) = @_;
for my $class (@classes) {
my $isa_var = $class . "::ISA";
push @{$isa_var}, $selfclass;
}
}

| ☞ | ![]() |
☞ |