File Coverage

blib/lib/Module/Spec/OO.pm

Criterion	Covered	Total	%
statement	8	20	40.0
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	1	0.0
total	11	30	36.6

package Module::Spec::OO;
$Module::Spec::OO::VERSION = '0.8.0';
# ABSTRACT: OO support for Module::Spec
use 5.012;
use warnings;

use Class::Method::Modifiers 1.05 ();    # install_modifier

my %CLASSES;

my @METHODS = qw(need_module try_module generate_code);

sub create_class {
    my ( $self, $version ) = @_;
    return $CLASSES{$version} if $CLASSES{$version};

    my $base  = "Module::Spec::V$version";
    my $class = "${base}::OO";

    my $e;
    {
        local $@;
        eval( my $code
              = "package $class; require $base; our \@ISA = qw($base);" );
        $e = "Evaling failed: $@\nTrying to eval:\n${code}" if $@;
    }

    # Allow certain functions in the base class to act as methods
    Class::Method::Modifiers::install_modifier(
        $class,
        around => @METHODS,
        sub {
            return $_[0]->( @_[ 2 .. $#_ ] );    # Discard invocant
        }
    );

    return $CLASSES{$version} = $class;
}

1;

__END__