File Coverage

lib/AudioFile/Info/Audio/WMA.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

=head1 NAME

AudioFile::Info::Audio::WMA - Perl extension to get info from WMA files.

=head1 DESCRIPTION

This is a plugin for AudioFile::Info which uses Audio::WMMA to get
data about WMA files.

See L for more details.

=cut

package AudioFile::Info::Audio::WMA;

use 5.006;

use strict;
use warnings;
use Carp;

use Audio::WMA;

our $VERSION = 0.1;

my %data = (
	artist => 'ALBUMARTIST',
	title  => 'TITLE',
	album  => 'ALBUMTITLE',
	track  => 'TRACKNUMBER',
	year   => 'YEAR',
	genre  => 'GENRE',
);

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

	my $wma  = Audio::WMA->new($file);
	bless { obj => $wma->tags }, $class;
}

sub DESTROY {}

sub AUTOLOAD {
	my $self = shift;

	our $AUTOLOAD;

	my ($pkg, $sub) = $AUTOLOAD =~ /(.+)::(\w+)/;

	carp "Invalid attribute $sub" unless exists $data{$sub};

	return $self->{obj}->{$data{$sub}};
}


1;
__END__