#!/usr/bin/env perl -w use strict; use warnings; use File::Spec; use Test::More qw( no_plan ); BEGIN { use_ok('MP3::M3U::Parser'); } my $parser = MyParser->new; $parser->parse( File::Spec->catfile( qw/ t data test.m3u / ) ); $parser->export( -format => 'html', -file => '05_sub_html.html', -overwrite => 1, ); ok(1, 'Some test'); package MyParser; use base qw(MP3::M3U::Parser); sub _template { return <<'MP3M3UPARSERTEMPLATE'; MP3::M3U::Parser Generated PlayList

MP3::M3U::Parser - playlist

<%$HTML{SONGS}%> tracks and <%$HTML{TOTAL}%> Lists in playlist, average track length: <%$HTML{AVERTIME}%>.
Playlist length:<% my $time; if ($HTML{TOTAL_TIME}) { my @time = @{$HTML{TOTAL_TIME}}; $time = "$time[0] hours " if $time[0] ne 'Z'; $time .= "$time[1] minutes $time[2] seconds."; } else { $time = "Unknown."; } $time; %>
Right-click here to save this HTML file.

<% $HTML{TOTAL_FILES} > 1 ? "Playlists and Files" : "Playlist files"; %>

%s
<%$data{len}%>	<%$data{song}%>

MP3M3UPARSERTEMPLATE }