File Coverage

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

Criterion	Covered	Total	%
statement	26	28	92.8
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	1	1	100.0
total	34	37	91.8

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

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

use warnings;
use strict;

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

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

# NOTE: if you want to support multiple versions of the WSDL then add this back.
#     # Transform 2005-10-05 into V2005_10_05 to ensure its a valid module name.
#     my $wsdl_version = $Net::Amazon::WsdlVersion;
#     my $ver = "V$wsdl_version";
#     $ver =~ s|-|_|g;

    my $class = 'Net::Amazon::Validate::ItemSearch::';
#     $class .= $ver;
#     $class .= "::";
    $class .= $Net::Amazon::Locale;
    $class .= "::";
    $class .= $options{search_index};

    eval "require $class";

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

    return $obj;
}

1;
__END__