File Coverage

blib/lib/parent/versioned.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	6	6	100.0
condition	3	3	100.0
subroutine	3	3	100.0
pod			n/a
total	32	32	100.0

package parent::versioned;

use strict;

our $VERSION = '0.001_02';
$VERSION = eval "$VERSION";

# Based on parent.pm, version 0.237;
# parent was included in the Perl core beginning with Perl 5.10.1,
# and is dual-lived on CPAN.

sub import {
    my $class = shift;

    my $inheritor = caller(0);

    if ( @_ and $_[0] eq '-norequire' ) {
        shift @_;
    } else {
        for ( my @filename = @_ ) {

            $_ = $_->[0] if ref $_ eq 'ARRAY';

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

    {
        no strict 'refs';
        push @{"$inheritor\::ISA"},
             map {ref($_) eq 'ARRAY' ? do {$_->[0]->VERSION($_->[1]); $_->[0]} : $_ }
             @_; # dies if a loop is detected or if a requisite version is not met.
    };
};

1;

__END__