diff options
Diffstat (limited to 'linux-x86/lib/perl-base/parent.pm')
-rw-r--r-- | linux-x86/lib/perl-base/parent.pm | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/linux-x86/lib/perl-base/parent.pm b/linux-x86/lib/perl-base/parent.pm deleted file mode 100644 index 06aac71..0000000 --- a/linux-x86/lib/perl-base/parent.pm +++ /dev/null @@ -1,29 +0,0 @@ -package parent; -use strict; -use vars qw($VERSION); -$VERSION = '0.236'; - -sub import { - my $class = shift; - - my $inheritor = caller(0); - - if ( @_ and $_[0] eq '-norequire' ) { - shift @_; - } else { - for ( my @filename = @_ ) { - s{::|'}{/}g; - require "$_.pm"; # dies if the file is not found - } - } - - { - no strict 'refs'; - push @{"$inheritor\::ISA"}, @_; # dies if a loop is detected - }; -}; - -1; - -__END__ - |