File Coverage

blib/lib/WWW/Tracking.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	5	8	62.5
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	54	57	94.7

package WWW::Tracking;

use warnings;
use strict;

our $VERSION = '0.04';

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

use Carp::Clan 'croak';
use Scalar::Util 'weaken';
use WWW::Tracking::Data;

__PACKAGE__->mk_accessors(qw{
	tracker_account
	tracker_type
	tracker_url
	data
});

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

	return $self;
}

sub from {
	my $self = shift;
	my $type = shift;
	my $args = shift;

	my $from_type = 'from_'.$type;

	croak 'no such data plugin for "'.$type.'"'
		unless WWW::Tracking::Data->can($from_type);

	my $tracking_data = WWW::Tracking::Data->$from_type($args);
	weaken($self);
	$tracking_data->_tracking($self);
	$tracking_data->new_visitor_id
		unless $tracking_data->visitor_id;

	$self->data($tracking_data);

	return $self;
}

sub make_tracking_request {
	my $self = shift;

	my $tracker_type = $self->tracker_type or croak 'tracker type not set';
	my $tracker_function = 'make_tracking_request_'.$tracker_type;

	croak 'no tracking with '.$tracker_type.'possible'
		unless $self->data->can($tracker_function);

	return $self->data->$tracker_function;
}

1;


__END__