view release on metacpan or  search on metacpan

inc/Module/Install/Fetch.pm  view on Meta::CPAN

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

lib/App/Unix/RPasswd.pm  view on Meta::CPAN

                my $msg =
                  ( $self->args->{debug} )
                  ? 'Running on ' 
                  . $server
                  . ' with password \''
                  . $self->args->{password} . '\'...'
                  : "Running on $server...";
                say $msg;
                my $status = eval {
                    local $SIG{ALRM} = sub {
                        say "Timeout exceeded for $server.";
                        die "Timeout exceeded\n";    # NB: \n required
                    };
                    alarm $self->args->{timeout};
                    return $self->_connection_obj->run(
                        $server,
                        $self->args->{password},
                        $self->args->{debug}
                    );
                    alarm 0;
                };
                if ( !$status ) { $error = $server; }