File Coverage

blib/lib/File/TVShow/EpisodeName.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 11 11 100.0


line stmt bran cond sub pod time code
1             package File::TVShow::EpisodeName;
2              
3 14     14   141 use 5.10.0;
  14         36  
4 14     14   64 use strict;
  14         23  
  14         232  
5 14     14   69 use warnings;
  14         26  
  14         1375  
6              
7             require Exporter;
8             our @ISA = qw ( Exporter );
9             our @EXPORT = qw ( @episode_name_patterns );
10              
11             =head1 NAME
12              
13             File::TVShow::EpisodeName - Array of EpisodeName matching regexs.
14              
15             =head1 VERSION
16              
17             Version 0.02
18              
19             =cut
20              
21             our $VERSION = '0.02';
22              
23             our @episode_name_patterns = (
24             { # Matching name followed by resoltion (name.720p)
25             re => '^(?.*)[\s.]?(?:(?:\.|\ )[0-9]{3,4})(?:p|i)',
26             },
27             { # Matching name follwoed by source
28             re => '^(?.*)[\s.](AMZN|hdtv|SDTV)',
29             },
30             { # Matching name followed by web
31             re => '^(?.*)[\s.](web)',
32             },
33             );
34              
35             1;