App-MusicExpo
view release on metacpan or search on metacpan
lib/App/MusicExpo.pm view on Meta::CPAN
}
@files = sort { $a->{title} cmp $b->{title} } @files;
$ht->param(files => \@files, prefix => $prefix);
print $ht->output; ## no critic (RequireCheckedSyscalls)
}
$default_template = <<'HTML';
<!DOCTYPE html>
<title>Music</title>
<meta charset="utf-8">
<link rel="stylesheet" href="musicexpo.css">
<script async defer type="application/javascript" src="player.js"></script>
<div id="player"></div>
<table border>
<thead>
<tr><th>Title<th>Artist<th>Album<th>Genre<th>Track<th>Year<th>Type
<tbody><tmpl_loop files>
<tr><td class="title"><a href="#<tmpl_var fragment>" data-hash="#<tmpl_var fragment>"><tmpl_var title></a><td class="artist"><tmpl_var artist><td class="album"><tmpl_var album><td class="genre"><tmpl_var genre><td class="track"><tmpl_var tracknumber>...
t/musicexpo-cache.t view on Meta::CPAN
push @lines, $prefix . '<a href="/music/empty3.mp3">MP3</a> ' if $handled{'.mp3'};
push @lines, '<tr><td class="title"><a href="#silence-cellule" data-hash="#silence-cellule">Cellule</a><td class="artist">Silence<td class="album">L'autre endroit<td class="genre">Electro<td class="track">1/9<td class="year">2005<td class="format...
my $contents = join '', map { "\n$_" } @lines;
App::MusicExpo->run;
is $out, <<"OUT", 'output is correct';
<!DOCTYPE html>
<title>Music</title>
<meta charset="utf-8">
<link rel="stylesheet" href="musicexpo.css">
<script async defer type="application/javascript" src="player.js"></script>
<div id="player"></div>
<table border>
<thead>
<tr><th>Title<th>Artist<th>Album<th>Genre<th>Track<th>Year<th>Type
<tbody>$contents
</table>
t/musicexpo.t view on Meta::CPAN
close STDOUT;
my $out;
open STDOUT, '>', \$out;
App::MusicExpo->run;
is $out, <<'OUT', 'output is correct';
<!DOCTYPE html>
<title>Music</title>
<meta charset="utf-8">
<link rel="stylesheet" href="musicexpo.css">
<script async defer type="application/javascript" src="player.js"></script>
<div id="player"></div>
<table border>
<thead>
<tr><th>Title<th>Artist<th>Album<th>Genre<th>Track<th>Year<th>Type
<tbody>
</table>
( run in 0.276 second using v1.01-cache-2.11-cpan-4d50c553e7e )