view release on metacpan or search on metacpan
t/data/build.moose.log view on Meta::CPAN
t/cmop/anon_class.t .............................................. ok
t/cmop/add_attribute_alternate.t ................................. ok
t/cmop/add_method_debugmode.t .................................... ok
t/cmop/add_method_modifier.t ..................................... ok
t/cmop/anon_class_create_init.t .................................. ok
t/cmop/anon_class_keep_alive.t ................................... ok
t/cmop/anon_class_leak.t ......................................... ok
t/cmop/anon_class_removal.t ...................................... ok
t/cmop/ArrayBasedStorage_test.t .................................. ok
t/cmop/attribute_duplication.t ................................... ok
t/cmop/attribute_get_read_write.t ................................ ok
view release on metacpan or search on metacpan
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
#pod An instance of L<HTTP::CookieJar> — or equivalent class that supports the C<add> and C<cookie_header> methods
#pod * C<default_headers> —
#pod A hashref of default headers to apply to requests
#pod * C<local_address> —
#pod The local IP address to bind to
#pod * C<keep_alive> —
#pod Whether to reuse the last connection (if for the same scheme, host and port) (defaults to 1)
#pod * C<max_redirect> —
#pod Maximum number of redirects allowed (defaults to 5)
#pod * C<max_size> —
#pod Maximum response size in bytes (only when not using a data callback). If defined, responses larger than this will return an exception.
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
#pod
#pod Exceptions from C<max_size>, C<timeout> or other errors will result in a
#pod pseudo-HTTP status code of 599 and a reason of "Internal Exception". The
#pod content field in the response will contain the text of the exception.
#pod
#pod The C<keep_alive> parameter enables a persistent connection, but only to a
#pod single destination scheme, host and port. Also, if any connection-relevant
#pod attributes are modified, or if the process ID or thread ID change, the
#pod persistent connection will be dropped. If you want persistent connections
#pod across multiple destinations, use multiple HTTP::Tiny objects.
#pod
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
#pod =cut
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 verify_SSL
);
my %persist_ok = map {; $_ => 1 } qw(
cookie_jar default_headers max_redirect max_size
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
my($class, %args) = @_;
my $self = {
max_redirect => 5,
timeout => 60,
keep_alive => 1,
verify_SSL => $args{verify_SSL} || $args{verify_ssl} || 0, # no verification by default
no_proxy => $ENV{no_proxy},
};
bless $self, $class;
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
else {
my $data_cb = $self->_prepare_data_cb($response, $args);
$known_message_length = $handle->read_body($data_cb, $response);
}
if ( $self->{keep_alive}
&& $known_message_length
&& $response->{protocol} eq 'HTTP/1.1'
&& ($response->{headers}{connection} || '') ne 'close'
) {
$self->{handle} = $handle;
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
my $handle = HTTP::Tiny::Handle->new(
timeout => $self->{timeout},
SSL_options => $self->{SSL_options},
verify_SSL => $self->{verify_SSL},
local_address => $self->{local_address},
keep_alive => $self->{keep_alive}
);
if ($self->{_has_proxy}{$scheme} && ! grep { $host =~ /\Q$_\E$/ } @{$self->{no_proxy}}) {
return $self->_proxy_connect( $request, $handle );
}
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
}
$request->{headers}{'host'} = $request->{host_port};
$request->{headers}{'user-agent'} ||= $self->{agent};
$request->{headers}{'connection'} = "close"
unless $self->{keep_alive};
if ( defined $args->{content} ) {
if (ref $args->{content} eq 'CODE') {
$request->{headers}{'content-type'} ||= "application/octet-stream";
$request->{headers}{'transfer-encoding'} = 'chunked'
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
$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/);
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
C<local_address> — The local IP address to bind to
=item *
C<keep_alive> — Whether to reuse the last connection (if for the same scheme, host and port) (defaults to 1)
=item *
C<max_redirect> — Maximum number of redirects allowed (defaults to 5)
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
Exceptions from C<max_size>, C<timeout> or other errors will result in a
pseudo-HTTP status code of 599 and a reason of "Internal Exception". The
content field in the response will contain the text of the exception.
The C<keep_alive> parameter enables a persistent connection, but only to a
single destination scheme, host and port. Also, if any connection-relevant
attributes are modified, or if the process ID or thread ID change, the
persistent connection will be dropped. If you want persistent connections
across multiple destinations, use multiple HTTP::Tiny objects.
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
agent
cookie_jar
default_headers
http_proxy
https_proxy
keep_alive
local_address
max_redirect
max_size
no_proxy
proxy
view release on metacpan or search on metacpan
lib/App/cpm/HTTP.pm view on Meta::CPAN
agent => $agent,
timeout => 60,
verify_SSL => 1,
%args,
);
my $keep_alive = exists $args{keep_alive} ? $args{keep_alive} : 1;
if ($keep_alive and $backend =~ /LWP$/) {
$http->{ua}->conn_cache({ total_capacity => 3 });
}
$wantarray ? ($http, "$tool $desc") : $http;
}
view release on metacpan or search on metacpan
share/wordlist_en.tsv view on Meta::CPAN
11422 alibi
11423 alienable
11424 alienate
11425 aliens
11426 alike
11431 alive
11432 alkaline
11433 alkalize
11434 almanac
11435 almighty
11436 almost
view release on metacpan or search on metacpan
bin/geoCancerPrognosticDatasetsRetriever view on Meta::CPAN
sub prognostic_signature_finder {
my $soft_file = $_[0];
my %hash_signature = ();
my $soft_line = "";
my $regex_tail = '(:|=)\s*(alive.*|no\sdeath|dea(d|th.*)|deceased|NED|DOD|DOC|0\s|1\s|no|yes|.*patient|died.*|alive|surviv(al|ed)|living|long|short|Y|N|NED|DOD|AWD|Exitus)';
my $regex_keyword_type_A = '(.*stat?us.*|.*(dea(d|th)|.*alive).*|.*\srecur\s.*|.*Die.*)' . $regex_tail;
my $regex_keyword_type_B = '(dss.?event\s?\(.+\)|dfs.*\w+|drfs.*|e\.dmfs.*|e\.rfs.*|e?\.?os.*)' . $regex_tail;
my $regex_keyword_type_C = '((Overall)?\s?survival.*|(overall)?.?event.*|outcome.*|prognosis.*|comort.*|evolution.*)' . $regex_tail;
my $regex_keyword_type_Ca = '(Overall)?\s?survival\s.*(:|=)\s*(\d*)';
my $outcome_1 = "Prognostic Signature filter: <Prognostic signature found>\n";
my $outcome_2 = "Prognostic Signature filter: <No data found>\n";
view release on metacpan or search on metacpan
lib/App/karr/Foundation.pm view on Meta::CPAN
my $lock = $self->_lock_file( $repo );
return 0 unless $lock->exists;
my $pid = $lock->slurp_utf8;
chomp $pid;
return 0 unless $pid =~ /^\d+$/;
# Check if PID is alive
return kill( 0, $pid ) ? 1 : 0;
}
sub _acquire_lock {
my ( $self, $repo ) = @_;
view release on metacpan or search on metacpan
lib/App/livehttperf.pm view on Meta::CPAN
$OPTS{input} = '-' unless $OPTS{input};
%ua_opts = (
max_redirect => 0,
timeout => $OPTS{timeout},
keep_alive => 0,
);
if ( $OPTS{concurrency_max} && $OPTS{concurrency_step} ) {
push @concurrency, 1
unless $OPTS{concurrency_step} == 1;
lib/App/livehttperf.pm view on Meta::CPAN
next if $l =~ /^Set-Cookie/i;
}
$res_hdrs .= $l;
}
$res = HTTP::Response->parse($res_hdrs);
unless ( $ua_opts{keep_alive} ) {
if ( my $ka = $res->header('Keep-Alive') ) {
my ($max) = $ka =~ /max=(\d+)/;
$ua_opts{keep_alive} = $max || 100;
}
}
last RRB;
}
}
view release on metacpan or search on metacpan
lib/App/MadEye/Plugin/Agent/DBI.pm view on Meta::CPAN
if ($@) {
return $@;
} elsif (! $dbh->ping) {
return "DEAD";
} else {
return; # alive.
}
}
1;
__END__
view release on metacpan or search on metacpan
checks that the hostname is resolvable to an ip address.
check rscd
==========
checks that the rscd agent is alive.
targets
=======
a target name may be either a filename containing the target hosts, one per line,
view release on metacpan or search on metacpan
bin/plx-packed 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 ver...
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
lib/App/remarkpl/public/remark.min.js view on Meta::CPAN
},a={className:"params",begin:/\(/,end:/\)/,excludeBegin:!0,excludeEnd:!0},r={className:"symbol",variants:[{begin:/\=[lgenxc]=/},{begin:/\$/}]},s={className:"comment",variants:[{begin:"'",end:"'"},{begin:'"',end:'"'}],illegal:"\\n",contains:[e.BACKSL...
},{begin:":\\s*"+t}]}]}}},{name:"hsp",create:function(e){return{case_insensitive:!0,lexemes:/[\w\._]+/,keywords:"goto gosub return break repeat loop continue wait await dim sdim foreach dimtype dup dupptr end stop newmod delmod mref run exgoto on mca...
},contains:[t,{className:"keyword",begin:"\\bend\\sif\\b"},{className:"function",beginKeywords:"function",end:"$",contains:[t,s,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.BINARY_NUMBER_MODE,e.C_NUMBER_MODE,r]},{className:"function",begin:"\\bend\\s+",e...
contains:[{className:"comment",begin:/\(\*/,end:/\*\)/},e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.C_NUMBER_MODE,{begin:/\{/,end:/\}/,illegal:/:/}]}}},{name:"matlab",create:function(e){var t=[e.C_NUMBER_MODE,{className:"string",begin:"'",end:"'",contai...
illegal:"</",contains:[e.C_NUMBER_MODE,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[e.BACKSLASH_ESCAPE]},{begin:"[\\$\\%\\@](\\^\\w\\b|#\\w+|[^\\s\\w{]|{\\w+}|\\w+)"},e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_M...
contains:[i]});return{aliases:["ps"],lexemes:/-?[A-z\.\-]+/,case_insensitive:!0,keywords:{keyword:"if else foreach return function do while until elseif begin for trap data dynamicparam end break throw param continue finally in switch exit filter try...
},{className:"meta",begin:"#\\!?\\[",end:"\\]",contains:[{className:"meta-string",begin:/"/,end:/"/}]},{className:"class",beginKeywords:"type",end:";",contains:[e.inherit(e.UNDERSCORE_TITLE_MODE,{endsParent:!0})],illegal:"\\S"},{className:"class",beg...
literal:"true false nil"},contains:[e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,e.NUMBER_MODE,a,t.preprocessor],illegal:/#/}}},{name:"sql",create:function(e){var t=e.COMMENT("--","$");return{case_insensitive:!0,illegal:/[<>{}*#]/,contains:[{beginKey...
return{aliases:["styl"],case_insensitive:!1,keywords:"if else for in",illegal:"("+o.join("|")+")",contains:[e.QUOTE_STRING_MODE,e.APOS_STRING_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,a,{begin:"\\.[a-zA-Z][a-zA-Z0-9_-]*"+i,returnBegin:!0,cont...
built_in:"ip eip rip al ah bl bh cl ch dl dh sil dil bpl spl r8b r9b r10b r11b r12b r13b r14b r15b ax bx cx dx si di bp sp r8w r9w r10w r11w r12w r13w r14w r15w eax ebx ecx edx esi edi ebp esp eip r8d r9d r10d r11d r12d r13d r14d r15d rax rbx rcx rdx...
"atelier-lakeside-light":".hljs-atelier-lakeside-light .hljs-comment,.hljs-atelier-lakeside-light .hljs-quote{color:#5a7b8c}.hljs-atelier-lakeside-light .hljs-variable,.hljs-atelier-lakeside-light .hljs-template-variable,.hljs-atelier-lakeside-light ...
grayscale:".hljs-grayscale .hljs{display:block;overflow-x:auto;padding:.5em;color:#333;background:#fff}.hljs-grayscale .hljs-comment,.hljs-grayscale .hljs-quote{color:#777;font-style:italic}.hljs-grayscale .hljs-keyword,.hljs-grayscale .hljs-selector...
view release on metacpan or search on metacpan
share/revealjs/plugin/highlight/highlight.esm.js view on Meta::CPAN
function e(t){return(e="function"==typeof Symbol&&"symbol"==typeof Symbol.iterator?function(e){return typeof e}:function(e){return e&&"function"==typeof Symbol&&e.constructor===Symbol&&e!==Symbol.prototype?"symbol":typeof e})(t)}function t(e,t){if(!(...
/*!
* reveal.js plugin that adds syntax highlight support.
*/
var of={id:"highlight",HIGHLIGHT_STEP_DELIMITER:"|",HIGHLIGHT_LINE_DELIMITER:",",HIGHLIGHT_LINE_RANGE_DELIMITER:"-",hljs:rf,init:function(e){var t=e.getConfig().highlight||{};t.highlightOnLoad="boolean"!=typeof t.highlightOnLoad||t.highlightOnLoad,t....
view release on metacpan or search on metacpan
my $x = {major => 1,
minor => 1,
type => 'request',
method => $o->{method},
hf => [qw/Host User-Agent Accept-Encoding Connection/],
hv => {connection => 'keep-alive',
'user-agent' => 'App-rs',
'accept-encoding' => 'gzip'}};
if ($o->{method} eq 'POST') {
push @{$x->{hf}}, qw/Content-Length Content-Type/;
add($x->{hv},
view release on metacpan or search on metacpan
0.03 2015-05-03T20:37:57+0200
- Add support for backspace
- Add support for "clear screen" shell command
- Fix failing javascript when "cursor" was not present in DOM
- Remove running command from markup
- Will keep websocket alive from client
0.02 2014-01-22T20:01:07Z
- Fix pod
0.01 2014-01-21T20:56:48Z
view release on metacpan or search on metacpan
share/files/public/skins/default/jquery-ui-1.9.1.custom/development-bundle/jquery-1.8.2.js view on Meta::CPAN
}
};
}
});
var xhrCallbacks,
// #5280: Internet Explorer will keep connections alive if we don't abort on unload
xhrOnUnloadAbort = window.ActiveXObject ? function() {
// Abort all pending requests
for ( var key in xhrCallbacks ) {
xhrCallbacks[ key ]( 0, 1 );
}
view release on metacpan or search on metacpan
lib/Arango/DB/Cursor.pm view on Meta::CPAN
=item C<next>
Returns the next results. On the first call, returns the results
obtained from the first query request. Subsequent requests will try
to gather more hits if they exists, and the query id is still alive.
=item C<has_more>
Returns a boolean stating if there are more results to be fetched.
view release on metacpan or search on metacpan
lib/Arango/Tango/Cursor.pm view on Meta::CPAN
=item C<next>
Returns the next results. On the first call, returns the results
obtained from the first query request. Subsequent requests will try
to gather more hits if they exists, and the query id is still alive.
=item C<has_more>
Returns a boolean stating if there are more results to be fetched.
view release on metacpan or search on metacpan
lib/ArangoDB.pm view on Meta::CPAN
use ArangoDB;
my $db = ArangoDB->new(
host => 'localhost',
port => 8529,
keep_alive => 1,
);
# Find or create collection
my $foo = $db->('foo');
lib/ArangoDB.pm view on Meta::CPAN
Seconds of HTTP connection timeout.
Default: 300
=item keep_alive
If it is true, use HTTP Keep-Alive connection.
Default: false
view release on metacpan or search on metacpan
lib/ArangoDB2/HTTP/LWP.pm view on Meta::CPAN
arango => $arango,
};
bless($self, $class);
$self->{lwp} = LWP::UserAgent->new(
keep_alive => 1
);
# set authentication is username is specified
if ($self->arango->username) {
$self->lwp->default_headers->authorization_basic(
view release on metacpan or search on metacpan
t/fiddler2.t view on Meta::CPAN
use JSON();
my $har = Archive::Har->new();
my $fiddler_string = <<'_FIDDLER2_RESULTS_';
{"log":{"creator":{"comment":"http://www.fiddler2.com", "version":"4.6.0.2", "name":"Fiddler"}, "entries":[{"startedDateTime":"2015-09-05T17:11:08.5888671+10:00", "response":{"headersSize":306, "httpVersion":"HTTP/1.1", "content":{"compression":0,...
_FIDDLER2_RESULTS_
ok($har->string($fiddler_string), "Successfully read Fiddler har archive for http://search.cpan.org/recent");
ok($har->version() eq '1.2', "INPUT: Fiddler produces a version 1.2 http archive");
ok($har->creator()->name() eq 'Fiddler', "INPUT: Fiddler's creator name is 'Fiddler'");
ok($har->creator()->version() eq '4.6.0.2', "INPUT: Fiddler's creator version is '4.6.0.2'");
view release on metacpan or search on metacpan
doc/documentation.en.md view on Meta::CPAN
within the `l2p_lin` function it would always give -4.
Here is the hypothetical explanation. During the first generation,
function `l2p_lin` would use the proper value for `$l_min`, that is,
0, then -1, then -3 and lastly -4. When method `html` ends, function
`l2p_lin` is still alive thanks to the closure mechanism. And thanks
to the same closure mechanism, variable `$l_min` still exists with
value -4 because it is used by `l2p_lin`. Then, method `html` is
called a second time to check CSS usage. This defines a new instance
of variable `$l_min`, initialised to 0. On the other hand, when
reading the definition
view release on metacpan or search on metacpan
lib/Armadito/Agent/HTTP/Client.pm view on Meta::CPAN
$self->{ua} = LWP::UserAgent->new(
requests_redirectable => [ 'POST', 'GET', 'HEAD' ],
agent => $Armadito::Agent::AGENT_STRING,
timeout => $params{timeout} || 180,
parse_head => 0,
keep_alive => 1,
);
if ( $params{proxy} ) {
$self->{ua}->proxy( [ 'http', 'https' ], $params{proxy} );
}
view release on metacpan or search on metacpan
2000-01-13 Gisle Aas <gisle@aas.no>
Release 0.02
Do reference counting for av_store/hv_store the right way. Previously we
could trigger a core dump if the thing to be stored only was kept alive by
a reference at the same location in the array.
2000-01-10 Gisle Aas <gisle@aas.no>
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
aliteracies
aliteracy
aliterate
aliterates
aliunde
alive
aliveness
alivenesses
aliya
aliyah
aliyahs
aliyas
aliyos
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Wordle.pm view on Meta::CPAN
alifs
align
alike
aline
alist
alive
aliya
alkie
alkos
alkyd
alkyl
view release on metacpan or search on metacpan
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
aliteracies
aliteracy
aliterate
aliterates
aliunde
alive
aliveness
alivenesses
aliya
aliyah
aliyahs
aliyas
aliyos
view release on metacpan or search on metacpan
It's alive! It's Aliiiive!
Is it an array, or is it a hash? Neither! Both! It's a disgusting
frankenstein's monster made by sewing together bits and pieces of
arrays and hashes into a monstrous and unholy creation!
view release on metacpan or search on metacpan
lib/Arriba/Connection/HTTP.pm view on Meta::CPAN
or die $!;
}
$self->{_inputbuf} = '';
$self->{_current_req} = undef;
$self->{_keepalive} = 1;
return $self;
}
sub read_request {
lib/Arriba/Connection/HTTP.pm view on Meta::CPAN
}
$req->{complete} = 1;
$self->{_current_req} = undef;
}
elsif ($self->{_keepalive}) {
# New request
$req = Arriba::Request->new($self);
$req->{scheme} = $self->{ssl} ? 'https' : 'http';
while (1) {
lib/Arriba/Connection/HTTP.pm view on Meta::CPAN
}
}
}
else {
if (!exists $headers{'transfer-encoding'}) {
$self->{_keepalive} = 0;
}
}
if ($self->{_keepalive}) {
push @header_lines, 'Connection: keep-alive';
}
else {
push @header_lines, 'Connection: close';
}
view release on metacpan or search on metacpan
t/201-current_contract.t view on Meta::CPAN
use Scalar::Util qw(refaddr);
my @trace;
my $report = refute_and_report {
push @trace, current_contract;
push @trace, "alive";
};
is refaddr $trace[0], refaddr $report, "current_contract is same as report";
is $trace[1], "alive", "current_contract lives";
my $permitted = eval {
current_contract;
"Should not be";
};
view release on metacpan or search on metacpan
examples/cmd_server.pl view on Meta::CPAN
#Connect to asterisk
my $astman = Asterisk::AMI->new(PeerAddr => '127.0.0.1',
Username => 'test',
Secret => 'supersecret',
Timeout => 3, #Default timeout for all operations, 3 seconds
Keepalive => 60, #Send a keepalive every minute
on_error => sub { print "Error occured on socket\r\n"; exit; },
on_timeout => sub { print "Connection to asterisk timed out\r\n"; exit; },
Blocking => 0
);