File Coverage

blib/lib/WWW/GoogleAnalytics/Mobile.pm

Criterion	Covered	Total	%
statement	45	48	93.7
branch	8	18	44.4
condition	1	3	33.3
subroutine	9	9	100.0
pod	2	2	100.0
total	65	80	81.2

package WWW::GoogleAnalytics::Mobile;

use strict;
use warnings;
use Carp;
use Digest::SHA qw/hmac_sha1_hex/;
use URI;
use URI::QueryParam;

use Plack::Util::Accessor qw/base_url account secret/;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $self;
    if (@_ == 1 && ref $_[0] eq 'HASH') {
        $self = bless {%{$_[0]}}, $class;
    } else {
        $self = bless {@_}, $class;
    }

    Carp::croak "google analytics mobile beacon base_url is needed" unless $self->base_url;
    Carp::croak "google analytics account id is needed" unless $self->account;
    Carp::croak "sercret key for checksum is needed" unless $self->secret;

    $self;
}

sub image_url {
    my $self = shift;
    my $env = shift;

    my $utmn = int(rand 0x7fffffff );
    my $referer = defined $env->{HTTP_REFERER} ? $env->{HTTP_REFERER} : "-";
    my $path = defined $env->{REQUEST_URI} ? $env->{REQUEST_URI} : "";

    my $domain = "";
    if ( defined $env->{HTTP_HOST} ) {
        $domain = $env->{HTTP_HOST};
    }
    elsif ( defined $env->{SERVER_NAME} ) {
        $domain = $env->{SERVER_NAME};
    }

    #guid cleanup
    if ( $referer ne "-") {
        my $r_uri = URI->new($referer);
        $r_uri->query_param_delete('guid');
        $referer = $r_uri->as_string;
    }

    my $digest = substr( hmac_sha1_hex($utmn . $domain . $path, $self->secret), 16, 6 );

    my $url = URI->new($self->base_url);
    $url->query_form_hash({
        utmac => $self->account,
        utmn  => $utmn,
        utmhn => $domain,
        utmr  => $referer,
        utmp  => $path,
        cs    => $digest,
        guid  => 'ON',
    });
    return $url;
}

1;

__END__