Result:
found 35 distributions and 148 files matching your query ! ( run in 0.895 )


App-MusicExpo

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN


0.006 2015-08-02T01:05+03:00
 - Use fragments for music player to allow linking
 - Fix caching
 - Work with raw bytes instead of UTF-8
 - Replace MP3::Tag with MP3::Info
 - Simplify code and tests

0.005 2015-04-02T22:51+03:00
 - Add a javascript player
 - Add example CSS

Changes  view on Meta::CPAN

0.002 2013-08-18T10:41:44+03:00
 - Depend on less modules
 - Move default format inside the module
 - Do not cache by default
 - Change musicexpo's command-line arguments
 - Depend on a newer MP3::Tag
 - Write more tests

0.001001 2013-06-18
 - Add EXE_FILES, MIN_PERL_VERSION
 - Depend on DB_File

 view all matches for this distribution


Astroboy

 view release on metacpan or  search on metacpan

lib/Astroboy/AlbumFile.pm  view on Meta::CPAN

$VERSION = sprintf "%d.%02d", q$Revision: 1.6 $ =~ /(\d+)/g;
use Carp;
use LEOCHARRE::Class2;
use Cwd;
use File::PathInfo;
use MP3::Tag;
use Astroboy::Base;
__PACKAGE__->make_accessor_setget(qw(t is_mp3 f abs_path filename_clean refile_overrite
title track artist album comment year genre filename));

sub new {

lib/Astroboy/AlbumFile.pm  view on Meta::CPAN

      filename_clean => 0,
      refile_overrite => 0,
   };

   if ($self->{is_mp3}){
      $self->{t} = MP3::Tag->new($abs_path) or die;
      debug("is mp3, got tag object");

      my $info = $self->{t}->autoinfo;
      
      for my $k (qw(title track artist album comment year genre)){

lib/Astroboy/AlbumFile.pm  view on Meta::CPAN


Returns File::PathInfo object.

=head2 t()

Returns MP3::Tag object.

=head1 CAVEATS

This package is in development.
Do not use the api, use the cli.

 view all matches for this distribution


Audio-Cuefile-Libcue

 view release on metacpan or  search on metacpan

lib/Audio/Cuefile/Libcue.pm  view on Meta::CPAN


=item * L<Audio::Cuefile::Parser>, an older pure Perl cuesheet parser

=item * L<Audio::Cuefile::ParserPlus>, a newer Perl module which can also I<write> cuesheets.

=item * L<MP3::Tag::Cue>, a cue parser used as part of L<MP3::Tag>.

=back

=head1 REFERENCES

 view all matches for this distribution


Audio-File

 view release on metacpan or  search on metacpan

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, '/');

 view all matches for this distribution


Audio-M4P

 view release on metacpan or  search on metacpan

lib/Audio/M4P/QuickTime.pm  view on Meta::CPAN

	return 1;
}

#-----------------------------------------------------------

# MP3::Tag analogs, but more fields, and allow setting of tags

sub autoinfo {
    my ($self) = @_;
    my $tags = $self->GetMetaInfo;
    return (

lib/Audio/M4P/QuickTime.pm  view on Meta::CPAN

optional second argument, if true, prevents the method from replacing old meta
information, as in $qt->iTMS_MetaInfo($hashref, 1);

Note that although this method of manipulating M4P data tags is closest to the 
way iTMS and iTunes do metadata, it may be less intuitive for most audio tag 
programmers than the MP3::Tag and Audio::TagLib compatible methods below.

=item B<GetCoverArt>

  my $artwork = $qt->GetCoverArt();
  foreach my $pic (@{$artwork}) { 

lib/Audio/M4P/QuickTime.pm  view on Meta::CPAN

for jpeg, 14 for png graphics format, but defaults to 13.


=back

=head2 MP3::Tag and Audio::TagLib Compatible Functions

=over 4

=item B<autoinfo>

  my($title, $tracknum, $artist, $album, $comment, $year, $genre) =
    $qt->autoinfo;

Returns an array of tag metadata, similar to the same method in MP3::Tag.

=item B<album>

  my $album = $qt->album;
  $new_album = "My New Album Name";
  $qt->album($new_album);

Get and set title tag data.
Similar to the same method in MP3::TagLib.

Note this and other tag functions below will usually return the empty 
string "" when there is tag data lacking, unless an integer result is expected, 
in which case 0 is returned. This is for compatibility with MP3::Tag and 
Audio::TagLib's implementation of these methods.

=item B<artist>

  my $artist = $qt->artist;
  $new_artist = "My New Artist";
  $qt->artist($new_artist);

Get and set artist tag data.
Similar to the same method in MP3::TagLib.

=item B<comment>

  my $comment = $qt->comment;
  $new_comment = "My Comment Goes Here";
  $qt->comment($new_comment);

Get and set comment tag data.
Similar to the same method in MP3::Tag.

=item B<genre>

  my $genre = $qt->genre;
  $new_genre = 18;

lib/Audio/M4P/QuickTime.pm  view on Meta::CPAN

  my $title = $qt->title;
  $new_title = "My New One";
  $qt->title($new_title);

Get and set title tag data.
Similar to the same method in MP3::Tag.

=item B<track>

  my $track = $qt->track;
  my $new_track = 3;

lib/Audio/M4P/QuickTime.pm  view on Meta::CPAN

  my $new_track_number = 3;
  my $total_tracks_on_CD = 17;
  $qt->tracks($new_track_number, $total_tracks_on_CD);

Get or set both the track number and the total tracks on the originating media 
work. Not actually an MP3::Tag method, but MP4 files, unlike many MP3 files, 
regularly contain both track number and the total originating CD's track count.

=item B<total>

  my $total = $qt->total;

lib/Audio/M4P/QuickTime.pm  view on Meta::CPAN

  my $year = $qt->year;
  $new_year = "My New One";
  $qt->year($new_year);

Get and set year tag data.
Similar to the same method in MP3::Tag.

=item B<all_tags>

  my $tref = $qt->all_tags( album => "My new album", genre => 21 );
  print $tref->{artist};

lib/Audio/M4P/QuickTime.pm  view on Meta::CPAN


=over 4

=item L<LWP::UserAgent::iTMS_Client>, L<iTunes::Sid>

=item L<MP3::Info>, L<MP4::Info>, L<MP3::Tag>, L<Audio::TagLib>, L<Audio::File::Tag>, L<Mac::iTunes>, L<Net::iTMS>, L<LWP::UserAgent::iTMS_Client>

=back

=head1 AUTHOR 

 view all matches for this distribution


AudioFile-Info-MP3-Tag

 view release on metacpan or  search on metacpan

lib/AudioFile/Info/MP3/Tag.pm  view on Meta::CPAN

=head1 NAME

AudioFile::Info::MP3::Tag - Perl extension to get info from MP3 files.

=head1 DESCRIPTION

This is a plugin for AudioFile::Info which uses MP3::Tag to get or set
data about MP3 files.

See L<AudioFile::Info> for more details.

=cut

package AudioFile::Info::MP3::Tag;

use 5.006;
use strict;
use warnings;
use Carp;

use MP3::Tag;

our $VERSION = '1.6.4';

my %data = (artist => ['artist', 'TPE1'],
            title  => ['song', 'TIT2'],

lib/AudioFile/Info/MP3/Tag.pm  view on Meta::CPAN

            genre  => ['genre', 'TCON']);

sub new {
  my $class = shift;
  my $file = shift;
  my $obj = MP3::Tag->new($file);
  $obj->get_tags;

  bless { obj => $obj }, $class;
}

lib/AudioFile/Info/MP3/Tag.pm  view on Meta::CPAN


=head1 METHODS

=head2 new

Creates a new object of class AudioFile::Info::MP3::Tag. Usually called
by AudioFile::Info::new.

=head1 AUTHOR

Dave Cross, E<lt>dave@mag-sol.comE<gt>

 view all matches for this distribution




Bundle-OS2_default

 view release on metacpan or  search on metacpan

Bundle/OS2_default7.pm  view on Meta::CPAN


CPANPLUS::Shell::Curses

MP3::Info

MP3::Tag

Inline::C			- needs manual Yes (can't find gcc)

Data::Buffer

 view all matches for this distribution


Dancer-SearchApp

 view release on metacpan or  search on metacpan

bin/index-url.pl  view on Meta::CPAN

        #my $meta = $info->meta;
        
        #$res{ mime_type } = $meta->{"Content-Type"};
        
        if( 0 and $res{ mime_type } =~ m!^audio/mpeg$! ) {
            require MP3::Tag;
            my $mp3 = MP3::Tag->new($url);
            my ($title, $track, $artist, $album, $comment, $year, $genre) = $mp3->autoinfo();
            $res{ title } = $title;
            $res{ author } = $artist;
            $res{ language } = 'en'; # ...
            $res{ content } = join "-", $artist, $album, $track, $comment, $genre;

 view all matches for this distribution


Dist-Zilla-PluginBundle-Author-TABULO

 view release on metacpan or  search on metacpan

Notes/cpan-namespaces/cpan-namespaces-L1-L2.txt  view on Meta::CPAN

MP3::Player
MP3::Podcast
MP3::PodcastFetch
MP3::Splitter
MP3::TAG
MP3::Tag
MP3IndexerService
MP4
MP4::File
MP4::Info
MP4::LibMP4v2

 view all matches for this distribution


File-Sticker

 view release on metacpan or  search on metacpan

lib/File/Sticker/Scribe/Mp3.pm  view on Meta::CPAN


=cut

use common::sense;
use File::LibMagic;
use MP3::Tag;

use parent qw(File::Sticker::Scribe);

# FOR DEBUGGING
=head1 DEBUGGING

lib/File/Sticker/Scribe/Mp3.pm  view on Meta::CPAN

sub read_meta {
    my $self = shift;
    my $filename = shift;
    say STDERR whoami(), " filename=$filename" if $self->{verbose} > 2;

    my $mp3 = MP3::Tag->new($filename);
    my %meta = ();

    my $known_fields = $self->known_fields();
    foreach my $field (sort keys %{$known_fields})
    {

lib/File/Sticker/Scribe/Mp3.pm  view on Meta::CPAN


    my $filename = $args{filename};
    my $field = $args{field};
    my $value = $args{value};

    my $mp3 = MP3::Tag->new($filename);
    $mp3->config(write_v24=>1);

    if ($field eq 'title')
    {
        $mp3->album_set($value);

lib/File/Sticker/Scribe/Mp3.pm  view on Meta::CPAN

    say STDERR whoami(), " filename=$args{filename}" if $self->{verbose} > 2;

    my $filename = $args{filename};
    my $field = $args{field};

    my $mp3 = MP3::Tag->new($filename);
    $mp3->config(write_v24=>1);

    if ($field eq 'title')
    {
        $mp3->album_set('');

 view all matches for this distribution


Linux-DVB-DVBT-Apps-QuartzPVR

 view release on metacpan or  search on metacpan

lib/Linux/DVB/DVBT/Apps/QuartzPVR.pm  view on Meta::CPAN


	use App::Framework ;
	use Linux::DVB::DVBT ;
	use Linux::DVB::DVBT::TS ;
	use Linux::DVB::DVBT::Advert ;
	use MP3::Tag ;
	use DBI ;
	use DBD::mysql ;
	use Net::Server::Fork ;


 view all matches for this distribution


MP3-CreateInlayCard

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension MP3::CreateInlayCard.

0.05  2009/02/11
    - Oops, last release still had the problem of declaring MP3::Tag as a
      requisite, but not MP3::Info, which MP3::Tag requires to actually do
      anything.  Converted to use Music::Tag, a step in the right direction
      towards supporting various file types.
      Also, generate META.yml via the Makefile.PL instead of by hand.

0.04  2009/02/09

 view all matches for this distribution


MP3-Find

 view release on metacpan or  search on metacpan

lib/MP3/Find.pm  view on Meta::CPAN


=head1 REQUIRES

L<File::Find>, L<MP3::Info>, and L<Scalar::Util> are needed for
the filesystem backend (L<MP3::Find::Filesystem>). In addition,
if L<MP3::Tag> is available, you can search by explicit ID3v2
tag frames.

L<DBI>, L<DBD::SQLite>, and L<SQL::Abstract> are needed for the
database backend (L<MP3::Find::DB>).

 view all matches for this distribution


MP3-PodcastFetch

 view release on metacpan or  search on metacpan

lib/MP3/PodcastFetch.pm  view on Meta::CPAN


Depending on what optional Perl ID3 manipulation modules you have
installed, you may be limited in what level of ID3 tag you can update:

 Audio::TagLib            all versions through 2.4
 MP3::Tag                 all versions through 2.3
 MP3::Info                only version 1.0

Choosing "auto" is your best bet. It will dynamically find what Perl
modules you have installed, and choose the one that provides the most
recent tag version. Omit this argument, or set it to false, to prevent

 view all matches for this distribution


MP3-Tag-Utils

 view release on metacpan or  search on metacpan

lib/MP3/Tag/Utils.pm  view on Meta::CPAN

package MP3::Tag::Utils;

use warnings;
use strict;
use MP3::Tag;
use Text::NeatTemplate;

=head1 NAME

MP3::Tag::Utils - Assorted utilities for manipulating MP3 files via MP3::Tag.

=head1 VERSION

Version 0.0.3

lib/MP3/Tag/Utils.pm  view on Meta::CPAN

our $VERSION = '0.0.3';


=head1 SYNOPSIS

    use MP3::Tag::Utils;

    my $foo = MP3::Tag::Utils->new();
    ...

=head1 METHODS

=head2 new

lib/MP3/Tag/Utils.pm  view on Meta::CPAN

		$self->{errorString}='Track is not numeric';
		warn($self->{module}.' '.$method.':'.$self->error.': '.$self->{errorString});
		return undef;		
	}

	my $mp3=MP3::Tag->new($args{file});

	delete($args{file});

	$mp3->update_tags(\%args);

lib/MP3/Tag/Utils.pm  view on Meta::CPAN

			( $args{files}[$int] !~ /\.[Mm][Pp]3$/ )
			) {
			$toreturn->{success}=0;
			push( @{ $self->{failed} }, $args{file}[$int] );
		}else {
			my $mp3=MP3::Tag->new( $args{files}[$int] );
			my ($title, $track, $artist, $album, $comment, $year, $genre) = $mp3->autoinfo();

			my $int2=length($track);
			while ($int2 < $args{padto}) {
				$track='0'.$track;

lib/MP3/Tag/Utils.pm  view on Meta::CPAN

			( $args{files}[$int] !~ /\.[Mm][Pp]3$/ )
			) {
			$toreturn->{success}=0;
			push( @{ $self->{failed} }, $args{file}[$int] );
		}else {
			my $mp3=MP3::Tag->new( $args{files}[$int] );
			my ($title, $track, $artist, $album, $comment, $year, $genre) = $mp3->autoinfo();

			my $int2=length($track);
			while ($int2 < $args{padto}) {
				$track='0'.$track;

lib/MP3/Tag/Utils.pm  view on Meta::CPAN


=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc MP3::Tag::Utils


You can also look for information at:

=over 4

lib/MP3/Tag/Utils.pm  view on Meta::CPAN

See http://dev.perl.org/licenses/ for more information.


=cut

1; # End of MP3::Tag::Utils

 view all matches for this distribution


MP3-Tag

 view release on metacpan or  search on metacpan

examples/Music_Normalize_Fields-normalize.pl  view on Meta::CPAN

#!/usr/bin/perl -w
use strict;
use Music_Translate_Fields;
use MP3::Tag;

my $tag = MP3::Tag->new(q(/dev/null)) or die;
$tag->config(parse_data => [qw(mi %a), shift]);
$tag->Music_Translate_Fields::normalize_file_lines(shift);

 view all matches for this distribution


Module-MetaInfo

 view release on metacpan or  search on metacpan

test-data/03modlist.data  view on Meta::CPAN

    'Provide routine to transform HTML to MIME',
    'ALIAN',
    '15'
  ],
  [
    'MP3::Tag',
    'b',
    'd',
    'p',
    'O',
    'Tag - Module for reading tags of mp3 files',

 view all matches for this distribution


Music-Tag-FLAC

 view release on metacpan or  search on metacpan

lib/Music/Tag/FLAC.pm  view on Meta::CPAN

   Music::Tag
   Audio::FLAC::Header

The version info in the Makefile is based on what I use.  You can get 
away with older versions in many cases. Do not install an older version
of MP3::Tag.

=head1 TEST FILES

Test files for this module are based on the sample file for Audio::M4P.  For testing only.

 view all matches for this distribution


Music-Tag-MP3

 view release on metacpan or  search on metacpan

lib/Music/Tag/MP3.pm  view on Meta::CPAN

# Copyright © 2007,2010 Edward Allen III. Some rights reserved.
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the README file.

use MP3::Tag;
use MP3::Info;
use base qw(Music::Tag::Generic);

sub default_options {
    { apic_cover => 1, };

lib/Music/Tag/MP3.pm  view on Meta::CPAN


sub mp3 {
    my $self = shift;
    unless ( ( exists $self->{'_mp3'} ) && ( ref $self->{'_mp3'} ) ) {
        if ( $self->info->get_data('filename') ) {
            $self->{'_mp3'} = MP3::Tag->new( $self->info->get_data('filename') );
        }
        else {
            return undef;
        }
    }

lib/Music/Tag/MP3.pm  view on Meta::CPAN


=for readme continue

=head1 DESCRIPTION

Music::Tag::MP3 is used to read id3 tag information. It uses MP3::Tag to read id3v2 and id3 tags from mp3 files. As such, it's limitations are the same as MP3::Tag. It does not write id3v2.4 tags, causing it to have some trouble with unicode.

=begin readme

=head1 INSTALLATION

lib/Music/Tag/MP3.pm  view on Meta::CPAN

=head1 DEPENDENCIES

This module requires these other modules and libraries:

   Muisc::Tag
   MP3::Tag
   MP3::Info

Do not install an older version of MP3::Tag. 

=head1 NOTE ON ID3v2.4 TAGS

There seems to be a bug with MP3::Tag::ID3v2 0.9709. To use ID3v2.4 tags,
download MP3::Tag from CPAN and apply the following patch:

   patches/MP3-Tag-0.9709.ID3v2.4.patch

To do this change directory to the MP3::Tag download directory and type

   patch -p1 < ../Music-Tag-MP3/patches/MP3-Tag-0.9709.ID3v2.4.patch

Then install as normal

lib/Music/Tag/MP3.pm  view on Meta::CPAN


Remove the tag from the file.

=item B<close()>

Close the file and destroy the MP3::Tag object.

=item B<mp3()>

Returns the MP3::Tag object

=item B<calculate_gapless()>

Calculate gapless playback information.  Requires patched version of MP3::Info and Math::Int64 to work.

lib/Music/Tag/MP3.pm  view on Meta::CPAN


=back

=head1 BUGS

ID3v2.4 is not read reliably and can't be written.  Apic cover is unreliable in older versions of MP3::Tag.  

Please use github for bug tracking: L<http://github.com/riemann42/Music-Tag-MP3/issues|http://github.com/riemann42/Music-Tag-MP3/issues>.

=head1 SEE ALSO

L<MP3::Tag|MP3::Tag>, L<MP3::Info|MP3::Info>, L<Music::Tag|Music::Tag>

=for readme continue

=head1 SOURCE

 view all matches for this distribution


Music-Tag-MusicBrainz

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN


DEPENDENCIES

This module requires these other modules and libraries:

   MP3::Tag
   WebService::MusicBrainz

I strongly recommend the following to improve web searches:

   Lingua::EN::Inflect

 view all matches for this distribution


Music-Tag

 view release on metacpan or  search on metacpan

bin/musictag  view on Meta::CPAN


Trust total number of tracks.  Used by MusicBrainz and Amazon plugins.

=item --striptags

Remove tag from file before writing new tag.  Only used by MP3::Tag at the moment.  Useful to convert from id3v2.4 to id3v2.3 or to clean up cruft
from tags.

=item --safe

Do not change artist, album, title, and track number.  Useful if all you want is a cover, and don't want to risk changing these.

 view all matches for this distribution


MusicRoom

 view release on metacpan or  search on metacpan

lib/MusicRoom/CoverArt.pm  view on Meta::CPAN


use strict;
use warnings;
use Carp;

use MP3::Tag;
use MusicRoom::File;
use MusicRoom::Track;
use MusicRoom::Locate;

use constant COVERART_LOCATOR => "coverart";

lib/MusicRoom/CoverArt.pm  view on Meta::CPAN

    if(!-w $mp3_file)
      {
        carp("Cannot write to $mp3_file");
        return undef;
      }
    my $mp3 = MP3::Tag->new($mp3_file);

    if(!defined $mp3)
      {
        carp("Cannot read tags from $mp3_file");
        return undef;

lib/MusicRoom/CoverArt.pm  view on Meta::CPAN

  }

sub picture_type_idx
  {
    # Given a picture type string convert it into a number suitable
    # for MP3::Tag
    my($picture_type) = @_;

    # The picture types that are currently understood (from MP3::Tag::ID3v2):
    my @picture_types =
         ("Other", "32x32 pixels 'file icon' (PNG only)", "Other file icon",
           "Cover (front)", "Cover (back)", "Leaflet page",
           "Media (e.g. lable side of CD)", "Lead artist/lead performer/soloist"
,

 view all matches for this distribution


Netx-WebRadio

 view release on metacpan or  search on metacpan

Examples/FileWriter/Netx/WebRadio/Station/Shoutcast/FileWriter.pm  view on Meta::CPAN


sub setMP3Tag {
	my $self = shift;
	my ($filename, $artist, $song) = @_;
	return unless $filename;
	use MP3::Tag;
	my $mp3 = MP3::Tag->new( $filename );
	unless ( exists $mp3->{ ID3v1 } ) {
		$mp3->new_tag( 'ID3v1' );
	}
	my $id3v1 = $mp3->{ ID3v1 };
	$id3v1->all( $song, $artist, '',2003,'',0,'' );

 view all matches for this distribution


POE-Component-NomadJukebox

 view release on metacpan or  search on metacpan

NomadJukebox.pm  view on Meta::CPAN


use strict;
use POE;
# import these, the other functions are OO
use POE::Component::NomadJukebox::Device qw(Discover Open ProgressFunc);
use MP3::Tag;
use Carp qw(croak);

our $VERSION = '0.02';

# our device constants

NomadJukebox.pm  view on Meta::CPAN

=pod

=head2 send_track => '/path/to/file.mp3' or send_track => <hashref track info>

This will send a file to the Nomad Jukebox.  You can specify the full path to
the file, and allow the component to extract the mp3 tags (using MP3::Tag), or
you can specify them yourself with a hashref with the following keys:

	FILE => '/path/to/file.mp3',
	CODEC => 'MP3', # MP3, WMA, or WAV
	TITLE => 'Title of song',

NomadJukebox.pm  view on Meta::CPAN

			return undef;
		}
		if ($track =~ m/mp3$/i) {
			$t->{CODEC} = 'MP3';			
			# TODO does the jukebox support anything other than MP3
	    	my $mp3 = MP3::Tag->new($track);
			if ($mp3) {
				($t->{TITLE}, $t->{TRACK}, $t->{ARTIST}, $t->{ALBUM})
					= $mp3->autoinfo();
				if (exists $mp3->{ID3v1}) {
					$t->{GENRE} =  $mp3->{ID3v1}->{genre};

NomadJukebox.pm  view on Meta::CPAN


There are some more api functions I need to cover.

=head1 SEE ALSO

perl(1), L<MP3::Tag>

=cut

 view all matches for this distribution


Parse-CPAN-Modlist

 view release on metacpan or  search on metacpan

t/data/03modlist.data  view on Meta::CPAN

'Provide routine to transform HTML to MIME',
'ALIAN',
'15'
],
[
'MP3::Tag',
'b',
'd',
'p',
'O',
'?',

 view all matches for this distribution


SWISH-Filter

 view release on metacpan or  search on metacpan

lib/SWISH/Filters/ID3toHTML.pm  view on Meta::CPAN


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

    my $self = bless { mimetypes => [qr!audio/mpeg!], }, $class;
    return $self->use_modules(qw( MP3::Tag ));
}

sub filter {
    my ( $self, $doc ) = @_;

lib/SWISH/Filters/ID3toHTML.pm  view on Meta::CPAN

}

# =======================================================================
sub get_id3_content_ref {
    my ( $self, $filename, $doc ) = @_;
    my $mp3 = MP3::Tag->new($filename);

    # return unless we have a file with tags
    return format_empty_doc($filename)
        unless ref $mp3 && $mp3->get_tags();

lib/SWISH/Filters/ID3toHTML.pm  view on Meta::CPAN

=head1 DESCRIPTION

SWISH::Filters::ID3toHTML translates ID3 tags into HTML
metadata for use by the SWISH::Filter module and SWISH-E.

Requires CPAN module B<MP3::Tag>.
    
=head1 SUPPORT

Please contact the Swish-e discussion list.
http://swish-e.org/

 view all matches for this distribution


Syntax-Highlight-Universal

 view release on metacpan or  search on metacpan

lib/Syntax/Highlight/Universal/hrc/base/perl-genkeywords.hrc  view on Meta::CPAN

<scheme xmlns="http://colorer.sf.net/2003/hrc" name="package-MP3" if="use-package-MP3">
   <keywords region="packages">
      <word name="MP3::Daemon"/>
      <word name="MP3::Info"/>
      <word name="MP3::M3U"/>
      <word name="MP3::Tag"/>
   </keywords>
</scheme>
<scheme xmlns="http://colorer.sf.net/2003/hrc" name="package-MPEG" if="use-package-MPEG">
   <keywords region="packages">
      <word name="MPEG::ID3v1Tag"/>

 view all matches for this distribution


TableDataBundle-CPAN-Release-Static-Older

 view release on metacpan or  search on metacpan

share/2006.csv  view on Meta::CPAN

Net-Google-Calendar-0.1_devel,2006-04-26T14:25:02,SIMONW,cpan,released,0.1_devel,1,Net-Google-Calendar,"programmatic access to Google's Calendar API"
RiveScript-0.21,2006-04-26T14:48:13,KIRSLE,backpan,released,0.21,,RiveScript,"Rendering Intelligence Very Easily"
Class-STL-Containers-0.16,2006-04-26T14:54:35,GAFFIE,backpan,released,0.16,,Class-STL-Containers,"Perl extension for STL-like object management"
Tie-Array-Packed-0.03,2006-04-26T15:29:58,SALVA,backpan,released,0.03,1,Tie-Array-Packed,"store arrays in memory efficiently as packed strings"
Catalyst-Plugin-Cache-FastMmap-0.6,2006-04-26T15:54:56,MRAMBERG,cpan,released,0.6,1,Catalyst-Plugin-Cache-FastMmap,"Mmap cache"
Template-Plugin-MP3-Tag-0.01,2006-04-26T16:05:52,TRAVAIL,latest,released,0.01,1,Template-Plugin-MP3-Tag,"Interface to the MP3::Tag Module"
Catalyst-Model-DBIC-Schema-0.13,2006-04-26T16:32:12,MSTROUT,backpan,released,0.13,,Catalyst-Model-DBIC-Schema,"DBIx::Class::Schema Model Class"
Number-Format-1.51,2006-04-26T16:52:23,WRW,backpan,released,1.51,,Number-Format,"Perl extension for formatting numbers"
Net-FeedBurner-0.01,2006-04-26T17:10:57,SOCK,backpan,released,0.01,1,Net-FeedBurner,"The great new Net::FeedBurner!"
RFID-Base-0.005,2006-04-26T17:17:19,GIFF,latest,released,0.005,,RFID-Base,"Abstract base class for an RFID tag object"
RFID-Alien-0.003,2006-04-26T17:19:06,GIFF,latest,released,0.003,,RFID-Alien,"Abstract base class for a Alien RFID reader"

 view all matches for this distribution


( run in 0.895 second using v1.01-cache-2.11-cpan-fd5d4e115d8 )