File::Extract::MP3 - Extract Text From MP3 Files

File-Extract documentation Contained in the File-Extract distribution.

Index

Code Index:

NAME

Top

File::Extract::MP3 - Extract Text From MP3 Files

SEE ALSO

Top

File::Extract File::Extract::Base (File::Extract::Base) MP3::Info

File-Extract documentation Contained in the File-Extract distribution. 
# $Id: /mirror/perl/File-Extract/trunk/lib/File/Extract/MP3.pm 4210 2007-10-27T13:43:07.499967Z daisuke  $
#
# Copyright (c) 2005 Daisuke Maki <dmaki@cpan.org>
# 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__