File Coverage

blib/lib/WebService/IMDB/Quote.pm
Criterion Covered Total %
statement 25 25 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 32 33 96.9


line stmt bran cond sub pod time code
1             # $Id: Quote.pm 7370 2012-04-09 01:17:33Z chris $
2              
3             =head1 NAME
4              
5             WebService::IMDB::Quote
6              
7             =cut
8              
9             package WebService::IMDB::Quote;
10              
11 2     2   11 use strict;
  2         3  
  2         62  
12 2     2   12 use warnings;
  2         4  
  2         84  
13              
14             our $VERSION = '0.05';
15              
16 2     2   11 use base qw(Class::Accessor);
  2         3  
  2         149  
17              
18 2     2   10 use Carp;
  2         3  
  2         147  
19             our @CARP_NOT = qw(WebService::IMDB WebService::IMDB::Title);
20              
21 2     2   1126 use WebService::IMDB::QuoteLine;
  2         6  
  2         14  
22              
23             __PACKAGE__->mk_accessors(qw(
24             lines
25             qconst
26             ));
27              
28              
29             =head1 METHODS
30              
31             =head2 lines
32              
33             =head2 qconst
34              
35             =cut
36              
37             sub _new {
38 59     59   474 my $class = shift;
39 59         62 my $ws = shift;
40 59 50       158 my $data = shift or die;
41              
42 59         76 my $self = {};
43              
44 59         137 bless $self, $class;
45              
46 59         66 $self->lines( [ map { WebService::IMDB::QuoteLine->_new($ws, $_) } @{$data->{'lines'}} ] );
  112         332  
  59         121  
47 59         613 $self->qconst($data->{'qconst'});
48              
49 59         553 return $self;
50             }
51              
52             1;