File Coverage

blib/lib/WWW/FCM/HTTP/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	0	2	0.0
total	24	26	92.3

package WWW::FCM::HTTP::Response::ResultSet;

use strict;
use warnings;
use WWW::FCM::HTTP::Response::Result;

sub new {
    my ($class, $results, $sent_reg_ids) = @_;

    bless {
        results      => $results,
        sent_reg_ids => $sent_reg_ids,
    }, $class;
}

sub next {
    my $self = shift;
    my $result      = shift @{ $self->{results} } || return;
    my $sent_reg_id = shift @{ $self->{sent_reg_ids} };
    $result->{_sent_reg_id} = $sent_reg_id;
    WWW::FCM::HTTP::Response::Result->new($result);
}

1;