File Coverage

blib/lib/MP3/M3U.pm

Criterion	Covered	Total	%
statement	6	31	19.3
branch	0	10	0.0
condition	0	3	0.0
subroutine	2	4	50.0
pod	2	2	100.0
total	10	50	20.0

package MP3::M3U;

use strict;
use vars qw($VERSION);

$VERSION = '0.01';

sub new {
  my ($class, $file, $root) = @_;

  die "$file doesn't exist" unless -e $file;

  my $self = {};
  $self->{_file} = $file;
  $self->{_root} = substr $file, 0, (index $file, '/', 1);

  bless $self, $class;

  return $self;
}

sub parse {
# parse playlist and return arrayref of mp3 filenames
#  my $path = substring $playlist, 0, (rindex $playlist, "/");
  my ($self, $search, $replace) = @_;

  my @files = ();
  open M3U, $self->{_file} or die "Cannnot open $self->{_file}. $!";
  while() {
    next if /^#/;
    chomp;
    s/\r//g;
    s|\\|/|g; # convert "\" to "/"
    my $file = $_;
    if ( $search and $replace ) {
      $search =~ s|\\|/|g; # convert "\" to "/"
      $replace =~ s|\\|/|g; # convert "\" to "/"
      $file =~ s/$search/$replace/;
    }
    if ( !-e $file ) {
      $file = $self->{_root} . $file;
    }
    push @files, $file;
  }
  close M3U;
  return \@files;
}

1;

__END__