freeze +{
format => 'FLAC',
- title => $flac->tags('TITLE') // '?',
- artist => $flac->tags('ARTIST') // '?',
- year => $flac->tags('DATE') // '?',
- album => $flac->tags('ALBUM') // '?',
- tracknumber => $flac->tags('TRACKNUMBER') // '?',
- tracktotal => $flac->tags('TRACKTOTAL') // '?',
- genre => $flac->tags('GENRE') // '?',
+ title => $flac->tags('TITLE'),
+ artist => $flac->tags('ARTIST'),
+ year => $flac->tags('DATE'),
+ album => $flac->tags('ALBUM'),
+ tracknumber => $flac->tags('TRACKNUMBER'),
+ tracktotal => $flac->tags('TRACKTOTAL'),
+ genre => $flac->tags('GENRE'),
file => scalar fileparse $file,
}
}
freeze +{
format => 'MP3',
- title => $tag{TITLE} || '?',
- artist => $tag{ARTIST} || '?',
- year => $tag{YEAR} || '?',
- album => $tag{ALBUM} || '?',
- tracknumber => $trkn[0] || '?',
- tracktotal => $trkn[1] || '?',
- genre => $tag{GENRE} || '?',
+ title => $tag{TITLE},
+ artist => $tag{ARTIST},
+ year => $tag{YEAR},
+ album => $tag{ALBUM},
+ tracknumber => $trkn[0],
+ tracktotal => $trkn[1],
+ genre => $tag{GENRE},
file => scalar fileparse $file,
}
}
freeze +{
format => 'Vorbis',
- title => $ogg->comment('TITLE') || '?',
- artist => $ogg->comment('artist') || '?',
- year => $ogg->comment('DATE') || '?',
- album => $ogg->comment('ALBUM') || '?',
- tracknumber => $ogg->comment('TRACKNUMBER') || '?',
- tracktotal => $ogg->comment('TRACKTOTAL') || '?',
- genre => $ogg->comment('GENRE') || '?',
+ title => $ogg->comment('TITLE'),
+ artist => $ogg->comment('artist'),
+ year => $ogg->comment('DATE'),
+ album => $ogg->comment('ALBUM'),
+ tracknumber => $ogg->comment('TRACKNUMBER'),
+ tracktotal => $ogg->comment('TRACKTOTAL'),
+ genre => $ogg->comment('GENRE'),
file => scalar fileparse $file,
}
}
freeze +{
format => mp4_format $info{ENCODING},
- title => $tag{TITLE} || '?',
- artist => $tag{ARTIST} || '?',
- year => $tag{YEAR} || '?',
- album => $tag{ALBUM} || '?',
- tracknumber => $tag{TRACKNUM} || '?',
- tracktotal => ($tag{TRKN} ? $tag{TRKN}->[1] : undef) || '?',
- genre => $tag{GENRE} || '?',
+ title => $tag{TITLE},
+ artist => $tag{ARTIST},
+ year => $tag{YEAR},
+ album => $tag{ALBUM},
+ tracknumber => $tag{TRACKNUM},
+ tracktotal => ($tag{TRKN} ? $tag{TRKN}->[1] : undef),
+ genre => $tag{GENRE},
file => scalar fileparse $file,
};
}
my @files;
for (sort keys %files) {
my @versions = @{$files{$_}};
- my %entry = (%{$versions[0]}, formats => []);
+ 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) {