File Coverage

lib/Amazon/SimpleDB/ListDomainsResponse.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::ListDomainsResponse;
use strict;
use warnings;

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

use Amazon::SimpleDB::Domain;

sub results {
    my $self    = shift;
    my $results =
      $self->{content}->{ListDomainsResponse}{ListDomainsResult}{DomainName};
    $self->{next} =
      $self->{content}->{ListDomainsResponse}{ListDomainsResult}{NextToken};
    my @domains = map {
        Amazon::SimpleDB::Domain->new({name => $_, account => $self->{account}})
    } @$results;
    return wantarray ? @domains : $domains[0];
}

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

1;

__END__