package Audio::TagLib::ID3v1::GenreMap; use 5.008003; use strict; use warnings; our $VERSION = '1.41'; use Audio::TagLib; # Preloaded methods go here. 1; __END__ # Below is stub documentation for your module. You'd better edit it! =head1 NAME Audio::TagLib::ID3v1::GenreMap - Perl-only class =head1 SYNOPSIS use Audio::TagLib::ID3v1::GenreMap; my $map = Audio::TagLib::ID3v1->genreMap(); tie my %map, ref($map), $map; print $map{(keys %map)[0]}, "\n"; # got 123 my ($first) = keys %map; print $first->toCString(), "\n"; # got "A Cappella" =head1 DESCRIPTION Implements TagLib::ID3v1::GenreMap in C/C++ code, which is of type TagLib::MapEL, intE. Optionally, you can tie an instance of ItemListMap with a hash symbol, just like this: C, Then operate throught I<%h>. see L =over =item I Constructs an empty GenreMap. =item I $m)> Make a shallow, implicitly shared, copy of $m. =item I Destroys this instance of the GenreMap. =item I begin()> Returns an STL style iterator to the beginning of the map. see L =item I end()> Returns an STL style iterator to the end of the map. see L =item I $key, IV $value)> Inserts $value under $key in the map. If a value for $key already exists it will be overwritten. =item I Removes all of the elements from elements from the map. This however will not free memory of all the items. =item I The number of elements in the map. see I =item I Returns true if the map is empty. see I =item I find(L $key)> Find the first occurance of $key. =item I $key)> Returns true if the map contains an instance of $key. =item I $it)> Erase the item at $it from the list. =item I $key)> Returns the value associated with $key. note This has undefined behavior if the key is not present in the map. =item I $m)> Make a shallow, implicitly shared, copy of $m. =back =head2 EXPORT None by default. =head1 SEE ALSO L =head1 AUTHOR Dongxu Ma, Edongxu@cpan.orgE =head1 COPYRIGHT AND LICENSE 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. =cut