File Coverage

blib/lib/File/Extract/MP3.pm

Criterion	Covered	Total	%
statement	10	19	52.6
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	2	2	100.0
total	16	28	57.1

# $Id: /mirror/perl/File-Extract/trunk/lib/File/Extract/MP3.pm 4210 2007-10-27T13:43:07.499967Z daisuke  $
#
# Copyright (c) 2005 Daisuke Maki
# All rights reserved.

package File::Extract::MP3;
use strict;
use base qw(File::Extract::Base);
use MP3::Info qw(get_mp3tag);

sub mime_type { 'audio/mpeg' }
sub extract
{
    my $self = shift;
    my $file = shift;

    my $hash   = get_mp3tag($file);
    my %p;

    while (my($field, $value) = each %$hash) {
        next unless $value;
        $p{lc $field} = $value;
    }

    my $r = File::Extract::Result->new(
        metadata  => %p,
        filename  => $file,
        mime_type => $self->mime_type,
    );
    return $r;
}

1;

__END__