File Coverage

blib/lib/Net/Amazon/MechanicalTurk/ModuleUtil.pm

Criterion	Covered	Total	%
statement	30	50	60.0
branch	3	12	25.0
condition	2	6	33.3
subroutine	9	10	90.0
pod	0	5	0.0
total	44	83	53.0

package Net::Amazon::MechanicalTurk::ModuleUtil;
use strict;
use warnings;
use IO::Dir;
use Carp;

our $VERSION = '1.00';

sub listSubmodules {
    my ($class, $package) = @_;
    my $dir = $package;
    $dir =~ s/::/\//g;
    my %submodules;
    foreach my $inc (@INC) {
        next unless !ref($inc);
        my $dh = IO::Dir->new("$inc/$dir");
        if ($dh) {
            while (my $file = $dh->read) {
                if ($file =~ /\.pm$/i and -f "$inc/$dir/$file") {
                    my $submod = "${package}::${file}";
                    $submod =~ s/\.pm$//i;
                    $submodules{$submod} = 1;
                }
            }
            $dh->close;
        }
    }
    return sort keys %submodules;
}

sub packageExists {
    my ($class, $package) = @_;
    # Symbol table black magic
    no strict 'refs';
    return defined %{*{"${package}::"}};
}

sub require {
    my ($class, $module) = @_;
    if (!$class->packageExists($module)) {
        my $moduleFile = $module . ".pm";
        $moduleFile =~ s/::/\//g;
        require $moduleFile;
    }
}

sub tryRequire {
    my ($class, $module) = @_;
    eval {
        Net::Amazon::MechanicalTurk::ModuleUtil->require($module);
    };
    return (!$@);
}

sub requireFirst {
    my $class = shift;
    my @modules = ($#_ == 0 and UNIVERSAL::isa($_[0], "ARRAY")) ? @{$_[0]} : @_;
    foreach my $module (@modules) {
        if (Net::Amazon::MechanicalTurk::ModuleUtil->tryRequire($module)) {
            return $module;
        }
    }
    Carp::croak("Could not load any of the following modules " . join(", ", @modules) . ".");
}

return 1;