1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
package Audio::File::Flac::Tag;
use strict;
use warnings;
use base qw( Audio::File::Tag );
use Audio::FLAC::Header
our $VERSION = '0.03';
sub init {
my $self = shift;
$self->{flac} = Audio::FLAC::Header->new( $self->{filename} ) or return;
my $flactag = $self->{flac}->tags();
$self->title( $flactag->{TITLE} );
$self->artist( $flactag->{ARTIST} );
$self->album( $flactag->{ALBUM} );
$self->comment( $flactag->{DESCRIPTION} );
$self->genre( $flactag->{GENRE} );
$self->year( $flactag->{DATE} );
$self->track( $flactag->{TRACKNUMBER} );
$self->disc( $flactag->{DISCNUMBER} );
$self->total( $flactag->{TRACKTOTAL} );
return 1;
}
1;
|
