view release on metacpan or  search on metacpan

examples/conditional_loading.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/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 {