Net::iTMS::Genre - Represents a genre in the iTunes Music Store

Net-iTMS documentation Contained in the Net-iTMS distribution.

Index

Code Index:

NAME

Top

Net::iTMS::Genre - Represents a genre in the iTunes Music Store

DESCRIPTION

Top

A Net::iTMS::Genre object represents a genre in the iTMS. Currently, it's only a shell object, but in future releases it will be able to be used to "browse" genres ($genre->artists, $genre->top_songs, etc.).

Methods

new($itms, $genreId)

The first argument must be an instance of Net::iTMS, the second an iTMS genre ID.

Returns a blessed hashref (object) for Net::iTMS::Genre.

id

Returns the ID of the genre (genreId).

name

Returns the name of the genre.

LICENSE

Top

Copyright 2004, Thomas R. Sibley.

You may use, modify, and distribute this package under the same terms as Perl itself.

AUTHOR

Top

Thomas R. Sibley, http://zulutango.org:82/

SEE ALSO

Top

Net::iTMS, Net::iTMS::Song, Net::iTMS::Album, Net::iTMS::Artist

Net-iTMS documentation Contained in the Net-iTMS distribution. 
package Net::iTMS::Genre;
#
# Written by Thomas R. Sibley, <http://zulutango.org:82/>
#
use warnings;
use strict;

use vars '$VERSION';
$VERSION = '0.13';

use Net::iTMS::Error;

use overload
	'""'     => sub { shift->as_string },
	fallback => 1;

sub as_string {
    my $self = shift;
    
    return defined $self
            ? $self->name
            : undef;
}


sub new {
    my ($class, $itms, $id, %prefill) = @_;
    
    my $self = bless {
        id    => $id,
        error => '',
        debug => defined $itms->{debug} ? $itms->{debug} : 0,
        _itms => $itms,
    }, $class;
    
    if (%prefill) {
        $self->{$_} = $prefill{$_}
            for keys %prefill;
    }
    
    return $self;
}


sub id { return $_[0]->{id} }
sub name { return $_[0]->{name} }


42;