File Coverage

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

Criterion	Covered	Total	%
statement	14	14	100.0
branch	4	4	100.0
condition			n/a
subroutine	9	9	100.0
pod	7	7	100.0
total	34	34	100.0

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

use strict;
use warnings;

sub new {
    my ($class, $result) = @_;
    bless $result, $class;
}

sub is_success {
    shift->error ? 0 : 1;
}

sub has_canonical_id {
    shift->registration_id ? 1 : 0;
}

sub message_id {
    shift->{message_id};
}

sub error {
    shift->{error};
}

sub registration_id {
    shift->{registration_id};
}

sub target_reg_id {
    shift->{_reg_id};
}

1;
__END__