File Coverage

blib/lib/Alt/Base.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	10	10	100.0
condition	1	3	33.3
subroutine	6	6	100.0
pod			n/a
total	50	52	96.1

package Alt::Base;

use strict;
use warnings;

our $VERSION = '0.02'; # VERSION

sub import {
    my $self = shift;

    my $class = ref($self) || $self;
    my %opts;
    {
        no strict 'refs';
        no warnings;
        %opts = %{"$class\::ALT"};
    }

    if (defined($opts{check}) ? $opts{check} : 1) {
        my ($orig, $phrase) = $class =~ /^Alt::(\w+(?:::\w+)*)::(\w+)$/
            or die "Bad syntax in alternate module name '$class', should be ".
                "Alt::::\n";
        my $origf = $orig;
        $origf =~ s!::!/!g; $origf .= ".pm";
        require $origf;
        my $mphrase;
        {
            no strict 'refs';
            $mphrase = ${"$orig\::ALT"};
        }
        defined($mphrase)
            or die "$orig does not define \$ALT, might not be from the same ".
                "distribution as $class\n";
        $mphrase eq $phrase
            or die "$orig has \$ALT set to '$mphrase' instead of '$phrase', ".
                "might not be from the same distribution as $class\n";
    }
}

1;
#ABSTRACT: Base class for alternate module


__END__