File Coverage

blib/lib/WebService/IMDB/ParentalGuideItem.pm
Criterion Covered Total %
statement 20 20 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 26 27 96.3


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