File Coverage

blib/lib/Test/SSH/Backend/Remote.pm

Criterion	Covered	Total	%
statement	14	24	58.3
branch	1	6	16.6
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	18	34	52.9

package Test::SSH::Backend::Remote;

use strict;
use warnings;

require Test::SSH::Backend::Base;
our @ISA = qw(Test::SSH::Backend::Base);

sub new {
    my ($class, %opts) = @_;
    my $sshd = $class->SUPER::new(%opts);

    if (defined $sshd->{password}) {
        $sshd->_log("trying to authenticate using given password");
        $sshd->{auth_method} = 'password';
        if ($sshd->_test_server) {
            $sshd->_log("the given password can be used to connect to host");
            return $sshd;
        }
    }

    $sshd->_log("trying to authenticate using keys");
    $sshd->{auth_method} = 'publickey';
    for my $key (@{$sshd->{user_keys}}) {
        $sshd->_log("trying user key '$key'");
        $sshd->{key_path} = $key;
        if ($sshd->_test_server) {
            $sshd->_log("key '$key' can be used to connect to host");
            return $sshd;
        }
    }
    ()
}

1;