File Coverage

blib/lib/Tanker/Request.pm

Criterion	Covered	Total	%
statement	6	13	46.1
branch			n/a
condition	0	6	0.0
subroutine	2	4	50.0
pod	0	2	0.0
total	8	25	32.0

package Tanker::Request;

use strict;
use warnings;


sub new  ($$)
{
	# standard stuff for creating a new object
	# I'm not sure if this *should* be an object
	# but I think it'll probably be useful in the end
	my $proto  = shift;
        my $class  = ref($proto) || $proto;

	# yes, we must have a variable hash
	my $self = shift || warn "No variable hash was passed to this Request\n";

	# bless our self into a hash
        bless ($self, $class);

	# and give it on back
        return $self;
}

sub get_data ($)
{
	my ($self) = @_;

	return $self->{data};
}



1;
__END__