File Coverage

blib/lib/WWW/Discogs/ReleaseBase.pm

Criterion	Covered	Total	%
statement	47	47	100.0
branch	1	2	50.0
condition	12	20	60.0
subroutine	14	14	100.0
pod	0	9	0.0
total	74	92	80.4

package WWW::Discogs::ReleaseBase;

use strict;
use warnings;
use Carp;
use base qw( WWW::Discogs::HasMedia );

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

    croak "Can't create abstract object WWW::Discogs::ReleaseBase"
        if $class eq __PACKAGE__;
}

sub _init {
    my ($self, %args) = @_;

    $self->{_id}           = $args{id}           || '';
    $self->{_year}         = $args{year}         || '';
    $self->{_notes}        = $args{notes}        || '';
    $self->{_styles}       = $args{styles}       || [];
    $self->{_genres}       = $args{genres}       || [];
    $self->{_artists}      = $args{artists}      || [];
    $self->{_extraartists} = $args{extraartists} || [];
    $self->{_tracklist}    = $args{tracklist}    || [];
    $self->{_params}       = $args{_params}      || {};
    $self->{_uri}          = $args{_uri}         || '';

    return $self;
}

sub id {
    my $self = shift;
    return $self->{_id};
}

sub year {
    my $self = shift;
    return $self->{_year};
}

sub notes {
    my $self = shift;
    return $self->{_notes};
}

sub styles {
    my $self = shift;
    return @{ $self->{_styles} };
}

sub genres {
    my $self = shift;
    return @{ $self->{_genres} };
}

sub artists {
    my $self = shift;
    return @{ $self->{_artists} };
}

sub extraartists {
    my $self = shift;
    return @{ $self->{_extraartists} };
}

sub tracklist {
    my $self = shift;
    return @{ $self->{_tracklist} };
}

1;