File Coverage

blib/lib/App/MP4Meta/Source/Base.pm
Criterion Covered Total %
statement 21 21 100.0
branch 7 8 87.5
condition n/a
subroutine 6 6 100.0
pod 3 3 100.0
total 37 38 97.3


line stmt bran cond sub pod time code
1 1     1   4234 use 5.010;
  1         4  
2 1     1   5 use strict;
  1         2  
  1         21  
3 1     1   5 use warnings;
  1         2  
  1         204  
4              
5             package App::MP4Meta::Source::Base;
6             {
7             $App::MP4Meta::Source::Base::VERSION = '1.153340';
8             }
9              
10             # ABSTRACT: Base class for sources
11              
12             sub new {
13 4     4 1 3995 my $class = shift;
14 4         7 my $args = shift;
15 4         9 my $self = {};
16              
17             # cache results
18 4         14 $self->{cache} = {};
19 4         9 $self->{banner_cache} = {};
20              
21 4         8 bless( $self, $class );
22 4         14 return $self;
23             }
24              
25             sub get_film {
26 2     2 1 1764 my ( $self, $args ) = @_;
27              
28 2 100       21 die 'no title' unless $args->{title};
29             }
30              
31             sub get_tv_episode {
32 3     3 1 1756 my ( $self, $args ) = @_;
33              
34 3 100       19 die 'no title' unless $args->{show_title};
35 2 100       14 die 'no season' unless $args->{season};
36 1 50       13 die 'no episode' unless $args->{episode};
37             }
38              
39             1;
40              
41             __END__