File Coverage

blib/lib/Net/Amazon/Validate/Type.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	32	34	94.1

######################################################################
package Net::Amazon::Validate::Type;
######################################################################
use warnings;
use strict;

use Data::Dumper;
use Log::Log4perl qw(:easy);

use warnings;
use strict;

##################################################
sub factory {
##################################################
    my(%options) = @_;

    die "'operation' is a mandatory parameter!\n" unless defined $options{operation};

    #DEBUG(sub {"Validate::Type factory options=" . Data::Dumper::Dumper(\%options) . "\n"});

# NOTE: if you want to validate different versions of the WSDL add this back in.
#     # Transform 2005-10-05 into V2005_10_05 to ensure its a valid module name.
#     my $ver = "V$options{version}";
#     $ver =~ s|-|_|g;
#
#    my $class = 'Net::Amazon::Validate::Type::'.$ver.'::'.$options{operation};

    my $class = 'Net::Amazon::Validate::Type::'.$options{operation};

    eval "require $class";

    my $obj = $class->new();

    return $obj;
}

1;

__END__