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..' );
view release on metacpan or search on metacpan
eval {
local $SIG{'__WARN__'} = sub {};
CBOR::Free::decode($cbor);
};
ok 1, "$node: still alive";
}
done_testing;
view release on metacpan or search on metacpan
spaceinvaders/spaceInvaders.pl view on Meta::CPAN
$c->after(100, \&maint);
}
}
my $downrow;
sub march {
my($collisions,$alive)=(0,0);
for (@badguys) {
delete $_->{oldloc};
if ($_->{dead} && $_->{dead}<0 ) {
if ($_->{dead} == $deathdelay) {
$_->{sprite}->names("");
spaceinvaders/spaceInvaders.pl view on Meta::CPAN
unless (++$_->{dead}) {
$_->{sprite}->remove;
$_->{dead}++;
}
}
$alive++ unless $_->{dead};
}
@badguys=() unless $alive;
for (@badguys) {
next if $_->{dead};
$_->{oldloc}=[ $_->{sprite}->place ];
($t::x, $t::y)=@{ $_->{oldloc} };
$t::x+=$alienmove*$direction;
view release on metacpan or search on metacpan
examples/example_form/script/example_form_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/public_html/demo/civil.txt view on Meta::CPAN
business in which they are concerned; they are all peaceably inclined.
Now, what are they? Men at all? or small movable forts and
magazines, at the service of some unscrupulous man in power? Visit the
Navy-Yard, and behold a marine, such a man as an American government
can make, or such as it can make a man with its black arts- a mere
shadow and reminiscence of humanity, a man laid out alive and
standing, and already, as one may say, buried under arms with
funeral accompaniments, though it may be,
"Not a drum was heard, not a funeral note,
view release on metacpan or search on metacpan
$ENV{'DOCUMENT_ROOT'} = '/var/www/html';
$ENV{'GATEWAY_INTERFACE'} = 'CGI/1.1';
$ENV{'HTTP_ACCEPT'} = 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
$ENV{'HTTP_ACCEPT_ENCODING'} = 'gzip, deflate';
$ENV{'HTTP_ACCEPT_LANGUAGE'} = 'en-us,en;q=0.5';
$ENV{'HTTP_CONNECTION'} = 'keep-alive';
$ENV{'HTTP_COOKIE'} = 'cookie_single_val=pH3FdqRbvd; cookie_multiple_vals=v&xD5wnHLJNv&j&3';
$ENV{'HTTP_HOST'} = 'www.example.com';
$ENV{'HTTP_USER_AGENT'} = 'Mozilla/5.0 (X11; Ubuntu; Linux i686; rv:14.0) Gecko/20100101 Firefox/14.0.1';
$ENV{'LD_LIBRARY_PATH'} = '/usr/local/apache2/lib';
$ENV{'MACHINE_NAME'} = 'Idocs';
view release on metacpan or search on metacpan
memcache.pm view on Meta::CPAN
This driver requires Memcached connection handle to be passed to CGI::Session constructor as "raw" connection handle ({'Handle' => $memd}), making
caller responsible for passing a valid connection. This is actually good for relieving CGI::Session from the intricacies of suppporting various Memcached client
modules with differences in constructions (the rest of the main API on these module is generally very similar).
This driver and CGI::Session underpinnings do very little to ensure the server is actually alive.
The situation is even worse for Memcached client modules that return valid client instance
without server running (This is very different from lot of other DB Modules like DBI/DBD* or Net::LDAP,
where any problems with server raises exceptions or returns undefined handles).
Make sure your server is alive by either Calling stats() on Memcached client:
my $stats = $memd->stats(); # Allows: [$keys]
if (ref($stats) || !$stats->{'total'}) {die("No stats from Memcached - Memcached not running ?");}
... or by doing a set/get test sequence:
view release on metacpan or search on metacpan
src/speedy_backend.h view on Meta::CPAN
slotnum_t speedy_backend_create_slot(slotnum_t gslotnum);
void speedy_backend_remove_be_wait(slotnum_t gslotnum);
int speedy_backend_below_maxbe(slotnum_t gslotnum);
void speedy_backend_exited(slotnum_t bslotnum, int exit_on_sig, int exit_val);
#define speedy_backend_alive(b) \
(speedy_util_kill(FILE_SLOT(be_slot, (b)).pid, 0) != -1)
#define speedy_backend_dead(b) (!speedy_backend_alive(b))
/* Backend is dead, simulate sigkill */
#define speedy_backend_died(b) speedy_backend_exited((b),1,SIGKILL)
view release on metacpan or search on metacpan
lib/CGI/Test.pm view on Meta::CPAN
request. Since there is no browser making any request here, the
default is set to "iso-8859-1".
=item C<HTTP_CONNECTION>
Whether the connection should be kept alive by the server or closed after
this request. Defaults to "Close", but since there's no connection and
no real client...
=item C<HTTP_HOST>
view release on metacpan or search on metacpan
lib/CHI/Driver/LMDB.pm view on Meta::CPAN
single_txn => 1
B<SPEED>: For performance benefits, have a single transaction
that lives from the creation of the CHI cache till its destruction.
However, B<WARNING:> this flag is currently a bit dodgy, and CHI caches being kept alive
till global destruction B<WILL> trigger a C<SEGV>, and potentially leave your cache broken.
You can avoid this by manually destroying the cache with:
undef $cache
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libpod-xhtml-perl", "Pod-Xhtml", "1.60", "0", "0"
"libpod2-base-perl", "POD2-Base", "0.043", "0", "2"
"libpoe-api-peek-perl", "POE-API-Peek", "2.1600", "1", "0"
"libpoe-component-client-dns-perl", "POE-Component-Client-DNS", "1.051", "0", "1"
"libpoe-component-client-http-perl", "POE-Component-Client-HTTP", "0.942", "0", "2"
"libpoe-component-client-keepalive-perl", "POE-Component-Client-Keepalive", "0.2660", "0", "1"
"libpoe-component-client-mpd-perl", "POE-Component-Client-MPD", "1.100430", "0", "0"
"libpoe-component-client-ping-perl", "POE-Component-Client-Ping", "1.163", "0", "0"
"libpoe-component-dbiagent-perl", "POE-Component-DBIAgent", "0.26", "0", "1"
"libpoe-component-ikc-perl", "POE-Component-IKC", "0.2200", "1", "0"
"libpoe-component-irc-perl", "POE-Component-IRC", "6.54", "0", "2"
view release on metacpan or search on metacpan
corpus/dists/SQL-Statement.changes view on Meta::CPAN
* add abstract methods for all methods derived classes must override
(this means, open_table for SQL::Statement deriveds must be overridden
and all data access methods of tables - see SQL::Eval::Table for details)
* Tests are fixed to use TEMP TABLES explicitely when required
* check for invalid column names fixed
* Don't let depreciated parser structures stay alive in SQL::Statement when
reusing the Parser
[Documentation]
* Method documentation of SQL::Statement and SQL::Eval::Table are improved
* Add a Roadmap describing future plans for SQL::Statement (in addition to
view release on metacpan or search on metacpan
script/cpan_mini_inject_rest_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
lib/CPAN/Mini.pm view on Meta::CPAN
$version = 'v?' unless defined $version;
$self->{__lwp} = LWP::UserAgent->new(
agent => "$class/$version",
env_proxy => 1,
($self->{no_conn_cache} ? () : (keep_alive => 5)),
($self->{timeout} ? (timeout => $self->{timeout}) : ()),
);
unless ($self->{offline}) {
my $test_uri = URI->new_abs(
view release on metacpan or search on metacpan
lib/CPAN/Testers/Metabase/Demo.pm view on Meta::CPAN
isa => 'Str',
lazy => 1,
builder => '_build_data_directory',
);
# keeps the tempdir alive until process exits
has '_cache' => (
is => 'ro',
isa => 'HashRef',
default => sub { {} },
);
view release on metacpan or search on metacpan
lib/CPAN/Testers/ParseReport.pm view on Meta::CPAN
my $ua;
sub _ua {
return $ua if $ua;
$ua = LWP::UserAgent->new
(
keep_alive => 1,
env_proxy => 1,
timeout => 900,
);
$ua->parse_head(0);
$ua;
lib/CPAN/Testers/ParseReport.pm view on Meta::CPAN
my $ua;
sub _ua_gzip {
return $ua if $ua;
$ua = LWP::UserAgent->new
(
keep_alive => 1,
env_proxy => 1,
);
$ua->parse_head(0);
$ua->default_header('Accept-Encoding' => scalar HTTP::Message::decodable());
$ua;
view release on metacpan or search on metacpan
t/data/cpanstats-test.json view on Meta::CPAN
{"test":{"count":{"entries":100,"reports":100,"posters":"182","distros":0},"pass":{"MacPPC":{"5.4.0":{"all":{"Net-Whois":1,"URI":1,"Storable":1,"Mac-Conversions":1,"Digest-MD5":1}}},"PA-RISC1.1":{"5.5.3":{"all":{"DBD-Oracle":1,"Curses":1}},"5.4.4":{"...
view release on metacpan or search on metacpan
lib/CPAN/WWW/Top100/Retrieve.pm view on Meta::CPAN
This module retrieves the data from CPAN Top100 and returns it in a structured format.
=head2 Constructor
This module uses Moose, so you can pass either a hash or hashref to the constructor. The object will cache all
data relevant to the Top100 for as long as it's alive. If you want to get fresh data just make a new object and
use that.
The attributes are:
=head3 debug
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/Cpan.pm view on Meta::CPAN
else {
$ping->{'port_num'} = $port;
}
$ping->hires(1) if $ping->can( 'hires' );
my( $alive, $rtt ) = eval{ $ping->ping( $url->host ) };
$alive ? $rtt : undef;
}
sub _load_local_lib # -I
{
$logger->debug( "Loading local::lib" );
view release on metacpan or search on metacpan
inc/bundle/HTTP/Tiny.pm view on Meta::CPAN
#pod appended.
#pod * C<cookie_jar> — An instance of L<HTTP::CookieJar> — or equivalent class
#pod that supports the C<add> and C<cookie_header> methods
#pod * C<default_headers> — A hashref of default headers to apply to requests
#pod * C<local_address> — The local IP address to bind to
#pod * C<keep_alive> — Whether to reuse the last connection (if for the same
#pod scheme, host and port) (defaults to 1)
#pod * C<max_redirect> — Maximum number of redirects allowed (defaults to 5)
#pod * C<max_size> — Maximum response size in bytes (only when not using a data
#pod callback). If defined, requests with responses larger than this will return
#pod a 599 status code.
inc/bundle/HTTP/Tiny.pm view on Meta::CPAN
#pod
#pod Errors during request execution will result in a pseudo-HTTP status code of 599
#pod and a reason of "Internal Exception". The content field in the response will
#pod contain the text of the error.
#pod
#pod The C<keep_alive> parameter enables a persistent connection, but only to a
#pod single destination scheme, host and port. If any connection-relevant
#pod attributes are modified via accessor, or if the process ID or thread ID change,
#pod the persistent connection will be dropped. If you want persistent connections
#pod across multiple destinations, use multiple HTTP::Tiny objects.
#pod
inc/bundle/HTTP/Tiny.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
SSL_options verify_SSL
);
my %persist_ok = map {; $_ => 1 } qw(
cookie_jar default_headers max_redirect max_size
inc/bundle/HTTP/Tiny.pm view on Meta::CPAN
}
my $self = {
max_redirect => 5,
timeout => defined $args{timeout} ? $args{timeout} : 60,
keep_alive => 1,
verify_SSL => defined $args{verify_SSL} ? $args{verify_SSL} : _verify_SSL_default(),
no_proxy => $ENV{no_proxy},
};
bless $self, $class;
inc/bundle/HTTP/Tiny.pm view on Meta::CPAN
#pod =method connected
#pod
#pod $host = $http->connected;
#pod ($host, $port) = $http->connected;
#pod
#pod Indicates if a connection to a peer is being kept alive, per the C<keep_alive>
#pod option.
#pod
#pod In scalar context, returns the peer host and port, joined with a colon, or
#pod C<undef> (if no peer is connected).
#pod In list context, returns the peer host and port or an empty list (if no peer
inc/bundle/HTTP/Tiny.pm view on Meta::CPAN
my $cb_args = @redir_args ? +{} : $args;
my $data_cb = $self->_prepare_data_cb($response, $cb_args);
$known_message_length = $handle->read_body($data_cb, $response);
}
if ( $self->{keep_alive}
&& $handle->connected
&& $known_message_length
&& $response->{protocol} eq 'HTTP/1.1'
&& ($response->{headers}{connection} || '') ne 'close'
) {
inc/bundle/HTTP/Tiny.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 );
}
inc/bundle/HTTP/Tiny.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};
# Some servers error on an empty-body PUT/POST without a content-length
if ( $request->{method} eq 'PUT' || $request->{method} eq 'POST' ) {
if (!defined($args->{content}) || !length($args->{content}) ) {
$request->{headers}{'content-length'} = 0;
inc/bundle/HTTP/Tiny.pm view on Meta::CPAN
) or die(qq/Could not connect to '$host:$port': $@\n/);
binmode($self->{fh})
or die(qq/Could not binmode() socket: '$!'\n/);
if ( $self->{keep_alive} ) {
unless ( defined( $self->{fh}->setsockopt( SOL_SOCKET, SO_KEEPALIVE, 1 ) ) ) {
CORE::close($self->{fh});
die(qq/Could not set SO_KEEPALIVE on socket: '$!'\n/);
}
}
inc/bundle/HTTP/Tiny.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)
inc/bundle/HTTP/Tiny.pm view on Meta::CPAN
Errors during request execution 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 error.
The C<keep_alive> parameter enables a persistent connection, but only to a
single destination scheme, host and port. If any connection-relevant
attributes are modified via accessor, 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.
inc/bundle/HTTP/Tiny.pm view on Meta::CPAN
=head2 connected
$host = $http->connected;
($host, $port) = $http->connected;
Indicates if a connection to a peer is being kept alive, per the C<keep_alive>
option.
In scalar context, returns the peer host and port, joined with a colon, or
C<undef> (if no peer is connected).
In list context, returns the peer host and port or an empty list (if no peer
inc/bundle/HTTP/Tiny.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
include/boost/intrusive/detail/generic_hook.hpp view on Meta::CPAN
{};
template<class Hook>
void destructor_impl(Hook &hook, detail::link_dispatch<safe_link>)
{ //If this assertion raises, you might have destroyed an object
//while it was still inserted in a container that is alive.
//If so, remove the object from the container before destroying it.
(void)hook; BOOST_INTRUSIVE_SAFE_HOOK_DESTRUCTOR_ASSERT(!hook.is_linked());
}
template<class Hook>
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libpod-xhtml-perl", "Pod-Xhtml", "1.59", "0", "0"
"libpod2-base-perl", "POD2-Base", "not-uploaded", "0", "0"
"libpoe-api-peek-perl", "POE-API-Peek", "1.3400", "0", "0"
"libpoe-component-client-dns-perl", "POE-Component-Client-DNS", "1.051", "0", "0"
"libpoe-component-client-http-perl", "POE-Component-Client-HTTP", "0.893", "0", "0"
"libpoe-component-client-keepalive-perl", "POE-Component-Client-Keepalive", "0.2620", "0", "0"
"libpoe-component-client-mpd-perl", "POE-Component-Client-MPD", "0.9.6", "0", "0"
"libpoe-component-dbiagent-perl", "POE-Component-DBIAgent", "0.26", "0", "0"
"libpoe-component-ikc-perl", "POE-Component-IKC", "0.2200", "0", "0"
"libpoe-component-irc-perl", "POE-Component-IRC", "6.16", "0", "0"
"libpoe-component-jabber-perl", "POE-Component-Jabber", "3.00", "0", "0"
view release on metacpan or search on metacpan
t/smoke/mem-leaks.pl view on Meta::CPAN
warn "Memory increased to $mem (step $i)\n";
$mem_usage = $mem;
}
}
# print a dot to the console (we are still alive)
if ($i % 500 == 0) { local $| = 1; print "."; }
}