File Coverage

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

Criterion	Covered	Total	%
statement	22	24	91.6
branch	4	6	66.6
condition	2	2	100.0
subroutine	16	17	94.1
pod	15	15	100.0
total	59	64	92.1

package WWW::Google::ClientLogin::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 status_line {
    my $self = shift;
    sprintf '%d %s', $self->code, $self->message;
}

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

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

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

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

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

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

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

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

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

1;
__END__