File Coverage

blib/lib/WebService/IMDB/Trivium.pm
Criterion Covered Total %
statement 18 18 100.0
branch 3 4 75.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 25 26 96.1


line stmt bran cond sub pod time code
1             # $Id: Trivium.pm 7370 2012-04-09 01:17:33Z chris $
2              
3             =head1 NAME
4              
5             WebService::IMDB::Trivium
6              
7             =head1 DESCRIPTION
8              
9             WebService::IMDB::Trivium isa L.
10              
11             =cut
12              
13             package WebService::IMDB::Trivium;
14              
15 2     2   12 use strict;
  2         3  
  2         74  
16 2     2   10 use warnings;
  2         5  
  2         102  
17              
18             our $VERSION = '0.05';
19              
20 2     2   11 use base qw(WebService::IMDB::DateText);
  2         11  
  2         1418  
21              
22             __PACKAGE__->mk_accessors(qw(
23             spoiler
24             ));
25              
26             =head1 METHODS
27              
28             =head2 spoiler
29              
30             =cut
31              
32             sub _new {
33 178     178   1508 my $class = shift;
34 178         239 my $ws = shift;
35 178 50       369 my $data = shift or die;
36 178         190 my $spoiler = shift;
37              
38 178         563 my $self = WebService::IMDB::DateText->_new($ws, $data);
39              
40 178         390 bless $self, $class;
41              
42 178 100       342 if (defined $spoiler) { $self->spoiler($spoiler); }
  88         210  
43              
44 178         1233 return $self;
45              
46             }
47              
48             1;