File Coverage

blib/lib/ZCS/LocalConfig.pm

Criterion	Covered	Total	%
statement	6	21	28.5
branch	0	10	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	35	22.8

package ZCS::LocalConfig;

use strict;
use warnings;

our $VERSION = '1.00';
our $DEBUG;

{
    my @Modules = qw(File Command);
    my %Mod_map = map { $_ => 1 } @Modules;

    sub new {
        my ( $class, %args ) = ( shift, @_ );

        my $type = delete $args{type};
        my @try  = @Modules;

        if ($type) {
            die("invalid arg type='$type'\n") unless $Mod_map{$type};
            @try = ($type);
        }

        foreach my $mod (@try) {
            $mod = __PACKAGE__ . '::' . $mod;
            eval "require $mod;";
            if ($@) {
                warn( __PACKAGE__, "::new: require '$mod' failed: $@\n" )
                  if $DEBUG;
                next;
            }
            my $obj = $mod->new(%args);
            return $obj if ($obj);
        }
        return undef;
    }
}

1;

__END__