diff options
Diffstat (limited to 'lib/ISA.pm')
-rw-r--r-- | lib/ISA.pm | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/lib/ISA.pm b/lib/ISA.pm deleted file mode 100644 index d18242c13a..0000000000 --- a/lib/ISA.pm +++ /dev/null @@ -1,20 +0,0 @@ -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; |