File Coverage

blib/lib/WebService/TVDB/Banner.pm
Criterion Covered Total %
statement 12 14 85.7
branch n/a
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 20 85.0


line stmt bran cond sub pod time code
1 2     2   26704 use strict;
  2         5  
  2         78  
2 2     2   10 use warnings;
  2         5  
  2         154  
3              
4             package WebService::TVDB::Banner;
5             {
6             $WebService::TVDB::Banner::VERSION = '1.133200';
7             }
8              
9             # ABSTRACT: Represents a Banner
10              
11             # Assessors
12             # alphabetically, case insensitive
13 2         12 use Object::Tiny qw(
14             BannerPath
15             BannerType
16             BannerType2
17             Colors
18             id
19             Language
20             Rating
21             RatingCount
22             Season
23             SeriesName
24             ThumbnailPath
25             VignettePath
26 2     2   1147 );
  2         346  
27              
28 2     2   1080 use constant URL => 'http://thetvdb.com/banners/%s';
  2         4  
  2         248  
29              
30             sub url {
31 0     0 1   my ($self) = @_;
32 0           return sprintf( URL, $self->BannerPath );
33             }
34              
35             1;
36              
37             __END__