Audio::TagLib::APE::Tag - An APE tag implementation

  use Audio::TagLib::APE::Tag;

  my $i = Audio::TagLib::APE::Tag();
  $i->setTitle(Audio::TagLib::String->new("title"));
  print $i->title()->toCString(), "\n"; # got "title"

Note: Inherit from Tag

new()

Create an APE tag with default values.

new(File $file, IV $tagOffset)

Create an APE tag and parse the data in $file with APE footer at a $tagOffset.

DESTROY()

 Destroys this Tag instance.

ByteVector render()

Renders the in memory values to a ByteVector suitable for writing to the file.

ByteVector fileIdentifier() [static]

Returns the string "APETAGEX" suitable for usage in locating the tag in a file.

String title()

String artist()

String album()

String comment()

String genre()

IV year()

IV track()

void setTitle(String $s)

void setArtist(String $s)

void setAlbum(String $s)

void setComment(String $s)

void setGenre(String $s)

void setYear(IV $i)

void setTrack(IV $i)

see Tag

Footer footer()

Returns a pointer to the tag's footer.

RV itemListMap()

Returns a reference to a hash, which is tied with the returned item list map in C/C++ code. This is an ItemListMap of all of the items in the tag.

This is the most powerfull structure for accessing the items of the tag.

warning You should not modify this data structure directly, instead use setItem() and removeItem().

void removeItem(String $key)

 Removes the $key item from the tag

void addValue(String $key, String $value, BOOL $replace=TRUE)

Adds to the item specified by $key the data $value. If $replace is true, then all of the other values on the same key will be removed first.

void setItem(String $key, Item $item)

Sets the $key item to the value of $item. If an item with the $key is already present, it will be replaced.

None by default.

Audio::TagLib Tag

Dongxu Ma, <dongxu@cpan.org>

Copyright (C) 2005 by Dongxu Ma

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.7 or, at your option, any later version of Perl 5 you may have available.