File Coverage

blib/lib/Audio/File/Flac/Tag.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	31	32	96.8

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->total(	$flactag->{TRACKTOTAL}	);

	return 1;
}

1;