view release on metacpan or  search on metacpan

examples/conditional_loading.pl  view on Meta::CPAN

#!/usr/bin/perl

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

my %connection_details = ( host => 'localhost', @ARGV);
my $ssh = ssh_connection(%connection_details);
print "ssh: ", Dumper($ssh), "\n";
exit (0);

BEGIN {
    eval {
        require Net::SSH2;
        warn "Net::SSH2 loaded";
        1;
    } or eval {