File Coverage

blib/lib/Parallel/Workers/Backend.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Parallel::Workers::Backend;

use warnings;
use strict;
use Carp;
use Data::Dumper;

use Module::Pluggable
  search_path => [ "Parallel::Workers::Backend" ],
  sub_name    => 'backends';




# Module implementation here
# ( backend=> "SSH", contructor => $value)
sub new {
    my $class = shift;
    my %args = @_;

    my $self = {};

    my ($backend) = $args{backend} || (grep !/::Null$/, $self->backends)[0];
    $backend ||= "Parallel::Workers::Backend::Null";

    eval "require $backend" or die $@;
    return unless $backend;
    $self->{backend} = $backend->new(%{$args{constructor}})  or return;

    bless $self, $class;
    return $self;
}


sub pre {
    my $self = shift;
    return $self->{backend}->pre( @_ );
}

sub do {
    my $self = shift;
    return $self->{backend}->do(@_);
}

sub post {
    my $self = shift;
    return $self->{backend}->post( @_ );
}



1; # Magic true value required at end of module
__END__