view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.003001 2014-01-02T12:33:11
 - Make empty.ogg longer (RT #91794 and #43693)
 - Add SIGN => 1 to Makefile.PL
 - Add repository and dynamic_config: 0 to META
 - Convert changelog to CPAN::Changes format

0.003 2013-09-03
 - Support OGG Vorbis
 - Group files with same basename
 - URL-escape filenames

0.002 2013-08-18T10:41:44+03:00
 - Depend on less modules
 - Move default format inside the module
 - Do not cache by default
 - Change musicexpo's command-line arguments
 - Depend on a newer MP3::Tag
 - Write more tests

0.001001 2013-06-18

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

	my %files;
	for my $file (@ARGV) {
		my ($basename, undef, $suffix) = fileparse $file, keys %info;
		next unless $suffix;
		$files{$basename} //= [];
		push @{$files{$basename}}, thaw scalar $info{$suffix}->($file);
	}

	my $ht=HTML::Template::Compiled->new(
		default_escape => 'HTML',
		global_vars => 2,
		$template eq '' ? (scalarref => \$default_template) : (filename => $template),
	);

	my @files;
	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}};