File Coverage

blib/lib/TV/Anytime/Group.pm
Criterion Covered Total %
statement 9 17 52.9
branch 0 6 0.0
condition n/a
subroutine 3 6 50.0
pod 3 3 100.0
total 15 32 46.8


line stmt bran cond sub pod time code
1             package TV::Anytime::Group;
2 1     1   5 use strict;
  1         3  
  1         93  
3 1     1   5 use warnings;
  1         3  
  1         59  
4 1     1   6 use base 'Class::Accessor::Chained::Fast';
  1         1  
  1         241  
5             __PACKAGE__->mk_accessors(qw(id type title members_ref parents_ref));
6              
7             sub members {
8 0     0 1   my $self = shift;
9 0 0         return @{$self->members_ref || []};
  0            
10             }
11              
12             sub parents {
13 0     0 1   my $self = shift;
14 0 0         return @{$self->parents_ref || []};
  0            
15             }
16              
17             sub is_series {
18 0     0 1   my $self = shift;
19 0 0         return $self->type eq 'series' ? 1 : 0;
20             }
21              
22             1;
23              
24             __END__