File Coverage

blib/lib/Net/Amazon/Response/Manufacturer.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             ######################################################################
2             package Net::Amazon::Response::Manufacturer;
3             ######################################################################
4 1     1   470 use warnings;
  1         2  
  1         23  
5 1     1   4 use strict;
  1         2  
  1         24  
6 1     1   5 use base qw(Net::Amazon::Response);
  1         2  
  1         515  
7            
8             use Net::Amazon::Property;
9             use Data::Dumper;
10            
11             ##################################################
12             sub new {
13             ##################################################
14             my($class, %options) = @_;
15            
16             my $self = $class->SUPER::new(%options);
17            
18             bless $self, $class; # reconsecrate
19             }
20            
21             ##################################################
22             sub as_string {
23             ##################################################
24             my($self) = @_;
25            
26             return $self->SUPER::list_as_string($self->properties);
27             }
28            
29             1;