File Coverage

lib/Amazon/SimpleDB/QueryResponse.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package Amazon::SimpleDB::QueryResponse;
use strict;
use warnings;

use base 'Amazon::SimpleDB::Response';

use Amazon::SimpleDB::Item;
use Carp qw( croak );

sub new {
    my $class = shift;
    my $args = shift || {};
    croak "No domain" unless $args->{domain};
    return $class->SUPER::new($args);
}

sub results {
    my $self    = shift;
    my $results = $self->{content}->{QueryResponse}{QueryResult}{ItemName};
    $self->{next} = $self->{content}->{QueryResponse}{QueryResult}{NextToken};
    my @items = map {
        Amazon::SimpleDB::Item->new(
                                    {
                                     name    => $_,
                                     domain  => $self->{domain},
                                     account => $self->{account}
                                    }
        );
    } @$results;
    return wantarray ? @items : $items[0];
}

sub next { return $_[0]->{next} }

1;

__END__