File Coverage

blib/lib/WebService/TVDB/Episode.pm
Criterion Covered Total %
statement 12 12 100.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 4 4 100.0
pod 1 1 100.0
total 19 22 86.3


line stmt bran cond sub pod time code
1 2     2   20247 use strict;
  2         4  
  2         79  
2 2     2   11 use warnings;
  2         4  
  2         195  
3              
4             package WebService::TVDB::Episode;
5             {
6             $WebService::TVDB::Episode::VERSION = '1.133200';
7             }
8              
9             # ABSTRACT: Represents an Episode
10              
11             # Assessors
12             # alphabetically, case insensitive
13 2         17 use Object::Tiny qw(
14             absolute_number
15             airsafter_season
16             airsbefore_episode
17             airsbefore_season
18             Combined_episodenumber
19             Combined_season
20             DVD_chapter
21             DVD_discid
22             DVD_episodenumber
23             DVD_season
24             Director
25             EpImgFlag
26             EpisodeName
27             EpisodeNumber
28             filename
29             FirstAired
30             GuestStars
31             id
32             IMDB_ID
33             Language
34             lastupdated
35             Overview
36             ProductionCode
37             Rating
38             RatingCount
39             seasonid
40             SeasonNumber
41             seriesid
42             Writer
43 2     2   3714 );
  2         313  
44              
45             sub year {
46 1     1 1 961 my ($self) = @_;
47 1 50 33     34 if ( $self->FirstAired && $self->FirstAired =~ /^(\d{4})-\d{2}-\d{2}$/ ) {
48 1         51 return $1;
49             }
50             }
51              
52             1;
53              
54             __END__