File Coverage

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

Criterion	Covered	Total	%
statement	23	23	100.0
branch	5	6	83.3
condition	1	3	33.3
subroutine	4	4	100.0
pod			n/a
total	33	36	91.6

package Net::Google::Analytics::Request;
$Net::Google::Analytics::Request::VERSION = '3.05';
use strict;
use warnings;

# ABSTRACT: Google Analytics API request

use Class::XSAccessor
    accessors => [ qw(
        realtime
        ids
        start_date end_date
        metrics dimensions
        sort
        filters
        segment
        start_index max_results
        fields
        sampling_level
        pretty_print
        user_ip quota_user
    ) ],
    constructor => 'new';

my @param_map = (
    ids            => 'ids',
    start_date     => 'start-date',
    end_date       => 'end-date',
    metrics        => 'metrics',
    dimensions     => 'dimensions',
    sort           => 'sort',
    filters        => 'filters',
    segment        => 'segment',
    fields         => 'fields',
    sampling_level => 'samplingLevel',
    pretty_print   => 'prettyPrint',
    user_ip        => 'userIp',
    quota_user     => 'quotaUser',
);

sub _params {
    my $self = shift;

    my @required = qw(ids metrics);

    if (!$self->{realtime}) {
        push(@required, qw(start_date end_date));
    }

    for my $name (@required) {
        my $value = $self->{$name};
        die("parameter $name is empty")
            if !defined($value) || $value eq '';
    }

    my @params;

    for (my $i=0; $i<@param_map; $i+=2) {
        my $from = $param_map[$i];
        my $to   = $param_map[$i+1];

        my $value = $self->{$from};
        push(@params, $to => $value) if defined($value);
    }

    return @params;
}

1;

__END__