File Coverage

blib/lib/WWW/Google/C2DM/Response.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	12	12	100.0
pod	10	10	100.0
total	46	46	100.0

package WWW::Google::C2DM::Response;

use strict;
use warnings;

sub new {
    my ($class, %args) = @_;
    $args{params} ||= {};
    bless { %args }, $class;
}

sub is_success {
    $_[0]->{is_success} ? 1 : 0;
}

sub has_error {
    !$_[0]->is_success;
}
*is_error = *has_error;

sub code {
    $_[0]->http_response->code;
}

sub message {
    $_[0]->http_response->message;
}

sub error_code {
    $_[0]->{error_code} || '';
}

sub status_line {
    $_[0]->http_response->status_line;
}

sub http_response {
    $_[0]->{http_response};
}
*res = *http_response;

sub params {
    $_[0]->{params};
}

sub id {
    $_[0]->params->{id};
}

1;
__END__