sub test_module {
    my ($module, @prereqs) = @_;
    foreach my $prereq (@prereqs) {
        my ($ok, $reason) = load_module($prereq);
        if (!$ok) {
            skip("Skip($prereq prerequisite module not available : $reason)", 1);
            return;
        }
    }
    my ($ok, $reason) = load_module($module);
    ok($ok, 1, $reason);
}

sub load_module {
    my $module = shift;
    $module =~ s/::/\//g;
    eval {
        require "$module.pm";
    };
    if ($@) {
        return wantarray ? (0, $@) : 0;
    }
    return 1;
}

1;