File Coverage

blib/lib/Net/Amazon/Request/Manufacturer.pm
Criterion Covered Total %
statement 14 15 93.3
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             ######################################
2             package Net::Amazon::Request::Manufacturer;
3             ######################################
4 2     2   2890 use warnings;
  2         5  
  2         68  
5 2     2   14 use strict;
  2         3  
  2         68  
6 2     2   13 use base qw(Net::Amazon::Request);
  2         3  
  2         885  
7            
8             ######################################
9             sub new {
10             ######################################
11 1     1 1 35 my($class, %options) = @_;
12            
13 1         9 $class->_assert_options_defined(\%options,
14             qw(manufacturer));
15            
16 1         8 $class->_convert_option(\%options,
17             'manufacturer',
18             'Manufacturer');
19            
20 1         9 my $self = $class->SUPER::new(%options);
21            
22 1         10 $self->_convert_itemsearch();
23            
24 0           bless $self, $class; # reconsecrate
25             }
26             1;
27            
28             __END__