Timeout results from the CPAN

App-Test-DWG-LibreDWG-JSON

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-Test-Generator

1 match

view release on metacpan or search on metacpan

t/default_value_extraction.t view on Meta::CPAN

	);

	is(
		$db_input->{timeout}{_default},
		10,
		'Real-world: Timeout default'
	);

	# Test email method
	my $email_schema = $schemas->{send_email};
	my $email_input = $email_schema->{input};

view all matches for this distribution

App-ThinPacker

1 match

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-Tickit-Hello

1 match

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-Todo

1 match

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-Toolforge-MixNMatch

1 match

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-Translit-String

1 match

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-Twitch

1 match

view release on metacpan or search on metacpan

lib/App/Twitch.pm view on Meta::CPAN

	$self->_shorten if !$self->dryrun;
	$self->logger->info($self->logger_prefix.'Startup HTTP Service...');
	POE::Component::Client::HTTP->spawn(
		Agent				=> $self->http_agent,
		Alias				=> $self->_http_alias,
		Timeout				=> 30,
		ConnectionManager	=> $self->_keepalive,
		FollowRedirects		=> 5,
	);
	$self->_max_feeds_count;
	my $running_config_dumpfile = $self->tmpdir.'/'.$self->configfile;

view all matches for this distribution

App-USBKeyCopyCon

1 match

view release on metacpan or search on metacpan

lib/App/USBKeyCopyCon.pm view on Meta::CPAN

        do {
            $pid = waitpid(-1, WNOHANG);
            $exit_status->{$pid} = $? if $pid > 0;
        } while $pid > 0;
    };
    Glib::Timeout->add(500, sub { $self->tick });

    Gtk2->main;

    $self->restore_automount;
    $self->clean_temp_dir;

view all matches for this distribution

App-Unicode-Block

1 match

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-Unix-RPasswd

3 results

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-Video-Generator

1 match

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-WHMCSUtils

1 match

view release on metacpan or search on metacpan

Changes view on Meta::CPAN



0.010   2019-11-12  Released-By: PERLANCAR; Urgency: medium

	- Replace patching LWP::UserAgent from with
	  LWP::UserAgent::Patch::HTTPSHardTimeout to with
	  LWP::UserAgent::Patch::Retry.

	[whmcs-calc-deferred-revenue]

        - [doc] Add description and simplified example.

view all matches for this distribution

App-Wikidata-Print

1 match

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-Wikidata-Template-CS-CitaceMonografie

1 match

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-Workflow-Lint

5 results

view release on metacpan or search on metacpan

lib/App/Workflow/Lint/Engine.pm view on Meta::CPAN

use Carp qw(croak carp);

use YAML::XS qw(DumpFile);
use App::Workflow::Lint::YAML;
use App::Workflow::Lint::Rule::MissingPermissions;
use App::Workflow::Lint::Rule::MissingTimeout;
use App::Workflow::Lint::Rule::UnpinnedActions;
use App::Workflow::Lint::Rule::MissingConcurrency;
use App::Workflow::Lint::Rule::DeprecatedSetEnv;
use App::Workflow::Lint::Rule::MissingRunsOn;

lib/App/Workflow/Lint/Engine.pm view on Meta::CPAN

#----------------------------------------------------------------------

sub rules {
	return (
		App::Workflow::Lint::Rule::MissingPermissions->new,
		App::Workflow::Lint::Rule::MissingTimeout->new,
		App::Workflow::Lint::Rule::UnpinnedActions->new,
		App::Workflow::Lint::Rule::MissingConcurrency->new,
		App::Workflow::Lint::Rule::DeprecatedSetEnv->new,
		App::Workflow::Lint::Rule::MissingRunsOn->new,
	);

view all matches for this distribution

App-YTDL

2 results

view release on metacpan or search on metacpan

lib/App/YTDL/Options.pm view on Meta::CPAN

            [ 'prefer_free_formats', "- Prefer free formats" ],
        ],
        group_download => [
            [ 'useragent',  "- UserAgent"        ],
            [ 'retries',    "- Download retries" ],
            [ 'timeout',    "- Timeout"          ],
        ],
        group_output => [
            [ 'no_warnings',          "- Disable warnings" ],
            [ 'max_info_width',       "- Max info width"   ],
            [ 'max_rows_description', "- Max rows of description" ],

view all matches for this distribution

App-aep

1 match

view release on metacpan or search on metacpan

lib/App/aep.pm view on Meta::CPAN

    my $ok = try {
        my $sock = IO::Socket::INET->new(
            PeerAddr => $host,
            PeerPort => $port,
            Proto    => 'tcp',
            Timeout  => 2,
        );
        if ( $sock )
        {
            close( $sock );
            return 1;

view all matches for this distribution

App-cloudconvert

1 match

view release on metacpan or search on metacpan

script/cloudconvert view on Meta::CPAN


Output format (output file extension by default)

=item wait

Timeout in seconds (300 by default)

=item agent

User agent to identify with

view all matches for this distribution

App-cpackage

1 match

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-cpanbaker

1 match

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-cpanmigrate

1 match

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution

App-cpanminus

2 results

view release on metacpan or search on metacpan

lib/App/cpanminus/fatscript.pm view on Meta::CPAN

          PeerPort  => $port,
          $self->{local_address} ?
              ( LocalAddr => $self->{local_address} ) : (),
          Proto     => 'tcp',
          Type      => SOCK_STREAM,
          Timeout   => $self->{timeout},
          KeepAlive => !!$self->{keep_alive}
      ) or die(qq/Could not connect to '$host:$port': $@\n/);
  
      binmode($self->{fh})
        or die(qq/Could not binmode() socket: '$!'\n/);

view all matches for this distribution

App-cpanmodules

1 match

view release on metacpan or search on metacpan

script/cpanmodules view on Meta::CPAN

List entries of a list:

 % cpanmodules ls-entries PERLANCAR::Favorites::App
 App::lcpan
 App::pause
 App::SetScreensaverTimeout

Install all entries of a list:

 % cpanmodules ls-entries PERLANCAR::Favorites::App | cpanm -n

view all matches for this distribution

App-cpantested

1 match

view release on metacpan or search on metacpan

t/10-selfcheck.t view on Meta::CPAN

plan skip_all => q(no direct Internet connection)
    unless IO::Socket::INET->new(
        PeerHost  => q(cpantesters.org),
        PeerPort  => 80,
        Proto     => q(tcp),
        Timeout   => 10,
    );

my $reference = catfile(qw(t dists));
my $utility = catfile(qw(bin cpan-tested));

view all matches for this distribution

App-cpantimes

1 match

view release on metacpan or search on metacpan

bin/cpant view on Meta::CPAN

      $self->{fh} = 'IO::Socket::INET'->new(
          PeerHost  => $host,
          PeerPort  => $port,
          Proto     => 'tcp',
          Type      => SOCK_STREAM,
          Timeout   => $self->{timeout}
      ) or croak(qq/Could not connect to '$host:$port': $@/);
  
      binmode($self->{fh})
        or croak(qq/Could not binmode() socket: '$!'/);

view all matches for this distribution

App-cpanurl

1 match

view release on metacpan or search on metacpan

script/cpanurl view on Meta::CPAN

    $self->{fh} = 'IO::Socket::INET'->new(
        PeerHost  => $host,
        PeerPort  => $port,
        Proto     => 'tcp',
        Type      => SOCK_STREAM,
        Timeout   => $self->{timeout}
    ) or die(qq/Could not connect to '$host:$port': $@\n/);

    binmode($self->{fh})
      or die(qq/Could not binmode() socket: '$!'\n/);

view all matches for this distribution

App-cryp-mn

2 results

view release on metacpan or search on metacpan

lib/App/cryp/Masternode/bulwark.pm view on Meta::CPAN

                $conf->{GLOBAL}{ssh_timeout} // 300;

            log_trace "SSH-ing to $rec->{name} ($rec->{ip}) as $ssh_user to query masternode status (timeout=$ssh_timeout) ...";

            eval {
                local $SIG{ALRM} = sub { die "Timeout\n" };
                # XXX doesn't cleanup ssh process when timeout triggers. same
                # with IPC::Cmd, or System::Timeout (which is based on
                # IPC::Cmd). IPC::Run's timeout doesn't work?
                alarm $ssh_timeout;

                my $ssh_cmd = $ssh_user eq $mn_user ?
                    "bulwark-cli listmasternodes" :

view all matches for this distribution

App-derived

1 match

view release on metacpan or search on metacpan

lib/App/derived/Plugin/Memcached.pm view on Meta::CPAN


Host name or Address to bind

=item timeout:Int

Timeout seconds to read request. default 10.

=back

=head1 CLIENT SAMPLE

view all matches for this distribution

App-digestarchive

1 match

view release on metacpan or search on metacpan

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

    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;

view all matches for this distribution