package Audio::File::Flac::Tag;

use strict;
use warnings;
use base qw( Audio::File::Tag );
use Audio::FLAC;

our $VERSION = '0.01';

sub init {
	my $self = shift;
	$self->{flac} = Audio::FLAC->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->{COMMENT}		);
	$self->genre(	$flactag->{GENRE}		);
	$self->year(	$flactag->{DATE}		);
	$self->track(	$flactag->{TRACKNUMBER}	);

	return 1;
}

1;