use strict;
use warnings;
-our $VERSION = '1.000';
+our $VERSION = '1.001_000';
use Audio::FLAC::Header qw//;
use HTML::Template::Compiled qw//;
use MP3::Info qw/get_mp3tag/;
use Ogg::Vorbis::Header::PurePerl;
use MP4::Info qw/get_mp4tag get_mp4info/;
+use Audio::Opusfile qw//;
use DB_File qw//;
use Encode qw/encode/;
};
}
+sub opusinfo {
+ my $file = $_[0];
+ my $of = Audio::Opusfile->new_from_file($file);
+ my $tags = $of->tags;
+
+ my %data = (
+ format => 'Opus',
+ title => $tags->query('TITLE'),
+ artist => $tags->query('ARTIST'),
+ year => $tags->query('DATE'),
+ album => $tags->query('ALBUM'),
+ tracknumber => $tags->query('TRACKNUMBER'),
+ tracktotal => $tags->query('TRACKTOTAL'),
+ genre => $tags->query('GENRE'),
+ file => scalar fileparse $file
+ );
+
+ freeze \%data;
+}
+
my %info = (
'.flac' => \&flacinfo,
'.mp3' => \&mp3info,
'.mp4' => \&mp4info,
'.aac' => \&mp4info,
'.m4a' => \&mp4info,
+ '.opus' => \&opusinfo,
);
sub normalizer{