File Coverage

blib/lib/WebService/IMDB/Credit.pm
Criterion Covered Total %
statement 27 28 96.4
branch 6 8 75.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 39 42 92.8


line stmt bran cond sub pod time code
1             # $Id: Credit.pm 7370 2012-04-09 01:17:33Z chris $
2              
3             =head1 NAME
4              
5             WebService::IMDB::Credit
6              
7             =cut
8              
9             package WebService::IMDB::Credit;
10              
11 2     2   29 use strict;
  2         4  
  2         85  
12 2     2   10 use warnings;
  2         3  
  2         141  
13              
14             our $VERSION = '0.05';
15              
16 2     2   13 use base qw(Class::Accessor);
  2         4  
  2         178  
17              
18 2     2   12 use Carp;
  2         3  
  2         164  
19             our @CARP_NOT = qw(WebService::IMDB WebService::IMDB::Title);
20              
21 2     2   1406 use WebService::IMDB::Name::Stub;
  2         7  
  2         33  
22              
23             __PACKAGE__->mk_accessors(qw(
24             name
25             attr
26             char
27             job
28             ));
29              
30              
31             =head1 METHODS
32              
33             =head2 name
34              
35             =head2 attr
36              
37             =head2 char
38              
39             =head2 job
40              
41             =cut
42              
43             sub _new {
44 8     8   105 my $class = shift;
45 8         15 my $ws = shift;
46 8 50       25 my $data = shift or die;
47              
48 8         17 my $self = {};
49              
50 8         25 bless $self, $class;
51              
52 8         75 $self->name(WebService::IMDB::Name::Stub->_new($ws, $data->{'name'}));
53 8 100       97 if (exists $data->{'attr'}) { $self->attr($data->{'attr'}); }
  3         13  
54 8 100       48 if (exists $data->{'char'}) { $self->char($data->{'char'}); }
  4         14  
55 8 50       62 if (exists $data->{'job'}) { $self->job($data->{'job'}); }
  0         0  
56              
57 8         47 return $self;
58             }
59              
60             1;