lib/ISA.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

package ISA;
use Carp;

sub import {
    my $class = shift;
    my ($package) = caller;
    foreach my $base (@_) {
	croak qq(No such class "$base") unless defined %{"$base\::"};
	eval {
	    $base->ISA($package);
	};
	if ($@ && $@ !~ /^Can't locate object method/) {
	    $@ =~ s/ at .*? line \d+\n$//;
	    croak $@;
	}
    }
    push(@{"$package\::ISA"}, @_);
}

1;