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

package File::TVShow::EpisodeName;

use 5.10.0;
use strict;
use warnings;

require Exporter;
our @ISA = qw ( Exporter );
our @EXPORT = qw ( @episode_name_patterns );

=head1 NAME

File::TVShow::EpisodeName - Array of EpisodeName matching regexs.

=head1 VERSION

Version 0.02

=cut

our $VERSION = '0.02';

our @episode_name_patterns = (
        { # Matching name followed by resoltion (name.720p)
          re => '^(?.*)[\s.]?(?:(?:\.|\ )[0-9]{3,4})(?:p|i)',
        },
        { # Matching name follwoed by source
          re => '^(?.*)[\s.](AMZN|hdtv|SDTV)',
        },
        { # Matching name followed by web
          re => '^(?.*)[\s.](web)',
        },
);

1;