File Coverage

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

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

sub results {
    my $self    = shift;
    my $results =
      $self->{content}->{GetAttributesResponse}{GetAttributesResult}{Attribute};
    my $attr = {};
    for my $a (@$results) {
        $attr->{$a->{'Name'}} ||= [];
        push @{$attr->{$a->{'Name'}}}, $a->{'Value'};
    }
    return $attr;
}

1;

__END__