File Coverage

blib/lib/Test/NoLoad.pm

Criterion	Covered	Total	%
statement	38	40	95.0
branch	5	6	83.3
condition			n/a
subroutine	10	10	100.0
pod	3	3	100.0
total	56	59	94.9

package Test::NoLoad;
use strict;
use warnings;
use Test::More qw//;

our $VERSION = '0.03';

use Exporter;
our @ISA    = qw/Exporter/;
our @EXPORT = qw/check_no_load load_ok/;

sub check_no_load {
    my @list = @_;

    for my $element (@list) {
        Test::More::ok(
            ref($element) eq 'Regexp' ? !_match($element) : !_loaded($element),
            "no_load: $element",
        );
    }
}

sub _match {
    my $regexp = shift;

    my $match;
    for my $module (keys %INC) {
        $module = _path2class($module);
        if ($module =~ m!$regexp!) {
            Test::More::note("$module was loaded");
            $match = 1;
        }
    }
    return $match;
}

sub _loaded {
    my $module = shift;
    $module =~ s!::!/!g;
    if ( defined( $INC{"$module\.pm"} ) ) {
        Test::More::note("$module was loaded");
        return 1;
    }
}

sub load_ok {
    my @modules = @_;

    for my $module (@modules) {
        Test::More::ok( _loaded($module), "load ok: $module" );
    }
}


sub dump_modules {
    my $msg = '---[loaded modules]-----';
    Test::More::note($msg);
    for my $module (sort keys %INC) {
        Test::More::note( _path2class($module) );
    }
    Test::More::note( '-' x length($msg) );
}

sub _path2class {
    my $module = shift;
    $module =~ s!/!::!g;
    $module =~ s!\.pm$!!;
    return $module;
}

1;

__END__