/usr/local/CPAN/Net-Amazon-MechanicalTurk/Net/Amazon/MechanicalTurk/ModuleUtil.pm

• package Net::Amazon::MechanicalTurk::ModuleUtil
  • listSubmodules
  • packageExists
  • require
  • tryRequire
  • requireFirst
• EOF

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;