File Coverage

blib/lib/Net/Amazon/MechanicalTurk/Transport.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	7	8	87.5
pod	0	2	0.0
total	32	39	82.0

package Net::Amazon::MechanicalTurk::Transport;
use strict;
use warnings;
use Carp;
use Net::Amazon::MechanicalTurk::BaseObject;
use Net::Amazon::MechanicalTurk::ModuleUtil;

our $VERSION = '1.00';

our @ISA = qw{ Net::Amazon::MechanicalTurk::BaseObject };

use constant DEFAULT_TRANSPORT => "REST";

sub create {
    my $class = shift;
    my $transport = shift || $ENV{MTURK_TRANSPORT} || DEFAULT_TRANSPORT;
    my $module = "Net::Amazon::MechanicalTurk::Transport::${transport}Transport";
    if (!Net::Amazon::MechanicalTurk::ModuleUtil->tryRequire($module)) {
        Carp::croak "Could not load transport $transport - $@";
    }
    return $module->new(@_);
}

sub call {
    my ($self, $client, $operation, $params) = @_;
}

return 1;