view release on metacpan or search on metacpan
lib/Binance/API.pm view on Meta::CPAN
=head2 start_user_data_stream
$api->start_user_data_stream();
Start a new user data stream. The stream will close after 60 minutes unless
a keepalive is sent.
B<PARAMETERS>
=over
lib/Binance/API.pm view on Meta::CPAN
sub start_user_data_stream {
return $_[0]->ua->post('/api/v3/userDataStream');
}
=head2 keep_alive_user_data_stream
$api->keep_alive_user_data_stream();
Keepalive a user data stream to prevent a time out. User data streams will close
after 60 minutes. It's recommended to send a ping about every 30 minutes.
B<PARAMETERS>
=over
lib/Binance/API.pm view on Meta::CPAN
{}
=cut
sub keep_alive_user_data_stream {
my ($self, %params) = @_;
unless ($params{'listenKey'}) {
$self->log->error('Parameter "listenKey" required');
Binance::Exception::Parameter::Required->throw(
error => 'Parameter "listenKey" required',
view release on metacpan or search on metacpan
lib/Bio/Das/ProServer/Authenticator/http.pm view on Meta::CPAN
my $self = shift;
if (!defined $self->{'_agent'}) {
$self->{'_agent'} = LWP::UserAgent->new(
env_proxy => 1,
keep_alive => 1,
timeout => 10,
agent => Bio::Das::ProServer::Config::server_version(),
);
}
view release on metacpan or search on metacpan
data/db_tables/protocols.xml view on Meta::CPAN
Culture flasks
Inverted phase contrast microscope (Optional)
Procedure 8
1.Candle an 8 day old egg to ensure that it is alive. This is easily accomplished by holding the egg in front of a bright light source; the embryo can
be seen as a shadow. Circle the embryo with a pencil.
2.Place the egg in a beaker with the blunt end up, and wash the top with a mild detergent, followed by swabbing with ethanol.
3.Carefully puncture the top of the egg with the point of a pair of sterile scissors and cut away a circle of shell, thus exposing the underlying
view release on metacpan or search on metacpan
lib/Bio/Phylo/Mediators/TaxaMediator.pm view on Meta::CPAN
my ( $one_id, $many_id ) = ( $one->get_id, $many->get_id );
$one_to_one{$many_id} = $one_id;
$one_to_many{$one_id} = {} unless $one_to_many{$one_id};
# once other objects start referring to the taxon we want
# these references to keep the taxon "alive" until all other
# objects pointing to it have gone out of scope, in which
# case the reference must be weakened again, so that it
# might get cleaned up also
if (isweak($object[$one_id]) ) {
my $strong = $object[$one_id];
view release on metacpan or search on metacpan
Bio/Prospect/SoapServer.pm view on Meta::CPAN
#-------------------------------------------------------------------------------
=head2 ping()
Name: ping()
Purpose: return whether alive or not
Arguments: none
Returns: 0 - dead, 1 - alive
=cut
sub ping {
return 1;
view release on metacpan or search on metacpan
lib/Bio/Tools/Run/Analysis/soap.pm view on Meta::CPAN
=item -timeout
For long(er) running jobs the HTTP connection may be time-outed. In
order to avoid it (or, vice-versa, to call timeout sooner) you may
specify C<timeout> with the number of seconds the connection will be
kept alive. Zero means to keep it alive forever. The default value is
two minutes.
=back
=cut
view release on metacpan or search on metacpan
script/torrent view on Meta::CPAN
my $len_buf = read_exactly($socket, 4);
return undef unless defined $len_buf;
my $len = unpack('N', $len_buf);
return [ undef, '' ] if $len == 0; # keep-alive
# Sanity check: reject absurdly large messages
return undef if $len > 2 * BLOCK_SIZE + 64;
my $msg = read_exactly($socket, $len);
script/torrent view on Meta::CPAN
# Receive a message
my $msg = read_msg($socket);
return (0, undef) unless defined $msg;
my ($id, $payload) = @$msg;
next unless defined $id; # keep-alive
if ($id == MSG_CHOKE) {
$$peer_choking_ref = 1;
return (0, undef);
view release on metacpan or search on metacpan
t/Transaction/sign.t view on Meta::CPAN
ok $ex, 'input verification failed ok (one signed)';
isa_ok $ex, 'Bitcoin::Crypto::Exception::TransactionScript';
$prv->sign_transaction($tx, signing_index => 1);
my $alive = lives { $tx->verify };
ok $alive, 'input verification ok (two signed)';
};
done_testing;
view release on metacpan or search on metacpan
t/example.xml view on Meta::CPAN
</categories>
</post>
<post id="120" date-created="2006-05-06T00:02:09" date-modified="2006-05-06T00:02:09" approved="true" post-url="http://blog.wcs.org/post?id=120">
<title>Missing dog found nearly a week after plane crash</title>
<content type="html"><![CDATA[
<p>Six days after a small plane crash that killed two members of a family four, the family's missing dog was found alive by the same pair of teenage brothers who first helped the survivors.</p>
<p>Family friends had been searching for Lindsey, a 9-year-old Dalmation who had been on the plane but was not found at the crash site.</p>
<p>"We were called loonies," said Bob Jansen, who along with his wife Shirley had spent much of the week looking for Lindsey. "They told us we were searching for a dead dog."</p>
view release on metacpan or search on metacpan
t/sysinfos/ProxySG-4006060000--20090307-165730UTC.sysinfo view on Meta::CPAN
Tunnels in CCPM Re-use Pool: 0
__Tunnels Junked by WM: 0
__Tunnels Junked by WM Due to Peer-IP Mismatch: 0
__Tunnels closed in CCPM Re-use Pool: 0
__Tunnels closed in CCPM Re-use Pool Due to Long Inactive Use: 0
__Tunnels closed in CCPM Re-use Pool Due to TCP Keepalive: 0
Secure Tunnels in CCPM Re-use Pool: 0
__Stripped Secure Tunnels in CCPM Re-use Pool: 0
__Secure Tunnels Junked by WM: 0
__Secure Tunnels Junked by WM Due to Peer-IP Mismatch: 0
__Secure Tunnels closed in CCPM Re-use Pool: 0
__Secure Tunnels closed in CCPM Re-use Pool Due to Long Inactive Use: 0
__Secure Tunnels closed in CCPM Re-use Pool Due to TCP Keepalive: 0
Tunnels in ICPM Pool: 0
__Tunnel Work-items Swapped Out: 0
__Tunnel Work-items Suspended: 0
__Aborted Tunnel Work-item Suspensions Due to Socket IO: 0
__Idle Tunnel Work-items Swapped In: 0
view release on metacpan or search on metacpan
eg/Catalyst/TestApp/script/testapp_server.pl view on Meta::CPAN
my $debug = 0;
my $fork = 0;
my $help = 0;
my $host = undef;
my $port = $ENV{TESTAPP_PORT} || $ENV{CATALYST_PORT} || 3000;
my $keepalive = 0;
my $restart = $ENV{TESTAPP_RELOAD} || $ENV{CATALYST_RELOAD} || 0;
my $restart_delay = 1;
my $restart_regex = '(?:/|^)(?!\.#).+(?:\.yml$|\.yaml$|\.conf|\.pm)$';
my $restart_directory = undef;
my $follow_symlinks = 0;
eg/Catalyst/TestApp/script/testapp_server.pl view on Meta::CPAN
'debug|d' => \$debug,
'fork|f' => \$fork,
'help|?' => \$help,
'host=s' => \$host,
'port=s' => \$port,
'keepalive|k' => \$keepalive,
'restart|r' => \$restart,
'restartdelay|rd=s' => \$restart_delay,
'restartregex|rr=s' => \$restart_regex,
'restartdirectory=s@' => \$restart_directory,
'followsymlinks' => \$follow_symlinks,
eg/Catalyst/TestApp/script/testapp_server.pl view on Meta::CPAN
require TestApp;
TestApp->run( $port, $host, {
argv => \@argv,
'fork' => $fork,
keepalive => $keepalive,
restart => $restart,
restart_delay => $restart_delay,
restart_regex => qr/$restart_regex/,
restart_directory => $restart_directory,
follow_symlinks => $follow_symlinks,
eg/Catalyst/TestApp/script/testapp_server.pl view on Meta::CPAN
-f -fork handle each request in a new process
(defaults to false)
-? -help display this help and exits
-host host (defaults to all)
-p -port port (defaults to 3000)
-k -keepalive enable keep-alive connections
-r -restart restart when files get modified
(defaults to false)
-rd -restartdelay delay between file checks
-rr -restartregex regex match files that trigger
a restart when modified
view release on metacpan or search on metacpan
src/boost/python/object/iterator.hpp view on Meta::CPAN
>::type next_fn;
# else
typedef next next_fn;
# endif
object m_sequence; // Keeps the sequence alive while iterating.
Iterator m_start;
Iterator m_finish;
};
namespace detail
view release on metacpan or search on metacpan
include/boost/python/object/iterator.hpp view on Meta::CPAN
>::type next_fn;
# else
typedef next next_fn;
# endif
object m_sequence; // Keeps the sequence alive while iterating.
Iterator m_start;
Iterator m_finish;
};
namespace detail
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/Zippy.pm view on Meta::CPAN
Is this the line for the latest whimsical YUGOSLAVIAN drama which also makes you want to CRY and reconsider the VIETNAM WAR?
Isn't this my STOP?!
It don't mean a THING if you ain't got that SWING!!
It was a JOKE!! Get it?? I was receiving messages from DAVID LETTERMAN!!
YOW!!
It's a lot of fun being alive ... I wonder if my bed is made?!?
It's NO USE ... I've gone to "CLUB MED"!!
It's OBVIOUS ... The FURS never reached ISTANBUL ... You were an EXTRA in the REMAKE of "TOPKAPI" ... Go home to your WIFE ... She's making FRENCH TOAST!
It's OKAY -- I'm an INTELLECTUAL, too.
It's the RINSE CYCLE!! They've ALL IGNORED the RINSE CYCLE!!
JAPAN is a WONDERFUL planet -- I wonder if we'll ever reach their level of COMPARATIVE SHOPPING ...
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable.pm view on Meta::CPAN
And thanks to the rest of #2lmc who were my unwilling guinea pigs during
development. And who kept suggesting totally stupid ideas for modules that I
then felt compelled to go implement. Shout.pm owes its existence to #2lmc.
Thanks to Mike Eldridge (DIZ), maintainer until 2016, for kindly transferring
maintainership to me, BIGPRESH, so I can keep this useful bot framework alive.
=head1 SEE ALSO
=over 2
view release on metacpan or search on metacpan
examples/cpanbot.pl view on Meta::CPAN
# concept code, and inspired the changes in the source that let you put >1
# BasicBot in a single POE session.
# The problem is that with more than 30 or 40 running bots, even on the same
# machine as the IRC server, the latencies get insane. You just can't keep
# them all alive enough to stay connected and not time-out. So the idea was
# a non-starter, because I'm not running a process on the server for every
# module on CPAN. But I can think of some cases where you'd want to run 2 or
# 3 bots in a single session, to bridge networks, say, that sort of thing,
# and so heere's how I'd do it...
view release on metacpan or search on metacpan
lib/Bot/ChatBots/Weak.pod view on Meta::CPAN
look => 'not a reference',
);
$object->set(ahoy => $ref3);
# it's a hash reference inside
$object->{what}->frobozz; # called on $ref1 if still alive
# TO_JSON always returns undef
my $will_be_undef = $object->TO_JSON;
view release on metacpan or search on metacpan
lib/Bot/Cobalt/Plugin/WWW.pm view on Meta::CPAN
use Bot::Cobalt;
use Bot::Cobalt::Common;
use POE qw/
Component::Client::HTTP
Component::Client::Keepalive
/;
sub opts {
my $opts = core->get_plugin_cfg($_[0])->{Opts};
lib/Bot/Cobalt/Plugin/WWW.pm view on Meta::CPAN
Agent => __PACKAGE__,
Alias => 'ht_'. core()->get_plugin_alias($self),
ConnectionManager => POE::Component::Client::Keepalive->new(
keep_alive => 1,
max_per_host => $self->max_per_host,
max_open => $self->max_workers,
timeout => $self->timeout,
),
view release on metacpan or search on metacpan
lib/Bot/Net/Server.pm view on Meta::CPAN
This is yielded at the end of the L</on _start> handler for the L<POE> session. Your server should perform any initialization needed here.
=head2 on server quit
A server should emit this state when it wants the server to disconnect and shutdown. If all mixins are implemented correctly, they should listen for this state and close all resources, which should result in the server going into the L</on _stop> sta...
This should be used by protocol mixins to implement the shutdown sequence for their listening ports, open files, etc.
=head2 on server shutdown
view release on metacpan or search on metacpan
lib/Bot/Pastebot/Client/Irc.pm view on Meta::CPAN
$kernel->alias_set( "irc_client_$server" );
$irc->yield( register => 'all' );
$heap->{server_index} = 0;
# Keep-alive timer.
$kernel->delay( autoping => 300 );
$kernel->yield( 'connect' );
},
view release on metacpan or search on metacpan
lib/BrLock.pm view on Meta::CPAN
Carvalho and Roucariol, On mutual exclusion in computer networks,
ACM Communications, Feb83.
The algorithm features minimal messages for acquiring the next lock,
but with the trade-off of network being reliable enough to ensure that
all nodes are alive. In fact, one node won't be able to acquire the
next lock if it can't communicate to all other nodes (unless the node
which was the last one to acquire the lock).
If this is a hard constraint for you, you may want to use IPC::Lock.
view release on metacpan or search on metacpan
script/bracket_server.pl view on Meta::CPAN
-f --fork handle each request in a new process
(defaults to false)
-? --help display this help and exits
-h --host host (defaults to all)
-p --port port (defaults to 3000)
-k --keepalive enable keep-alive connections
-r --restart restart when files get modified
(defaults to false)
-rd --restart_delay delay between file checks
(ignored if you have Linux::Inotify2 installed)
-rr --restart_regex regex match files that trigger
view release on metacpan or search on metacpan
t/test1.xml view on Meta::CPAN
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive
]]></request>
<response><![CDATA[HTTP/1.1 200 OK
Date: Mon, 12 Oct 2009 14:26:53 GMT
Server: Apache/2.2.9 (Ubuntu) PHP/5.2.6-bt0 with Suhosin-Patch mod_perl/2.0.4 Perl/v5.10.0
t/test1.xml view on Meta::CPAN
Accept: */*
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive
Referer: http://192.168.163.128/beef/
]]></request>
<response><![CDATA[HTTP/1.1 200 OK
Date: Mon, 12 Oct 2009 14:27:02 GMT
t/test1.xml view on Meta::CPAN
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive
]]></request>
<response><![CDATA[HTTP/1.1 200 OK
Date: Mon, 12 Oct 2009 14:26:53 GMT
Server: Apache/2.2.9 (Ubuntu) PHP/5.2.6-bt0 with Suhosin-Patch mod_perl/2.0.4 Perl/v5.10.0
t/test1.xml view on Meta::CPAN
Accept: */*
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive
Referer: http://192.168.163.128/beef/
]]></request>
<response><![CDATA[HTTP/1.1 200 OK
Date: Mon, 12 Oct 2009 14:27:02 GMT
t/test1.xml view on Meta::CPAN
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive
]]></request>
<response><![CDATA[HTTP/1.1 200 OK
Date: Mon, 12 Oct 2009 14:26:17 GMT
Server: Apache/2.2.9 (Ubuntu) PHP/5.2.6-bt0 with Suhosin-Patch mod_perl/2.0.4 Perl/v5.10.0
t/test1.xml view on Meta::CPAN
Accept: */*
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive
Referer: http://192.168.163.128/beef/
]]></request>
<response><![CDATA[HTTP/1.1 200 OK
Date: Mon, 12 Oct 2009 14:27:11 GMT
t/test1.xml view on Meta::CPAN
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive
]]></request>
<response><![CDATA[HTTP/1.1 200 OK
Date: Mon, 12 Oct 2009 14:26:53 GMT
Server: Apache/2.2.9 (Ubuntu) PHP/5.2.6-bt0 with Suhosin-Patch mod_perl/2.0.4 Perl/v5.10.0
view release on metacpan or search on metacpan
t/business/gocardless/resource.t view on Meta::CPAN
extends "Business::GoCardless::Resource";
has [ qw/
name
age
alive
time
/ ] => (
is => 'rw',
);
t/business/gocardless/resource.t view on Meta::CPAN
isa_ok(
my $TestResource = TestResource->new(
name => "Lee",
age => 30,
alive => JSON::true,
time => "2014-08-20T21:41:25Z",
client => Business::GoCardless::Client->new(
token => 'foo',
app_id => 'bar',
app_secret => 'baz',
t/business/gocardless/resource.t view on Meta::CPAN
client
to_hash
to_json
name
age
alive
time
/,
);
is( $TestResource->endpoint,'/test_resources/%s','endpoint' );
cmp_deeply(
{ $TestResource->to_hash },
{
'age' => 30,
'alive' => JSON::true,
'endpoint' => '/test_resources/%s',
'name' => 'Lee',
'time' => '2014-08-20T21:41:25Z'
},
'to_hash'
t/business/gocardless/resource.t view on Meta::CPAN
is(
$TestResource->to_json,
JSON->new->canonical->encode( {
'age' => 30,
'alive' => JSON::true,
'endpoint' => '/test_resources/%s',
'name' => 'Lee',
'time' => '2014-08-20T21:41:25Z'
} ),
'to_json'
view release on metacpan or search on metacpan
return 1;
}
sub ping
# try and confirm the server connection is alive
{
my $self = shift;
$@ = "not connected", return undef unless $self->{'io'}->connected;
view release on metacpan or search on metacpan
share/www/static/jquery.js view on Meta::CPAN
return "script";
}
});
var xhrCallbacks, xhrSupported,
xhrId = 0,
// #5280: Internet Explorer will keep connections alive if we don't abort on unload
xhrOnUnloadAbort = window.ActiveXObject && function() {
// Abort all pending requests
var key;
for ( key in xhrCallbacks ) {
xhrCallbacks[ key ]( undefined, true );
view release on metacpan or search on metacpan
src/sparse-0.4.4/storage.c view on Meta::CPAN
/*
* Storage - associate pseudos with "storage" that keeps them alive
* between basic blocks. The aim is to be able to turn as much of
* the global storage allocation problem as possible into a local
* per-basic-block one.
*
* Copyright (C) 2004 Linus Torvalds
view release on metacpan or search on metacpan
src_bin/suricata_extract_submit view on Meta::CPAN
closelog();
print $message. "\n";
} ## end sub log_something
my $alive;
eval { $alive = Proc::PID::File->running(); };
if ($@) {
log_something( 'err', 'PID file check failed... ' . $@ );
exit 1;
}
if ($alive) {
log_something( 'err', 'Already running as ' . $alive );
exit 1;
}
log_something( 'info', 'Suricata Malware Extractor starting up..' );