Test: : Do NOT load modules

gistfile1.pl

use strict;
use Test::AllModules;
use Test::More;

BEGIN {
    note('compile all modules.');
    all_ok(
        search_path => 'MyApp',
        check => sub {
            my $class = shift;
            eval "use $class;1;";
        },
    );
}

note('Do NOT load modules.');

for my $module (qw/
    Class::ISA Pod::Plainer Switch UNIVERSAL Shell FileHandle DynaLoader base byte
/) {
    ok noload($module), "no $module";
}

sub noload {
    my $module = shift;
    $module =~ s!::!/!g;
    return !defined( $INC{"$module\.pm"} ) ? 1 : 0;
}