File Coverage

blib/lib/TV/Anytime/Service.pm

Criterion	Covered	Total	%
statement	9	28	32.1
branch	0	4	0.0
condition			n/a
subroutine	3	8	37.5
pod	5	5	100.0
total	17	45	37.7

package TV::Anytime::Service;
use strict;
use warnings;
use base 'Class::Accessor::Chained::Fast';
__PACKAGE__->mk_accessors(qw(
anytime
genres_ref
id
logo
name
owner
));

sub events {
  my $self = shift;
  my($programs, $events) = $self->anytime->_programs($self->id);
  return @$events;
}

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

sub is_television {
  my $self = shift;
  foreach my $genre ($self->genres) {
    if ($genre->name eq 'MediaType') {
      return $genre->value eq 'Audio and video';
    }
  }
  return 0;
}

sub is_radio {
  my $self = shift;
  foreach my $genre ($self->genres) {
    if ($genre->name eq 'MediaType') {
      return $genre->value eq 'Audio only';
    }
  }
  return 0;
}

sub programs {
  my $self = shift;
  my($programs, $events) = $self->anytime->_programs($self->id);
  return @$programs;
}

1;

__END__