view release on metacpan or search on metacpan
t/05remote.t view on Meta::CPAN
{
my $bw_file = "${url_root}/test.bw";
Bio::DB::Big->timeout(1);
my $err_regex = qr/Timeout was reached/;
stderr_like(sub {
Bio::DB::Big::File->test_big_wig($bw_file)
}, $err_regex, 'Checking a low timeout causes connection issues');
Bio::DB::Big->timeout(0);
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 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 release on metacpan or search on metacpan
GMOD/Util/Mirror.pm view on Meta::CPAN
$user ||= 'anonymous';
$pass ||= "$user\@localhost.localdomain";
my %transfer_opts;
$transfer_opts{Passive} = 1 if $passive;
$transfer_opts{Timeout} = 600;
my $ftp = Net::FTP->new($host,%transfer_opts) || croak "Can't connect: $@\n";
$ftp->login($user,$pass) || croak "Can't login: ",$ftp->message;
$ftp->binary;
$ftp->hash(1) if $hash;
my %opts = (host => $host,
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 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 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 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 release on metacpan or search on metacpan
lib/Bio/Phylo/Models/Substitution/Dna.pm view on Meta::CPAN
Function: Determine DNA substitution model from alignment.
Returns : An object which is subclass of Bio::Phylo::Models::Substitution::Dna.
Args : -matrix: A Bio::Phylo::Matrices::Matrix object
Optional:
-tree: A Bio::Phylo::Forest::Tree object
-timeout: Timeout in seconds to prevent getting stuck in an R process.
Comments: Prerequisites: Statistics::R, R, and the R package phangorn.
=cut
sub modeltest {
view release on metacpan or search on metacpan
contrib/roary_plots/roary_files/MathJax.js view on Meta::CPAN
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
if(document.getElementById&&document.childNodes&&document.createElement){if(!(window.MathJax&&MathJax.Hub)){if(window.MathJax){window.MathJax={AuthorConfig:window.MathJax}}else{window.MathJax={}}MathJax.isPacked=true;MathJax.version="2.5";MathJax.fil...
view release on metacpan or search on metacpan
t/release-RemoteBlast.t view on Meta::CPAN
}
elsif ($attempt > $max_attempts) {
# have a test fail here (there should not be repeated failed attempts to
# get reports)
ok(0,'Exceeded maximum attempts on server to retrieve report');
diag("Timeout, did not return report after ".($attempt - 1)." attempts");
skip('Remote server timeout problems', 2);
}
else {
# have a test fail here (whatever is returned should be eval as true and
# be a SearchIO)
t/release-RemoteBlast.t view on Meta::CPAN
}
elsif ($attempt > $max_attempts) {
# have a test fail here (there should not be repeated failed attempts to
# get reports)
ok(0,'Exceeded maximum attempts on server to retrieve report');
diag("Timeout, did not return report after ".($attempt - 1)." attempts");
skip('Remote server timeout problems', 2);
}
else {
# have a test fail here (whatever is returned should be eval as true and
# be a SearchIO)
t/release-RemoteBlast.t view on Meta::CPAN
}
elsif ($attempt > $max_attempts) {
# have a test fail here (there should not be repeated failed attempts to
# get reports)
ok(0,'Exceeded maximum attempts on server to retrieve report');
diag("Timeout, did not return report after ".($attempt - 1)." attempts");
skip('Remote server timeout problems', 2);
}
else {
# have a test fail here (whatever is returned should be eval as true and
# be a SearchIO)
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 release on metacpan or search on metacpan
t/Tools/Run/RemoteBlast.t view on Meta::CPAN
}
elsif ($attempt > $max_attempts) {
# have a test fail here (there should not be repeated failed attempts to
# get reports)
ok(0,'Exceeded maximum attempts on server to retrieve report');
diag("Timeout, did not return report after ".($attempt - 1)." attempts");
skip('Remote server timeout problems', 2);
}
else {
# have a test fail here (whatever is returned should be eval as true and
# be a SearchIO)
t/Tools/Run/RemoteBlast.t view on Meta::CPAN
}
elsif ($attempt > $max_attempts) {
# have a test fail here (there should not be repeated failed attempts to
# get reports)
ok(0,'Exceeded maximum attempts on server to retrieve report');
diag("Timeout, did not return report after ".($attempt - 1)." attempts");
skip('Remote server timeout problems', 2);
}
else {
# have a test fail here (whatever is returned should be eval as true and
# be a SearchIO)
t/Tools/Run/RemoteBlast.t view on Meta::CPAN
}
elsif ($attempt > $max_attempts) {
# have a test fail here (there should not be repeated failed attempts to
# get reports)
ok(0,'Exceeded maximum attempts on server to retrieve report');
diag("Timeout, did not return report after ".($attempt - 1)." attempts");
skip('Remote server timeout problems', 2);
}
else {
# have a test fail here (whatever is returned should be eval as true and
# be a SearchIO)
view release on metacpan or search on metacpan
Bio/Root/HTTPget.pm view on Meta::CPAN
my ($host,$port,$timeout) = @_;
my $sock = IO::Socket::INET->new(Proto => 'tcp',
Type => SOCK_STREAM,
PeerHost => $host,
PeerPort => $port,
Timeout => $timeout,
);
$sock;
}
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 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 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 release on metacpan or search on metacpan
lib/Bloomd/Client.pm view on Meta::CPAN
my ($self) = @_;
my $socket = IO::Socket::INET->new(
Proto => $self->protocol,
PeerHost => $self->host,
PeerPort => $self->port,
Timeout => $self->timeout,
) or die "Can't connect to server: $!";
$self->timeout
or return $socket;
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 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 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 release on metacpan or search on metacpan
lib/BmltClient/ApiClient.pm view on Meta::CPAN
# @param integer $seconds Number of seconds before timing out [set to 0 for no timeout]
#
sub set_timeout {
my ($self, $seconds) = @_;
if (!looks_like_number($seconds)) {
croak('Timeout variable must be numeric.');
}
$self->{http_timeout} = $seconds;
}
# make the HTTP request
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 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 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 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 release on metacpan or search on metacpan
root/js/jquery-1.3.2.min.js view on Meta::CPAN
* Sizzle CSS Selector Engine - v0.9.3
* Copyright 2009, The Dojo Foundation
* Released under the MIT, BSD, and GPL Licenses.
* More information: http://sizzlejs.com/
*/
(function(){var R=/((?:\((?:\([^()]+\)|[^()]+)+\)|\[(?:\[[^[\]]*\]|['"][^'"]*['"]|[^[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?/g,L=0,H=Object.prototype.toString;var F=function(Y,U,ab,ac){ab=ab||[];U=U||document;if(U.nodeType!==1&&U.nodeType!==...
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/Notify.pm view on Meta::CPAN
}
sub _sendmail {
my ($self,%hash) = @_;
MIME::Lite->send('smtp', $settings{smtp}, Timeout=>60);
my $mail = MIME::Lite->new(
'Reply-To' => $settings{replyto},
'From' => $settings{from},
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 release on metacpan or search on metacpan
t/connect.t view on Meta::CPAN
use lib qw(lib t/lib);
require IO::Socket;
my $s = IO::Socket::INET->new(
PeerAddr => "irc.perl.org:80",
Timeout => 10,
);
if ($s) {
close($s);
plan tests => 4;