use strict;
use warnings;
-our $VERSION = '0.003003';
+our $VERSION = '0.004';
use Audio::FLAC::Header qw//;
use HTML::Template::Compiled qw//;
next unless defined $info;
my $basename = fileparse $file, '.flac', '.mp3', '.ogg', '.oga', '.mp4', '.aac', '.m4a';
$files{$basename} //= [];
- push $files{$basename}, $info;
+ push @{$files{$basename}}, $info;
}
my $ht=HTML::Template::Compiled->new(
for (values %files) {
my @versions = @$_;
my %entry = (%{$versions[0]}, formats => []);
- push $entry{formats}, {format => $_->{format}, file => $_->{file}} for @versions;
+ 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} ne '?';
+ }
+ }
+ delete $entry{$_} for qw/format file/;
push @files, \%entry
}