File Coverage

blib/lib/Module/Spec.pm

Criterion	Covered	Total	%
statement	4	12	33.3
branch	0	6	0.0
condition	0	3	0.0
subroutine	2	3	66.6
pod	0	1	0.0
total	6	25	24.0

package Module::Spec;
$Module::Spec::VERSION = '0.8.0';
# ABSTRACT: Load modules based on specifications
use 5.012;

# use warnings;

BEGIN {
    require Module::Spec::V0;
    *croak = \&Module::Spec::V0::croak;
}

sub new {
    my ( $self, %args ) = @_;

    croak qq{What version?} unless exists $args{ver};

    my $v = $args{ver};
    unless ( defined $v && $v =~ /\A[1-9][0-9]*\z/ ) {
        croak qq{Invalid version ($v)} if defined $v;
        croak qq{Undefined version};
    }

    require Module::Spec::OO;
    return bless {}, Module::Spec::OO->create_class($v);
}

1;

#pod =encoding utf8
#pod
#pod =head1 SYNOPSIS
#pod
#pod     use Module::Spec;
#pod
#pod     my $ms = Module::Spec->new(ver => 2);
#pod     $ms->need_module('Mango~2.3');
#pod
#pod =head1 DESCRIPTION
#pod
#pod B
#pod
#pod =cut

__END__