MP3::Tag::LastResort - Module for using other fields to fill autoinfo fields.

MP3-Tag documentation Contained in the MP3-Tag distribution.

Index

Code Index:

NAME

Top

MP3::Tag::LastResort - Module for using other fields to fill autoinfo fields.

SYNOPSIS

Top

  my $mp3extra = MP3::Tag::LastResort::new_with_parent($filename, $parent);
  $comment = $mp3inf->comment();

see MP3::Tag

DESCRIPTION

Top

MP3::Tag::LastResort is designed to be called from the MP3::Tag module.

It uses the artist_collection() as comment() if comment() is not otherwise defined.

MP3-Tag documentation Contained in the MP3-Tag distribution. 
package MP3::Tag::LastResort;

use strict;
use vars qw /$VERSION @ISA/;

$VERSION="1.00";
@ISA = 'MP3::Tag::__hasparent';



# Constructor

sub new_with_parent {
    my ($class, $filename, $parent) = @_;
    bless {parent => $parent}, $class;
}

# Destructor

sub DESTROY {}

for my $elt ( qw( title track artist album year genre ) ) {
  no strict 'refs';
  *$elt = sub (;$) { return };
}

sub comment {
  shift->{parent}->artist_collection()
}

1;