File Coverage

blib/lib/Net/Amazon/Request/MusicLabel.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::MusicLabel;
3             ######################################################################
4 1     1   634 use warnings;
  1         2  
  1         32  
5 1     1   5 use strict;
  1         2  
  1         31  
6 1     1   4 use base qw(Net::Amazon::Request);
  1         1  
  1         195  
7              
8             ##################################################
9             sub new {
10             ##################################################
11 1     1 1 40 my($class, %options) = @_;
12              
13 1         9 $class->_assert_options_defined(\%options,
14             'musiclabel');
15              
16 1         9 $class->_convert_option(\%options,
17             'musiclabel',
18             'MusicLabel');
19              
20 1         19 my $self = $class->SUPER::new(%options);
21              
22 1         11 $self->_convert_itemsearch();
23              
24 0           bless $self, $class; # reconsecrate
25             }
26              
27             1;
28              
29             __END__