File Coverage

blib/lib/Mojar/Google/Analytics/Response.pm

Criterion	Covered	Total	%
statement	6	23	26.0
branch	0	6	0.0
condition	0	22	0.0
subroutine	2	3	66.6
pod	1	1	100.0
total	9	55	16.3

package Mojar::Google::Analytics::Response;
use Mojo::Base -base;

our $VERSION = 1.001;

use Mojar::Util 'snakecase';

# Attributes

has [qw(content error success)];

has start_index => 1;
has contains_sampled_data => !!0;
has column_headers => sub {[]};
has total_results => 0;
has rows => sub {[]};
has [qw(items_per_page profile_info next_link totals_for_all_results)];

# Public methods

sub parse {
  my ($self, $res) = @_;

  if ($res->is_success) {
    delete @$self{qw(content error)};
    my $j = $res->json;
    $self->{snakecase($_)} = $j->{$_} for keys %$j;
    return $self->success(1);
  }
  else {
    # Got a transaction-level error
    $self->error({
      code => $res->code || 408,
      message => $res->message // 'Possible timeout'
    });

    if ($res and my $j = $res->json) {
      # Got JSON body in response
      $self->content($j);
      my $m = ref($j->{error}) ? $j->{error} : {message => $j->{error} // ''};

      # Got message record
      $self->{error}{code} = $m->{code} || $self->{error}{code} // 0;
      # Take note of headline error
      my $msg = ($m->{message} // $j->{message}) ."\n";

      for my $e (@{$m->{errors} // []}) {
        # Take note of next listed error
        $msg .= sprintf "%s at %s\n%s\n",
            $e->{reason}, ($e->{location} // $e->{domain}), $e->{message};
      }
      $self->{error}{message} = $msg;
    }
    return undef;
  }
}

1;
__END__