frag results from the CPAN

frag

App-MusicExpo

view release on metacpan or search on metacpan


1.001_000 2016-07-22T23:39-04:00
 - Implement opus badly (by calling opusinfo)
 - Next version should use libopusinfo

1.000 2016-05-21T18:40+01:00
 - Make perlcritic happy and add perlcritic test
 - Mark as stable

0.006 2015-08-02T01:05+03:00
 - Use fragments for music player to allow linking
 - Fix caching
 - Work with raw bytes instead of UTF-8
 - Replace MP3::Tag with MP3::Info
 - Simplify code and tests

0.005 2015-04-02T22:51+03:00
 - Add a javascript player
 - Add example CSS
 - Drop JSON
 - Drop taint mode

lib/App/MusicExpo.pm view on Meta::CPAN

}

unless (%info) {
	warn 'No tags-reading module detected. Install one of the following modules: ' . join ', ', map { $_->[0] } @optional_modules;
}

sub normalizer{
	"$_[0]|".(stat $_[0])[9]
}

sub make_fragment{ join '-', map { lc =~ y/a-z0-9/_/csr } @_ }

sub extensions_handled { keys %info }

sub run {
	if ($cache) {
		tie my %cache, 'DB_File', $cache, O_RDWR|O_CREAT, 0644; ## no critic (ProhibitTie)
		$info{$_} = memoize $info{$_}, INSTALL => undef, NORMALIZER => \&normalizer, LIST_CACHE => 'FAULT', SCALAR_CACHE => [HASH => \%cache] for keys %info;
	}

	my %files;

lib/App/MusicExpo.pm view on Meta::CPAN

	for (sort keys %files) {
		my @versions = @{$files{$_}};
		my %entry = (formats => [], map { $_ => '?' } qw/title artist year album tracknumber tracktotal genre/);
		for my $ver (@versions) {
			push @{$entry{formats}}, {format => $ver->{format}, file => $ver->{file}};
			for my $key (keys %$ver) {
				$entry{$key} = $ver->{$key} if $ver->{$key} && $ver->{$key} ne '?';
			}
		}
		delete $entry{$_} for qw/format file/;
		$entry{fragment} = make_fragment @entry{qw/artist title/};
		push @files, \%entry
	}

	@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>

lib/App/MusicExpo.pm view on Meta::CPAN

<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>...
</table>
HTML

1;

__END__

=encoding utf-8

=head1 NAME

( run in 0.720 second using v1.01-cache-2.11-cpan-b16cb0d3907 )