File Coverage

blib/lib/WWW/Discogs/Master.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition	2	4	50.0
subroutine	8	8	100.0
pod	0	3	0.0
total	36	41	87.8

package WWW::Discogs::Master;

use strict;
use warnings;
use NEXT;
use base qw ( WWW::Discogs::ReleaseBase );

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

    my $self = {};
    bless $self, $class;
    $self->EVERY::LAST::_init(@args);

    return $self;
}

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

    $self->{_versions}     = $args{versions}     || [];
    $self->{_main_release} = $args{main_release} || '';

    return $self;
}

sub versions {
    my $self = shift;
    return @{ $self->{_versions} };
}

sub main_release {
    my $self = shift;
    return $self->{_main_release};
}

1;