File Coverage

blib/lib/Tanker/RequestGenerator.pm

Criterion	Covered	Total	%
statement	16	17	94.1
branch			n/a
condition	2	5	40.0
subroutine	4	5	80.0
pod	0	2	0.0
total	22	29	75.8

package Tanker::RequestGenerator;

use strict;
use warnings;
use Tanker::Request;

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 pipeline
	my $pipeline = shift || die "You must pass a pipeline file to $class\n";

	# bless our self into a hash
        my $self  = {};
        bless ($self, $class);

	$self->{pipeline} = $pipeline;

	# and give it on back
        return $self;
}

sub run($)
{
	# do nothing
}

1;
__END__