File Coverage

blib/lib/WWW/Tracking/Data.pm

Criterion	Covered	Total	%
statement	34	36	94.4
branch	3	4	75.0
condition	1	3	33.3
subroutine	9	10	90.0
pod	5	5	100.0
total	52	58	89.6

package WWW::Tracking::Data;

use warnings;
use strict;

our $VERSION = '0.02';

use base 'Class::Accessor::Fast';

use Digest::MD5 qw(md5_hex);
use Math::BaseCnv 'dec';

our @TRACKING_PROPERTIES = qw(
	hostname
	request_uri
	remote_ip
	user_agent
	referer
	browser_language
	timestamp
	encoding
	screen_color_depth
	screen_resolution
	visitor_id

	pdf_support
	cookie_support

	flash_version
	java_version
	quicktime_version
	realplayer_version
	mediaplayer_version
	gears_version
	silverlight_version
);

__PACKAGE__->mk_accessors(
	@TRACKING_PROPERTIES,
	'_tracking',
	'_gen_new_visitor_id',
);

sub new {
	my $class = shift;
	my $self  = $class->SUPER::new({
		'timestamp' => time(),
		@_
	});

	return $self;
}

sub as_hash {
	my $self = shift;

	return {
		map  { $_ => $self->$_ }
		grep { defined $self->$_ }
		@TRACKING_PROPERTIES
	};
}

sub from_hash {
	my $class = shift;
	my $data = shift;

	my $self = $class->new;
	foreach my $property_name (@TRACKING_PROPERTIES) {
		$self->{$property_name} = $data->{$property_name}
			if (exists $data->{$property_name});
	}
	$self->{'timestamp'} ||= time();

	return $self;
}

sub new_visitor_id {
	my $self = shift;

	my $gen_new_visitor_id = $self->_gen_new_visitor_id;
	return $gen_new_visitor_id->()
		if $gen_new_visitor_id;

	$self->visitor_id(substr(dec(md5_hex($self->user_agent.int(rand(0x7fffffff)))),0,32));

	return $self;
}

sub full_request_url {
	my $self = shift;
	return 'http://'.$self->hostname.$self->request_uri;
}

1;


__END__