File Coverage

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

Criterion	Covered	Total	%
statement	38	43	88.3
branch	7	12	58.3
condition	4	15	26.6
subroutine	7	7	100.0
pod	1	1	100.0
total	57	78	73.0

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

our $VERSION = 0.012;

use Carp 'croak';
use Mojo::Parameters;
use Mojo::Util 'url_escape';
use POSIX 'strftime';

# Attributes

has 'access_token';
has 'ids';
has dimensions => sub {[]};
has metrics => sub {[]};
has 'segment';
has filters => sub {[]};
has sort => sub {[]};
has start_date => &_today;
has end_date   => &_today;
has start_index => 1;
has max_results => 10_000;

# Public methods

sub params {
  my $self = shift;
  my $param = Mojar::Google::Analytics::Request->new(%$self, @_);
  my $p = Mojo::Parameters->new;

  # Absorb driver params, using defaults if necessary
  for (qw(start_date end_date start_index max_results)) {
    my $k = $_;
    my $v = $param->$k;
    delete $param->{$k};
    $k =~ s/_/-/;
    $p = $p->append($k => $v);
  }

  for my $k (qw(dimensions metrics)) {
    my $v = $param->$k;
    if (not ref $v or ref $v ne 'ARRAY') {
      croak "Field $k needs to be an arrayref";
    }
    elsif (@$v >= 2 and @$v % 2 == 0 and $v->[1] and $v->[1] !~ /[a-z]/) {
      # Assume hash (declaring datatypes)
      my $a = 'ga:'. $v->[2 * 0];
      $a .= ',ga:'. $v->[2 * $_] for 1 .. (@$v / 2 - 1);
      $p = $p->append($k => $a);
      delete $param->{$k};
    }
  }

  # Absorb everything else
  for my $k (keys %$param) {
    my $v = $param->$k;
    $k =~ s/_/-/;
    if (ref $v) {
      # Array ref
      $v = join ',', map "ga:$_", @$v;
    }
    else {
      # Scalar
      my $descending = 0;
      $k eq 'sort' and $v =~ s/^-// and $descending = 1;
      $v = ($descending ? '-ga:' : 'ga:') . $v if defined $v;
    }
    $p = $p->append($k => $v);
  }
  return $p->to_string;
}

# Private methods

sub _today { strftime '%F', localtime }

1;
__END__