File Coverage

blib/lib/Alt/Assert.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	6	6	100.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	38	41	92.6

use strict; use warnings;
package Alt::Assert;

sub assert {
    my $self  = shift;
    my $mod   = shift || caller();

    my ($orig, $phrase) = $mod =~ /^Alt::(\w+(?:::\w+)*)::(\w+)$/
        or die "Bad syntax in alternate module name '$mod', should be ".
            "Alt::::\n";
    my $origf = $orig;
    $origf =~ s!::!/!g; $origf .= ".pm";
    require $origf; # if user hasn't loaded the module, load it for them

    defined(&{"$orig\::ALT"})
        or die "$orig does not define ALT, might not be from the same ".
            "distribution as $mod\n";

    my $alt = $orig->ALT;
    $alt eq $phrase
        or die "$orig has ALT set to '$alt' instead of '$phrase', ".
            "might not be from the same distribution as $mod\n";
}

sub import {
    my $self   = shift;
    my $caller = caller();

    # export assert()
    {
        no strict;
        *{"$caller\::assert"} = \&assert;
    }
    $self->assert($caller);
}

1;