File Coverage

blib/lib/TV/Anytime/Program.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	22	63.6

package TV::Anytime::Program;
use strict;
use warnings;
use base 'Class::Accessor::Chained::Fast';
__PACKAGE__->mk_accessors(qw(
id title synopsis synopsis_long events_ref genres_ref
caption_language
url email audio_channels aspect_ratio
member_of
events
is_audio_described is_subtitled is_deaf_signed
));

sub events {
  my $self = shift;
  return @{$self->events_ref};
}

sub genres {
  my $self = shift;
  return @{$self->genres_ref};
}

# TODO url email member_of

1;

__END__