File Coverage

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

Criterion	Covered	Total	%
statement	6	14	42.8
branch	0	4	0.0
condition			n/a
subroutine	2	9	22.2
pod	7	7	100.0
total	15	34	44.1

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__