package parent;
use strict;
use vars qw($VERSION);
$VERSION = '0.232';

sub import {
    my $class = shift;

    my $inheritor = caller(0);

    if ( @_ and $_[0] eq '-norequire' ) {
        shift @_;
    }
    else {
        for ( my @filename = @_ ) {
            if ( $_ eq $inheritor ) {
                warn
                  "Class '$inheritor' tried to inherit from itself\n";
            }

            s{::|'}{/}g;
            require "$_.pm";    # dies if the file is not found
        }
    }

    {
        no strict 'refs';
        my %ISA = map { $_ => 1 } @{"$inheritor\::ISA"};
        for (@_) {
            push @{"$inheritor\::ISA"}, $_
              if not $ISA{$_};
        }
    };
}

1;