File Coverage

blib/lib/Cfn/ResourceModules.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	1	2	50.0
condition			n/a
subroutine	3	3	100.0
pod	0	2	0.0
total	18	21	85.7

package Cfn::ResourceModules;

  sub list {
    require Module::Find;
    my @list = Module::Find::findallmod Cfn::Resource;
    # strip off the Cfn::Resource
    @list = map { $_ =~ s/^Cfn::Resource:://; $_ } @list;
    return @list;
  }

  use Module::Runtime qw//;
  sub load {
    my $type = shift;
    my $cfn_resource_class = "Cfn::Resource::$type";
    my $retval = Module::Runtime::require_module($cfn_resource_class);
    die "Couldn't load $cfn_resource_class" if (not $retval);
    return $cfn_resource_class;
  }

1;