Audio-File

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
name:         Audio-File
version:      0.11
version_from: lib/Audio/File.pm
installdirs:  site
requires:
    Audio::FLAC::Header:           0
    MP3::Info:                     0
    MP3::Tag:                      0
    Ogg::Vorbis::Header::PurePerl: 0

distribution_type: module
generated_by: ExtUtils::MakeMaker version 6.30_01

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
    NAME              => 'Audio::File',
    VERSION_FROM      => 'lib/Audio/File.pm', # finds $VERSION
    PREREQ_PM         => {
			'Audio::FLAC::Header'			=> 0,
			'Ogg::Vorbis::Header::PurePerl'	=> 0,
			'MP3::Info'						=> 0,
			'MP3::Tag'						=> 0,
	}, # e.g., Module::Name => 1.1
    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
      (ABSTRACT_FROM  => 'lib/Audio/File.pm', # retrieve abstract from module
       AUTHOR         => 'Florian Ragwitz <flora@cpan.org>') : ()),
);

README  view on Meta::CPAN

   make
   make test
   make install

DEPENDENCIES

This module requires these other modules and libraries:

  Audio::FLAC
  Ogg::Vorbis::Header::PurePerl
  MP3::Tag
  MP3::Info

COPYRIGHT AND LICENCE

Copyright (C) 2004 by Florian Ragwitz

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

lib/Audio/File/Mp3/Tag.pm  view on Meta::CPAN

package Audio::File::Mp3::Tag;

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

our $VERSION = '0.05';

sub init {
	my $self = shift;
	$self->{mp3} = MP3::Tag->new( $self->{filename} ) or return;
	$self->{mp3}->get_tags();

	my $info = $self->{mp3}->autoinfo;
	my $track = $info->{track};
	my $pos = index($track, '/');

	$self->title  (	$info->{ title   } );
	$self->artist (	$info->{ artist  } );
	$self->album  (	$info->{ album   } );
	$self->comment(	$info->{ comment } );