File Coverage

blib/lib/WWW/Google/Cloud/Messaging/Response/ResultSet.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition	2	2	100.0
subroutine	5	5	100.0
pod	2	2	100.0
total	26	26	100.0

package WWW::Google::Cloud::Messaging::Response::ResultSet;

use strict;
use warnings;

use WWW::Google::Cloud::Messaging::Response::Result;

sub new {
    my ($class, $results, $reg_ids) = @_;
    bless {
        results => $results,
        reg_ids => $reg_ids,
    }, $class;
}

sub next {
    my $self = shift;
    my $result = shift @{$self->{results}} || return;
    my $reg_id = shift @{$self->{reg_ids}};
    $result->{_reg_id} = $reg_id;
    WWW::Google::Cloud::Messaging::Response::Result->new($result);
}

1;
__END__