File Coverage

blib/lib/Net/OpenSSH/Compat.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch	0	4	0.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	25	64.0

package Net::OpenSSH::Compat;

our $VERSION = '0.09';

use strict;
use warnings;
use Carp;

my %impl = ('Net::SSH2'      => 'SSH2',
            'Net::SSH::Perl' => 'Perl',
            'Net::SSH'       => 'SSH');

sub import {
    my $class = shift;
    for my $mod (@_) {
        my $impl = $impl{$mod};
        defined $impl or croak "$mod compatibility is not available";
        my $adapter = __PACKAGE__ . "::$impl";
        eval "use $adapter ':supplant';";
        die if $@;
    }
    1;
}

1;
__END__