File Coverage

blib/lib/File/Media/Sort.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	4	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	28	30	93.3

package File::Media::Sort;
use strict;

BEGIN {
  use Exporter;
  use vars qw($VERSION @ISA @EXPORT_OK);

  $VERSION = '0.066';
  @ISA     = qw(Exporter);

  @EXPORT_OK = qw(
    media_sort
  );
}

my %media_re = (
  tv    => {
    regex => '(?i)([S0-9]+)?([E0-9]+)(.*TV)',
#    location => \@episodes,
  },
  mvid  => {
    regex => '.*([_-]+)x264-[0-9]{4}',
#    location => \@mvids,
  },
  music => {
    regex => '.+(?:-|_-_)\w+-(?:[0-9]+CD?-)?(?:[0-9]{4}-)?(?:\w+)?',
#    location => \@music,
  },
);


sub media_sort {
  my $type = shift;
  die "Type not supported\n" unless exists($media_re{$type});
  my @files = @_;

  my @results;
  for my $file(@files) {
    if($file =~ m/$media_re{$type}->{regex}/) {
      push(@results, $file);
    }
  }
  return @results;
}


1;


__END__