File Coverage

blib/lib/XML/Amazon/Collection.pm

Criterion	Covered	Total	%
statement	9	34	26.4
branch	0	4	0.0
condition			n/a
subroutine	3	9	33.3
pod	6	6	100.0
total	18	53	33.9

package XML::Amazon::Collection;
$XML::Amazon::Collection::VERSION = '0.14';
use strict;
use warnings;
use utf8;

sub new {
    my $pkg = shift;
    my $data = {
        total_results => undef,
        total_pages => undef,
        current_page => undef,
        collection => []
    };
    bless $data, $pkg;
    return $data;
}

sub add_Amazon {
    my $self = shift;
    my $add_data = shift;

    if(ref $add_data ne "XML::Amazon::Item") {
        warn "add_Amazon called with type ", ref $add_data;
        return undef;
    }
    push @{$self->{collection}}, $add_data;
}

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

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

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

sub collection {
    my $self = shift;
    my @list;
    LIST: for my $el (@{$self->{collection}}) {
        if (! $el) {
            last LIST;
        }
        push @list, $el;
    }
    return @list;
}

1;

__END__