File Coverage

blib/lib/Template/Plugin/MP3/Tag.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package Template::Plugin::MP3::Tag;

# ----------------------------------------------------------------------
# $Id: Tag.pm,v 1.7 2006/04/24 03:30:05 travail Exp $
# ----------------------------------------------------------------------

use 5.008002;
use strict;
use warnings;
use vars qw ( $VERSION $AUTOLOAD );
use base qw( Template::Plugin );
use MP3::Tag ();
use Template::Plugin;

my $ETYPE = 'plugin.mp3_tag';
$VERSION = '0.01';

sub new {
    my ( $class, $context, $file ) = @_;

    -e $file || $context->throw( $ETYPE, "File '$file' does not exist" );

    my $mp3_tag = MP3::Tag->new( $file )
        || $context->throw( $ETYPE, "Can't create MP3::Tag object for mp3 file '$file'" );

    bless {
        _CONTEXT => $context,
        _FILE    => $file,
        _MP3_TAG => $mp3_tag
    }, $class;
}

sub AUTOLOAD {
    my $self = shift;

    my $method = $AUTOLOAD;
    $method =~ s/.*:://;
    return if ( $method eq 'DESTROY' );

    return $self->{_MP3_TAG}->$method( @_ );
}

sub album {
    my ( $self ) = @_;

    return $self->autoinfo->{album};
}

sub artist {
    my ( $self ) = @_;

    return $self->autoinfo->{artist};
}

sub song {
    my ( $self ) = @_;

    return $self->autoinfo->{song};
}

sub track {
    my ( $self ) = @_;

    return $self->autoinfo->{track};
}

sub title {
    my ( $self ) = @_;

    return $self->autoinfo->{title};
}

sub genre {
    my ( $self ) = @_;

    return $self->autoinfo->{genre};
}

sub year {
    my ( $self ) = @_;

    return $self->autoinfo->{year};
}

1;

__END__