File Coverage

blib/lib/WebService/IMDB/Review.pm
Criterion Covered Total %
statement 23 23 100.0
branch 4 6 66.6
condition n/a
subroutine 5 5 100.0
pod n/a
total 32 34 94.1


line stmt bran cond sub pod time code
1             # $Id: Review.pm 7370 2012-04-09 01:17:33Z chris $
2              
3             =head1 NAME
4              
5             WebService::IMDB::Review
6              
7             =cut
8              
9             package WebService::IMDB::Review;
10              
11 2     2   11 use strict;
  2         6  
  2         147  
12 2     2   10 use warnings;
  2         4  
  2         97  
13              
14             our $VERSION = '0.05';
15              
16 2     2   11 use base qw(Class::Accessor);
  2         4  
  2         158  
17              
18 2     2   13 use Carp;
  2         5  
  2         441  
19             our @CARP_NOT = qw(WebService::IMDB WebService::IMDB::Title);
20              
21             __PACKAGE__->mk_accessors(qw(
22             attr
23             label
24             url
25             ));
26              
27              
28             =head1 METHODS
29              
30             =head2 attr
31              
32             =head2 label
33              
34             =head2 url
35              
36             =cut
37              
38             sub _new {
39 215     215   1703 my $class = shift;
40 215         240 my $ws = shift;
41 215 50       462 my $data = shift or die;
42              
43 215         309 my $self = {};
44              
45 215         439 bless $self, $class;
46              
47 215 100       552 if (exists $data->{'attr'}) { $self->attr($data->{'attr'}); }
  149         574  
48 215 50       1676 if (exists $data->{'label'}) { $self->label($data->{'label'}); }
  215         591  
49 215         2075 $self->url($data->{'url'});
50              
51 215         2023 return $self;
52             }
53              
54             1;