view release on metacpan or search on metacpan
lib/IPC/Simple.pm view on Meta::CPAN
my $timer; $timer = AnyEvent->timer(
after => 0,
interval => 0.01,
cb => sub{
# non-blocking waitpid returns 0 if the pid is still alive
if (waitpid($self->{pid}, WNOHANG) != 0) {
my $status = $?;
# another waiter might have already called _on_exit
unless ($self->is_ready) {
view release on metacpan or search on metacpan
lib/IPCamera/Reolink.pm view on Meta::CPAN
if($camera_command eq 'Snap'){
# responseContent is not JSON but the actual JPG image data
#
# Content-Type: image/jpeg
# Content-Length: 171648
# Connection: keep-alive
# X-Frame-Options: SAMEORIGIN
# X-XSS-Protection: 1; mode=block
# X-Content-Type-Options: nosniff
# .............................(JPG data)
print STDERR scalar(localtime()) . ": debug: IPCamera::Reolink::_sendCameraCommand($camera_command): " . $t4 . ": jpg responseContent() length " . length($response_content) . "\n" if($DEBUG > 2);
view release on metacpan or search on metacpan
lib/IPDR/Collection/Cisco.pm view on Meta::CPAN
ipdr collector 192.168.1.2 4000 2
The IP addresses and ports specicified are those of a collector that will
connect to the CMTS. You can have multiple collectors connected but only
the highest priority collector will receive data, all others will received
keep alives.
The Client module makes a connection to the destination IP/Port specified.
An example on how to use this module is shown below. It is relatively simple
use the different module for Cisco, all others use Client.
view release on metacpan or search on metacpan
irc_ctcp_finger => "on_finger",
irc_ctcp_page => "on_page",
irc_ctcp_time => "on_time",
irc_ctcp_action => "on_action",
irc_nick => "on_nick",
keepalive => "keepalive",
irc_433 => "on_nick_taken",
irc_353 => "on_names",
irc_dcc_request => "on_dcc_req",
irc_dcc_error => "on_dcc_err",
irc_dcc_done => "on_dcc_done",
# Borrowed this code from another bot
# Can't for the life of me remember which one
# Please, let me know if it was you, so I can
# give props!!
sub keepalive {
my ( $self, $kernel, $heap ) = @_[ OBJECT, KERNEL, HEAP ];
$heap->{'keepalive_time'} += 180;
$kernel->alarm( 'keepalive' => $heap->{'keepalive_time'} );
$kernel->post( NICK, 'sl', 'PING ' . time() );
}
# Handle public events
view release on metacpan or search on metacpan
ccv-src/lib/nnc/ccv_nnc_symbolic_graph_compile.c view on Meta::CPAN
}
}
int* oc = (int*)cccalloc(tensor_block_size, sizeof(int));
for (i = 0; i < tensor_block_size; i++)
for (j = 0; j < tensor_block_size; j++)
// If these two tensors are still alive, analyze them.
if (i != j && TENSOR_EXPECT_COMPUTABLE(tensor_blocks[i]) && TENSOR_EXPECT_COMPUTABLE(tensor_blocks[j]))
{
ccv_numeric_data_t cell = ccv_get_sparse_matrix_cell(tensor_itf, ccv_min(i, j), ccv_max(i, j));
// If their life time overlaps, compute how many tensors it overlap.
if (cell.u8 && cell.u8[0] == 1)
view release on metacpan or search on metacpan
lib/Image/DS9.pm view on Meta::CPAN
my $timeinterval = $self->{WaitTimeInterval};
unless ( $self->nservers ) {
my $cnt = 0;
sleep( $timeinterval )
until ( exists $self->{_process} && !$self->{_process}->alive )
|| $self->nservers >= $self->{min_servers}
|| ( $cnt += $timeinterval ) > $timeout;
}
return $self->nservers >= $self->{min_servers};
view release on metacpan or search on metacpan
libpng-1.6.17/libpng-manual.txt view on Meta::CPAN
It should be noted that versions of libpng later than 0.96 are not
distributed by the original libpng author, Guy Schalnat, nor by
Andreas Dilger, who had taken over from Guy during 1996 and 1997, and
distributed versions 0.89 through 0.96, but rather by another member
of the original PNG Group, Glenn Randers-Pehrson. Guy and Andreas are
still alive and well, but they have moved on to other things.
The old libpng functions png_read_init(), png_write_init(),
png_info_init(), png_read_destroy(), and png_write_destroy() have been
moved to PNG_INTERNAL in version 0.95 to discourage their use. These
functions will be removed from libpng version 1.4.0.
view release on metacpan or search on metacpan
Java/JNI.xs view on Meta::CPAN
/* We are already inside a JVM */
jint n = 0 ;
res = JNI_GetCreatedJavaVMs(&(RETVAL->jvm), 1, &n) ;
if (n <= 0) {
/* res == 0 even if no JVMs are alive */
res = -1;
}
if (res < 0) {
croak("Can't find any created Java JVMs") ;
}
view release on metacpan or search on metacpan
ffi/target/release/build/mlua-sys-6a99a2ae50f12319/out/luajit-build/build/src/lj_gc.c view on Meta::CPAN
if (o->gch.gct == ~LJ_TTHREAD) /* Need to sweep open upvalues, too. */
gc_fullsweep(g, &gco2th(o)->openupval);
if (((o->gch.marked ^ LJ_GC_WHITES) & ow)) { /* Black or current white? */
lj_assertG(!isdead(g, o) || (o->gch.marked & LJ_GC_FIXED),
"sweep of undead object");
makewhite(g, o); /* Value is alive, change to the current white. */
p = &o->gch.nextgc;
} else { /* Otherwise value is dead, free it. */
lj_assertG(isdead(g, o) || ow == LJ_GC_SFIXED,
"sweep of unlive object");
setgcrefr(*p, o->gch.nextgc);
ffi/target/release/build/mlua-sys-6a99a2ae50f12319/out/luajit-build/build/src/lj_gc.c view on Meta::CPAN
setgcrefp(q, (u & ~(uintptr_t)1));
while ((o = gcref(*p)) != NULL) {
if (((o->gch.marked ^ LJ_GC_WHITES) & ow)) { /* Black or current white? */
lj_assertG(!isdead(g, o) || (o->gch.marked & LJ_GC_FIXED),
"sweep of undead string");
makewhite(g, o); /* String is alive, change to the current white. */
p = &o->gch.nextgc;
} else { /* Otherwise string is dead, free it. */
lj_assertG(isdead(g, o) || ow == LJ_GC_SFIXED,
"sweep of unlive string");
setgcrefr(*p, o->gch.nextgc);
view release on metacpan or search on metacpan
sub start_interpreter
{
my $o = shift;
# check if interpreter already alive
return if $octave_object->{OCTIN} and $octave_object->{OCTOUT};
use IPC::Open3;
use IO::File;
my $Oin = new IO::File;
my $Oin= $octave_object->{OCTIN};
my $Oerr= $octave_object->{OCTERR};
my $select= $octave_object->{SELECT};
my $pid = $octave_object->{octave_pid};
croak "octave interpreter not alive" unless $Oin and $Oerr;
# set SIGnals here, and they will be reset to what the
# user set them to outside
local $SIG{CHLD}= \&reap_interpreter;
local $SIG{PIPE}= \&reap_interpreter;
view release on metacpan or search on metacpan
On my machine, %namespace looks something like this:
$VAR1 = {
'classes' => { ... },
'functions' => [
'_keep_alive',
'loads',
'dump',
'load',
'dumps',
'test',
view release on metacpan or search on metacpan
lib/Installer/cpanm.pm view on Meta::CPAN
$fatpacked{"File/pushd.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'FILE_PUSHD';
use strict;use warnings;package File::pushd;our$VERSION='1.009';our@EXPORT=qw(pushd tempd);our@ISA=qw(Exporter);use Exporter;use Carp;use Cwd qw(getcwd abs_path);use File::Path qw(rmtree);use File::Temp qw();use File::Spec;use overload q{""}=>sub {...
FILE_PUSHD
$fatpacked{"HTTP/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'HTTP_TINY';
package HTTP::Tiny;use strict;use warnings;our$VERSION='0.056';use Carp ();my@attributes;BEGIN {@attributes=qw(cookie_jar default_headers http_proxy https_proxy keep_alive local_address max_redirect max_size proxy no_proxy timeout SSL_options verif...
sub $sub_name {
my (\$self, \$url, \$args) = \@_;
\@_ == 2 || (\@_ == 3 && ref \$args eq 'HASH')
or Carp::croak(q/Usage: \$http->$sub_name(URL, [HASHREF])/ . "\n");
return \$self->request('$req_method', \$url, \$args || {});
view release on metacpan or search on metacpan
use Test::More tests => 1;
use Internals::DumpArenas;
Internals::DumpArenas::DumpArenas();
pass( 'Still alive' );
view release on metacpan or search on metacpan
lib/Ipmitool.pm view on Meta::CPAN
{
$self->{"ipaddress"}=shift(@args);
my $p = Net::Ping->new();
if (!$p->ping($self->{"ipaddress"}))
{
#print " Machine is alive\n";
die "$self->{ipaddress} : invalid ip address or machine is unreachable\n";
}
$p->close();
} elsif ($x eq "-username")
{
view release on metacpan or search on metacpan
lib/JIP/Daemon.pm view on Meta::CPAN
$proc = $proc->daemonize;
# In the backgroung process:
$proc->is_detached; # 1
$proc->try_kill(0); # 1
printf qq{pid(%s), is_alive(%d), is_detached(%d)\n}, $proc->status;
# If the program is already a running background job, the daemonize method shall have no effect.
$proc = $proc->daemonize;
Dry run:
lib/JIP/Daemon.pm view on Meta::CPAN
Change C<uid>/C<gid>/C<umask>/C<cwd> on demand.
=head2 try_kill
my $is_alive = $proc->try_kill(0);
This is identical to Perl's builtin C<kill()> function for sending signals to processes (often to terminate them).
=head2 change_program_name
lib/JIP/Daemon.pm view on Meta::CPAN
Changes the name of the program.
=head2 status
my ($pid, $is_alive, $is_detached) = $proc->status;
Returns a list of process attributes: PID, is alive, is detached (in backgroung).
=head1 DIAGNOSTICS
None.
view release on metacpan or search on metacpan
lib/JMAP/Tester/UA/LWP.pm view on Meta::CPAN
has lwp => (
is => 'ro',
lazy => 1,
default => sub ($self) {
require LWP::UserAgent;
my $lwp = LWP::UserAgent->new(keep_alive => 1);
$lwp->cookie_jar({});
$lwp->default_header('Content-Type' => 'application/json');
if ($ENV{IGNORE_INVALID_CERT}) {
view release on metacpan or search on metacpan
lib/JQuery/jquery_js/plugins/heartbeat/heartbeat.js view on Meta::CPAN
/*
* JHeartbeat 0.1.1 Beta
* By Jason Levine (http://www.jasons-toolbox.com)
* A heartbeat plugin for the jquery library to help keep sessions alive.
*/
$.jheartbeat = {
options: {
view release on metacpan or search on metacpan
JRPC/Client.pm view on Meta::CPAN
JRPC::Client complies to conventions of JSON-RPC 2.0, but it can be coerced to be used for other versions as well.
=head2 $client = JRPC::Client->new()
Instantiate a new JSON-RPC (2.0) Client.
HTTP keep-alive is turned on, cookie store is established and
default user-agent name is set here.
Any of the LWP::UserAgent methods are callable on the returned object as JRPC::Client IS-A LWP::UserAgent.
The lifetime of the JRPC::Client can be kept long (e.g. throughout app) and it can usually be kept as single instance
in app runtime (singleton, however JRPC::Client does not control singularity of instantiation).
The factory method method new_request() takes care of instatiating requests for various URL:s, various methods.
=cut
sub new {
my ($class, %c) = @_;
my $ua = LWP::UserAgent->new('keep_alive' => 1, 'cookie_jar' => {});
$ua->agent("JSON-RPC Client/0.9");
if ($c{'jsonrpc'}) {$ua->{'_jsonrpc'} = $c{'jsonrpc'};}
# Re-bless ...
return bless($ua, $class);
}
view release on metacpan or search on metacpan
t/fixtures/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
$data = JSON::DWIW->from_json($str);
ok(not defined($data) and JSON::DWIW->get_error_string);
$str = qq{\xFF\xFE\x00\x00{"stuff":"blah"}};
$data = JSON::DWIW->from_json($str);
ok(1); # still alive
ok(not defined($data) and JSON::DWIW->get_error_string);
$str = qq{\x00\x00\xFE\xFF{"stuff":"blah"}};
$data = JSON::DWIW->from_json($str);
ok(not defined($data) and JSON::DWIW->get_error_string);
view release on metacpan or search on metacpan
t/data/daringfireball.json view on Meta::CPAN
"id" : "https://daringfireball.net/2019/01/the_r_word",
"url" : "https://daringfireball.net/2019/01/the_r_word",
"author" : {
"name" : "John Gruber"
},
"content_html" : "\n<p>Bloomberg<sup id=\"fnr1-2019-01-17\"><a href=\"#fn1-2019-01-17\">1</a></sup> ran <a href=\"https://www.bloomberg.com/news/articles/2019-01-16/apple-is-said-to-plan-some-hiring-reductions-amid-iphone-woes\">an eye-catch...
}
]
}
view release on metacpan or search on metacpan
examples/http_engine.pl view on Meta::CPAN
use HTTPEx::Declare;
use JSON::RPC::Common::Marshal::HTTP;
interface Standalone => { port => 8000, fork => 1, keepalive => 1 };
my $marshal = JSON::RPC::Common::Marshal::HTTP->new;
run {
my $c = shift;
view release on metacpan or search on metacpan
lib/JSON/RPC/LWP.pm view on Meta::CPAN
predicate => 'has_ua',
default => sub{
my($self) = @_;
my $lwp = LWP::UserAgent->new(
env_proxy => 1,
keep_alive => 1,
parse_head => 0,
agent => $self->agent,
);
},
handles => \@ua_handles,
view release on metacpan or search on metacpan
lib/JSON/RPC.pm view on Meta::CPAN
For example, a request structure like this:
[
{"jsonrpc": "2.0", "method": "sum", "params": [1,2,4], "id": "1"},
{"jsonrpc": "2.0", "method": "notify_hello", "params": [7]},
{"jsonrpc": "2.0", "method": "keep_alive"},
{"jsonrpc": "2.0", "method": "get_data", "id": "9"}
]
Would result in a response like