File Coverage

blib/lib/WebService/IMDB/Season.pm
Criterion Covered Total %
statement 26 26 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 33 34 97.0


line stmt bran cond sub pod time code
1             # $Id: Season.pm 7370 2012-04-09 01:17:33Z chris $
2              
3             =head1 NAME
4              
5             WebService::IMDB::Season
6              
7             =cut
8              
9             package WebService::IMDB::Season;
10              
11 2     2   11 use strict;
  2         3  
  2         67  
12 2     2   11 use warnings;
  2         5  
  2         78  
13              
14             our $VERSION = '0.05';
15              
16 2     2   11 use base qw(Class::Accessor);
  2         4  
  2         152  
17              
18 2     2   10 use Carp;
  2         4  
  2         155  
19             our @CARP_NOT = qw(WebService::IMDB WebService::IMDB::Title);
20              
21 2     2   14 use WebService::IMDB::Credit;
  2         3  
  2         16  
22              
23             __PACKAGE__->mk_accessors(qw(
24             label
25             list
26             token
27             ));
28              
29              
30             =head1 METHODS
31              
32             =head2 label
33              
34             =head2 list
35              
36             =head2 token
37              
38             =cut
39              
40             sub _new {
41 9     9   94 my $class = shift;
42 9         13 my $ws = shift;
43 9 50       24 my $data = shift or die;
44              
45 9         14 my $self = {};
46              
47 9         26 bless $self, $class;
48              
49 9         31 $self->label($data->{'label'});
50 9         96 $self->list([ map { WebService::IMDB::Title::Stub->_new($ws, $_) } @{$data->{'list'}}]);
  65         211  
  9         22  
51 9         104 $self->token($data->{'token'});
52              
53 9         106 return $self;
54             }
55              
56             1;