Result:
found more than 895 distributions - search limited to the first 2001 files matching your query
( run in 1.376 )
Docs-US_DOD-STD2167A
view release on metacpan or search on metacpan
lib/Docs/US_DOD/STD490A.pm view on Meta::CPAN
(detail design) specifications under a single specification number
as Part I and Part II respectively, may be selected as a contracting
agency option. This practice requires both parts for a complete
definition of both performance requirements and detailed design
requirements governing fabrication. Under this practice, the development
specification remains alive during the life of the HWCI as the
complete statement of performance requirements. Proposed design
changes must be evaluated against both the product fabrication
and the development parts of the specification. To emphasize the
fact that two parts exist, both parts shall be identified by the
same specification number and each part shall be further identified
Domain-Details
view release on metacpan or search on metacpan
App-Domain-1.230280/_Deparsed_XSubs.pm view on Meta::CPAN
sub flag;
sub hostkey_hash;
sub hostname;
sub inet_aton;
sub inet_ntoa;
sub keepalive_config;
sub keepalive_send;
sub known_hosts;
sub listen;
sub pack_sockaddr_in6;
sub pack_sockaddr_in;
sub pack_sockaddr_un;
Doubly-Linked
view release on metacpan or search on metacpan
lib/Doubly/Linked.xs view on Meta::CPAN
if (_is_undef(self)) {
return;
}
/* Collect all nodes first, incrementing refcounts to keep them alive */
AV * nodes = newAV();
self = _goto_start(self);
HV * hash = (HV*)SvRV(self);
av_push(nodes, SvREFCNT_inc(self));
DracPerl-Client
view release on metacpan or search on metacpan
ok my $fans = $result->{fans};
is scalar @{$fans->list}, 5, "Fans data is correct";
is $drac_client->isAlive(), 1, "Session is still alive";
ok my $drac_client_bis = DracPerl::Client->new(
{ user => "dummy",
password => "dummy",
url => $ENV{DRAC_URL} || "https://dracip",
Drogo
view release on metacpan or search on metacpan
'"\$status" \$body_bytes_sent';
$access_log
sendfile on;
keepalive_timeout 65;
perl_modules $base_path/lib;
$perl_requires
Dubber-API
view release on metacpan or search on metacpan
lib/Dubber/API.pm view on Meta::CPAN
return LWP::UserAgent->new(
agent => $self->user_agent,
cookie_jar => $self->cookies,
timeout => $self->timeout,
con_cache => $self->connection_cache,
keep_alive => 1,
ssl_opts => { verify_hostname => $self->strict_ssl },
);
}
# ------------------------------------------------------------------------
EBook-Generator
view release on metacpan or search on metacpan
./website2ebook.pl http://www.turbozen.com/sourceCode/TinyLisp/
./website2ebook.pl http://en.wikipedia.org/wiki/Unix_philosophy
./website2ebook.pl http://www.kanneganti.com/technical/architect
./website2ebook.pl http://jessicamah.com/blog/?p=641
./website2ebook.pl http://en.wikipedia.org/wiki/Worse_is_better
./website2ebook.pl http://www.netalive.org/tinkering/serious-perl/
./website2ebook.pl http://www.icbs.com/kb/inspiration/kb_inspiration-9-ways-to-motivate-yourself.htm
EMDIS-ECS
view release on metacpan or search on metacpan
script/ecs_chk_com view on Meta::CPAN
# check time since last communication sent to node
if(($current_time - $last_out) > $t_chk_min)
{
print "$DEBUG_LABEL sending READY message to node $node_id\n"
if $ECS_CFG->ECS_DEBUG > 0;
# send "I am alive" meta-message
$err = send_ecs_message($node_id, '',
"msg_type=READY\n",
((exists $node->{in_seq}) &&
((!exists $node->{ready_num_disabled}) ||
not is_yes($node->{ready_num_disabled}))
script/ecs_chk_com view on Meta::CPAN
((exists $node->{doc_out_seq}) &&
((!exists $node->{ready_num_disabled}) ||
not is_yes($node->{ready_num_disabled}))
? "last_sent_doc=" . $node->{doc_out_seq}
: "") . "\n",
"# Hello Partner, I am alive.\n");
if($err)
{
log_error("chk_com(): unable to send READY meta-message " .
"to node $node_id: $err");
}
EOL
view release on metacpan or search on metacpan
t/dracula.DOS.txt view on Meta::CPAN
they cried and sobbed in a hysterical manner. I was stern with them,
however, and would not let them talk. I told them that one life was
bad enough to lose, and if they delayed they would sacrifice Miss
Lucy. So, sobbing and crying they went about their way, half clad as
they were, and prepared fire and water. Fortunately, the kitchen and
boiler fires were still alive, and there was no lack of hot water. We
got a bath and carried Lucy out as she was and placed her in it.
Whilst we were busy chafing her limbs there was a knock at the hall
door. One of the maids ran off, hurried on some more clothes, and
opened it. Then she returned and whispered to us that there was a
gentleman who had come with a message from Mr. Holmwood. I bade her
t/dracula.DOS.txt view on Meta::CPAN
"About ten days."
"Ten days! Then I guess, Jack Seward, that that poor pretty creature
that we all love has had put into her veins within that time the blood
of four strong men. Man alive, her whole body wouldn't hold it." Then
coming close to me, he spoke in a fierce half-whisper. "What took it
out?"
I shook my head. "That," I said, "is the crux. Van Helsing is simply
frantic about it, and I am at my wits' end. I can't even hazard a
t/dracula.DOS.txt view on Meta::CPAN
"Yes, and it was a sweet and comforting idea for him."
"Quite so. But there was a difficulty, friend John. If so that, then
what about the others? Ho, ho! Then this so sweet maid is a
polyandrist, and me, with my poor wife dead to me, but alive by
Church's law, though no wits, all gone, even I, who am faithful
husband to this now-no-wife, am bigamist."
"I don't see where the joke comes in there either!" I said, and I did
not feel particularly pleased with him for saying such things. He
t/dracula.DOS.txt view on Meta::CPAN
then, can I expect Arthur, who know none of those things, to believe?
"He doubted me when I took him from her kiss when she was dying. I
know he has forgiven me because in some mistaken idea I have done
things that prevent him say goodbye as he ought, and he may think that
in some more mistaken idea this woman was buried alive, and that in
most mistake of all we have killed her. He will then argue back that
it is we, mistaken ones, that have killed her by our ideas, and so he
will be much unhappy always. Yet he never can be sure, and that is
the worst of all. And he will sometimes think that she he loved was
buried alive, and that will paint his dreams with horrors of what she
must have suffered, and again, he will think that we may be right, and
that his so beloved was, after all, an UnDead. No! I told him once,
and since then I learn much. Now, since I know it is all true, a
hundred thousand times more do I know that he must pass through the
bitter waters to reach the sweet. He, poor fellow, must have one hour
t/dracula.DOS.txt view on Meta::CPAN
After a pause Van Helsing went on, evidently with an effort, "Miss
Lucy is dead, is it not so? Yes! Then there can be no wrong to her.
But if she be not dead . . ."
Arthur jumped to his feet, "Good God!" he cried. "What do you mean?
Has there been any mistake, has she been buried alive?" He groaned in
anguish that not even hope could soften.
"I did not say she was alive, my child. I did not think it. I go no
further than to say that she might be UnDead."
"UnDead! Not alive! What do you mean? Is this all a nightmare, or
what is it?"
"There are mysteries which men can only guess at, which age by age
they may solve only in part. Believe me, we are now on the verge of
one. But I have not done. May I cut off the head of dead Miss Lucy?"
t/dracula.DOS.txt view on Meta::CPAN
A few minutes later I saw Morris step suddenly back from a corner,
which he was examining. We all followed his movements with our eyes,
for undoubtedly some nervousness was growing on us, and we saw a whole
mass of phosphorescence, which twinkled like stars. We all
instinctively drew back. The whole place was becoming alive with
rats.
For a moment or two we stood appalled, all save Lord Godalming, who
was seemingly prepared for such an emergency. Rushing over to the
great iron-bound oaken door, which Dr. Seward had described from the
t/dracula.DOS.txt view on Meta::CPAN
Looking fixedly at her, he commenced to make passes in front of her,
from over the top of her head downward, with each hand in turn. Mina
gazed at him fixedly for a few minutes, during which my own heart beat
like a trip hammer, for I felt that some crisis was at hand.
Gradually her eyes closed, and she sat, stock still. Only by the
gentle heaving of her bosom could one know that she was alive. The
Professor made a few more passes and then stopped, and I could see
that his forehead was covered with great beads of perspiration. Mina
opened her eyes, but she did not seem the same woman. There was a
far-away look in her eyes, and her voice had a sad dreaminess which
was new to me. Raising his hand to impose silence, the Professor
t/dracula.DOS.txt view on Meta::CPAN
of standing corn, was the work of centuries. Were another of the
Undead, like him, to try to do what he has done, perhaps not all the
centuries of the world that have been, or that will be, could aid him.
With this one, all the forces of nature that are occult and deep and
strong must have worked together in some wonderous way. The very
place, where he have been alive, Undead for all these centuries, is
full of strangeness of the geologic and chemical world. There are
deep caverns and fissures that reach none know whither. There have
been volcanoes, some of whose openings still send out waters of
strange properties, and gases that kill or make to vivify. Doubtless,
there is something magnetic or electric in some of these combinations
t/dracula.DOS.txt view on Meta::CPAN
she is with that devil's illness, right into the jaws of his
deathtrap? Not for the world! Not for Heaven or Hell!"
He became almost speechless for a minute, and then went on, "Do you
know what the place is? Have you seen that awful den of hellish
infamy, with the very moonlight alive with grisly shapes, and every
speck of dust that whirls in the wind a devouring monster in embryo?
Have you felt the Vampire's lips upon your throat?"
Here he turned to me, and as his eyes lit on my forehead he threw up
his arms with a cry, "Oh, my God, what have we done to have this
t/dracula.DOS.txt view on Meta::CPAN
MEMORANDUM BY ABRAHAM VAN HELSING
4 November.--This to my old and true friend John Seward, M.D.,
of Purfleet, London, in case I may not see him. It may
explain. It is morning, and I write by a fire which all
the night I have kept alive, Madam Mina aiding me. It is
cold, cold. So cold that the grey heavy sky is full of
snow, which when it falls will settle for all winter as the
ground is hardening to receive it. It seems to have affected
Madam Mina. She has been so heavy of head all day that she was
not like herself. She sleeps, and sleeps, and sleeps! She who
EPublisher-Source-Plugin-PerltutsCom
view release on metacpan or search on metacpan
t/TestUA.pm view on Meta::CPAN
my $error = q~HTTP/1.1 500 Internal Server Error
Content-Length: 21
Server: nginx
Date: Mon, 25 Feb 2019 15:04:37 GMT
Content-Type: text/plain
Connection: keep-alive
Internal Server Error
~;
my $epublisher = q~HTTP/1.1 200 OK
Connection: keep-alive
Content-Disposition: attachment; filename=epublisher.pod
Server: nginx
Content-Type: application/octet-stream
Content-Length: 5632
Set-Cookie: plack_session=1551107060.11834%3ABQoDAAAAAQoCZW4AAAAYdHVybmFyb3VuZC5pMThuLmxhbmd1YWdl%3A318133c1d65f272af9e793495f0eebb084ed2d66; path=/; expires=Mon, 25-Feb-2019 15:54:20 GMT
t/TestUA.pm view on Meta::CPAN
1;
__DATA__
HTTP/1.1 200 OK
Connection: keep-alive
Content-Disposition: attachment; filename=pdl.pod
Server: nginx
Content-Type: application/octet-stream
Content-Length: 5632
Set-Cookie: plack_session=1551107060.11834%3ABQoDAAAAAQoCZW4AAAAYdHVybmFyb3VuZC5pMThuLmxhbmd1YWdl%3A318133c1d65f272af9e793495f0eebb084ed2d66; path=/; expires=Mon, 25-Feb-2019 15:54:20 GMT
EV-ClickHouse
view release on metacpan or search on metacpan
eg/keepalive.pl view on Meta::CPAN
#!/usr/bin/env perl
# Keepalive — periodic pings keep idle connections alive
use strict;
use warnings;
use EV;
use EV::ClickHouse;
my $ch;
$ch = EV::ClickHouse->new(
host => $ENV{CLICKHOUSE_HOST} // '127.0.0.1',
port => $ENV{CLICKHOUSE_NATIVE_PORT} // 9000,
protocol => 'native',
keepalive => 30, # ping every 30 seconds when idle
on_connect => sub {
printf "Connected with keepalive=30s: %s\n", $ch->server_info;
# Simulate idle time, then query
my $t; $t = EV::timer(2, 0, sub {
undef $t;
printf "Still connected after 2s idle: %s\n",
EV-Etcd
view release on metacpan or search on metacpan
eg/lease_test.pl view on Meta::CPAN
);
print "=== Lease Test ===\n\n";
my $lease_id;
my $keepalive_count = 0;
# Step 1: Grant a lease with 10 second TTL
print "1. Granting lease with TTL=10s...\n";
$client->lease_grant(10, sub {
my ($resp, $err) = @_;
EV-Glib
view release on metacpan or search on metacpan
That means that glib events will be dispatched with lowest priority, and
that you cannot call any glib main functions (or functions calling it) on
the default mainloop in highest-priority watchers and in lowest-priority
prepare watchers.
=item * EV::Glib watchers will (currently) keep the mainloop alive.
That means that, after loading this module, C<EV::loop> calls will never
return unless you call C<EV::unloop> explicitly. Future versions might fix
this problem so that Glib keeps the EV loop alive only when it has active
events waiting.
=cut
package EV::Glib;
EV-Hiredis
view release on metacpan or search on metacpan
deps/hiredis/CHANGELOG.md view on Meta::CPAN
- Update for MinGW cross compile [@bit0fun](https://github.com/bit0fun) ([\#1127](https://github.com/redis/hiredis/pull/1127))
- fixed CPP build error with adapters/libhv.h [@mtdxc](https://github.com/mtdxc) ([\#1125](https://github.com/redis/hiredis/pull/1125))
- Fix protocol error
[@michael-grunder](https://github.com/michael-grunder),
[@mtuleika-appcast](https://github.com/mtuleika-appcast) ([\#1106](https://github.com/redis/hiredis/pull/1106))
- Use a windows specific keepalive function. [@michael-grunder](https://github.com/michael-grunder) ([\#1104](https://github.com/redis/hiredis/pull/1104))
- Fix CMake config path on Linux. [@xkszltl](https://github.com/xkszltl) ([\#989](https://github.com/redis/hiredis/pull/989))
- Fix potential fault at createDoubleObject [@afcidk](https://github.com/afcidk) ([\#964](https://github.com/redis/hiredis/pull/964))
- Fix some undefined behavior [@jengab](https://github.com/jengab) ([\#1091](https://github.com/redis/hiredis/pull/1091))
- Copy OOM errors to redisAsyncContext when finding subscribe callback [@bjosv](https://github.com/bjosv) ([\#1090](https://github.com/redis/hiredis/pull/1090))
- Maintain backward compatibility with our onConnect callback. [@michael-grunder](https://github.com/michael-grunder) ([\#1087](https://github.com/redis/hiredis/pull/1087))
EV-MariaDB
view release on metacpan or search on metacpan
lib/EV/MariaDB.pm view on Meta::CPAN
=head2 ping
$m->ping(sub { my ($ok, $err) = @_ });
Checks if the connection is alive.
=head2 select_db
$m->select_db($dbname, sub { my ($ok, $err) = @_ });
EV-Memcached
view release on metacpan or search on metacpan
lib/EV/Memcached.pm view on Meta::CPAN
=item priority => $num (-2 to +2)
EV watcher priority.
=item keepalive => $seconds
TCP keepalive interval.
=item username => 'Str'
=item password => 'Str'
lib/EV/Memcached.pm view on Meta::CPAN
=head2 priority([$num])
Get/set EV watcher priority (-2 to +2).
=head2 keepalive([$seconds])
Get/set TCP keepalive.
=head2 skip_pending
Cancel all pending command callbacks with C<(undef, "skipped")>.
EV-Nats
view release on metacpan or search on metacpan
lib/EV/Nats.pm view on Meta::CPAN
=item * Wildcard subjects (C<*> and C<E<gt>>)
=item * Headers support (HPUB/HMSG)
=item * Automatic PING/PONG keep-alive
=item * Automatic reconnection with subscription and queue group restore
=item * Fire-and-forget publish (no callback overhead)
=item * Token, user/pass authentication
=item * TCP keepalive and connect timeout
=item * Write coalescing via ev_prepare (batches writes per event loop iteration)
=item * O(1) subscription lookup via hash table
lib/EV/Nats.pm view on Meta::CPAN
=item priority => $num (-2 to +2)
EV watcher priority.
=item keepalive => $seconds
TCP keepalive interval.
=item path => 'Str'
Unix socket path. Mutually exclusive with C<host>.
lib/EV/Nats.pm view on Meta::CPAN
=head2 priority([$num])
Get/set EV watcher priority.
=head2 keepalive([$seconds])
Get/set TCP keepalive.
=head2 batch($coderef)
Batch multiple publishes into a single write. Suppresses per-publish
write scheduling; all buffered data is flushed after the coderef returns.
EV-Pg
view release on metacpan or search on metacpan
eg/notify.pl view on Meta::CPAN
my $conninfo = shift || $ENV{TEST_PG_CONNINFO} || 'dbname=postgres';
my $pg; $pg = EV::Pg->new(
conninfo => $conninfo,
keep_alive => 1,
on_error => sub { die "connection error: $_[0]\n" },
on_notify => sub {
my ($channel, $payload, $pid) = @_;
print "notification on '$channel': $payload (from pid $pid)\n";
EV::break;
EV-Redis
view release on metacpan or search on metacpan
lib/EV/Redis.pm view on Meta::CPAN
$self->command_timeout($args{command_timeout}) if defined $args{command_timeout};
$self->max_pending($args{max_pending}) if defined $args{max_pending};
$self->waiting_timeout($args{waiting_timeout}) if defined $args{waiting_timeout};
$self->resume_waiting_on_reconnect($args{resume_waiting_on_reconnect}) if defined $args{resume_waiting_on_reconnect};
$self->priority($args{priority}) if defined $args{priority};
$self->keepalive($args{keepalive}) if defined $args{keepalive};
$self->prefer_ipv4($args{prefer_ipv4}) if exists $args{prefer_ipv4};
$self->prefer_ipv6($args{prefer_ipv6}) if exists $args{prefer_ipv6};
$self->source_addr($args{source_addr}) if defined $args{source_addr};
$self->tcp_user_timeout($args{tcp_user_timeout}) if defined $args{tcp_user_timeout};
$self->cloexec($args{cloexec}) if exists $args{cloexec};
lib/EV/Redis.pm view on Meta::CPAN
Priority for the underlying libev IO watchers. Higher priority watchers are
invoked before lower priority ones. Valid range is -2 (lowest) to +2 (highest),
with 0 being the default. See L<EV> documentation for details on priorities.
=item * keepalive => $seconds
Enable TCP keepalive with the specified interval in seconds. When enabled,
the OS will periodically send probes on idle connections to detect dead peers.
0 means disabled (default). Recommended for long-lived connections behind
NAT gateways or firewalls.
=item * prefer_ipv4 => $bool
lib/EV/Redis.pm view on Meta::CPAN
$redis->priority(1); # higher priority
$redis->priority(-1); # lower priority
$redis->priority(99); # clamped to 2
my $prio = $redis->priority; # get current priority
=head2 keepalive($seconds)
Get or set the TCP keepalive interval in seconds. When set, the OS sends
periodic probes on idle connections to detect dead peers. 0 means disabled
(default). When set to a positive value while connected, takes effect
immediately. Setting to 0 while connected records the preference for future
connections but does not disable keepalives on the current socket.
=head2 prefer_ipv4($bool)
Get or set IPv4 preference for DNS resolution. Mutually exclusive with
C<prefer_ipv6> (setting one clears the other). Takes effect on the next
EV-Websockets
view release on metacpan or search on metacpan
Websockets.xs view on Meta::CPAN
} ev_ws_send_t;
/* Context structure - manages lws_context and connections */
struct ev_ws_ctx_s {
unsigned int magic;
int* alive_flag; /* points to caller's stack variable during lws_service */
struct ev_loop* loop;
struct lws_context* lws_ctx;
ev_ws_conn_t* connections;
ev_ws_fd_t** fd_table;
int fd_table_size;
Websockets.xs view on Meta::CPAN
ev_timer_start(ctx->loop, &ctx->timer);
}
static void do_lws_service(ev_ws_ctx_t* ctx) {
if (ctx && ctx->magic == EV_WS_CTX_MAGIC && ctx->lws_ctx) {
int alive = 1;
int* prev_flag = ctx->alive_flag;
ctx->alive_flag = &alive;
lws_service(ctx->lws_ctx, 0);
if (alive) {
ctx->alive_flag = prev_flag;
schedule_timeout(ctx);
}
}
}
Websockets.xs view on Meta::CPAN
if (revents & EV_READ) pollfd.revents |= POLLIN;
if (revents & EV_WRITE) pollfd.revents |= POLLOUT;
if (revents & EV_ERROR) pollfd.revents |= POLLERR | POLLHUP;
{
int alive = 1;
int* prev_flag = ctx->alive_flag;
ctx->alive_flag = &alive;
lws_service_fd(ctx->lws_ctx, &pollfd);
if (alive) {
ctx->alive_flag = prev_flag;
schedule_timeout(ctx);
}
}
}
Websockets.xs view on Meta::CPAN
lws_context_destroy(self->lws_ctx);
self->lws_ctx = NULL;
}
self->loop = NULL;
if (self->alive_flag) *self->alive_flag = 0;
Safefree(self);
}
EV::Websockets::Connection
connect(EV::Websockets::Context self, ...);
Websockets.xs view on Meta::CPAN
RETVAL->max_message_size = max_message_size;
RETVAL->loop = self->loop;
/* Hold a reference to the underlying glob/IO to prevent Perl
* from closing the fd while lws owns it. For blessed glob refs
* (IO::Socket etc.) we ref the glob itself so framework DESTROY
* methods see it as still alive. */
RETVAL->adopted_fh = SvROK(fh_sv) ? newRV_inc(SvRV(fh_sv))
: SvREFCNT_inc(fh_sv);
link_conn(self, RETVAL);
Websockets.xs view on Meta::CPAN
/* Kick lws to process readbuf data (needed for lws 4.5+).
* Guard with extra ref: lws_service may synchronously fire
* error/destroy callbacks that would free RETVAL. */
{
int rejected, alive = 1;
int* prev_flag = self->alive_flag;
conn_ref(RETVAL);
self->alive_flag = &alive;
lws_service(self->lws_ctx, 0);
if (alive) {
self->alive_flag = prev_flag;
schedule_timeout(self);
}
rejected = (RETVAL->wsi == NULL);
conn_unref(RETVAL);
if (rejected)
EV
view release on metacpan or search on metacpan
=item $active = $loop->run ([$flags])
Begin checking for events and calling callbacks. It returns when a
callback calls EV::break or the flags are nonzero (in which case the
return value is true) or when there are no active watchers which reference
the loop (keepalive is true), in which case the return value will be
false. The return value can generally be interpreted as "if true, there is
more work left to do".
The $flags argument can be one of the following:
If the watcher is pending, this function clears its pending status and
returns its C<$revents> bitset (as if its callback was invoked). If the
watcher isn't pending it does nothing and returns C<0>.
=item $previous_state = $w->keepalive ($bool)
Normally, C<EV::run> will return when there are no active watchers
(which is a "deadlock" because no progress can be made anymore). This is
convenient because it allows you to start your watchers (and your jobs),
call C<EV::run> once and when it returns you know that all your jobs are
as a long-living watcher (for example a DNS client module written by
somebody else even). Then you might want any outstanding requests to be
handled, but you would not want to keep C<EV::run> from returning just
because you happen to have this long-running UDP port watcher.
In this case you can clear the keepalive status, which means that even
though your watcher is active, it won't keep C<EV::run> from returning.
The initial value for keepalive is true (enabled), and you can change it
any time.
Example: Register an I/O watcher for some UDP socket but do not keep the
event loop from running just because of that watcher.
my $udp_socket = ...
my $udp_watcher = EV::io $udp_socket, EV::READ, sub { ... };
$udp_watcher->keepalive (0);
=item $loop = $w->loop
Return the loop that this watcher is attached to.
=item $w = $loop->io ($fileno_or_fh, $eventmask, $callback)
=item $w = $loop->io_ns ($fileno_or_fh, $eventmask, $callback)
As long as the returned watcher object is alive, call the C<$callback>
when at least one of events specified in C<$eventmask> occurs.
The $eventmask can be one or more of these constants ORed together:
EV::READ wait until read() wouldn't block anymore
EWS-Calendar-Viewer
view release on metacpan or search on metacpan
bin/ews_calendar_viewer_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
Elastic-Model
view release on metacpan or search on metacpan
lib/Elastic/Model/Scope.pm view on Meta::CPAN
=encoding UTF-8
=head1 NAME
Elastic::Model::Scope - Keeps objects alive and connected
=head1 VERSION
version 0.52
lib/Elastic/Model/Scope.pm view on Meta::CPAN
=over
=item *
Keep weak-ref L<Elastic::Doc> attributes alive
=item *
Reuse L<Elastic::Doc> objects as singletons.
lib/Elastic/Model/Scope.pm view on Meta::CPAN
# John
print refaddr($one) == refaddr($three) ? 'TRUE' : 'FALSE';
# TRUE
Object C<$two> still exists, and is still kept alive, but will no longer be
returned from C<$scope_2>.
print $two->name;
# Clint
lib/Elastic/Model/Scope.pm view on Meta::CPAN
=cut
__END__
# ABSTRACT: Keeps objects alive and connected
Elive
view release on metacpan or search on metacpan
lib/Elive/Entity/ServerDetails.pm view on Meta::CPAN
has 'serverDetailsId' => (is => 'rw', isa => 'Str', required => 1);
__PACKAGE__->primary_key('serverDetailsId');
has 'address' => (is => 'rw', isa => 'Str');
has 'alive' => (is => 'rw', isa => 'Bool');
has 'codebase' => (is => 'rw', isa => 'Str');
has 'elsRecordingsFolder' => (is => 'rw', isa => 'Str');
has 'elmRecordingsFolder' => (is => 'rw', isa => 'Str');
has 'encoding' => (is => 'rw', isa => 'Str');
has 'maxSeats' => (is => 'rw', isa => 'Int');
Email-Find
view release on metacpan or search on metacpan
lib/Email/Find.pm view on Meta::CPAN
print "Found ".$email->format."\n";
return $orig_email;
});
$finder->find(\$text);
# For each email found, ping its host to see if its alive.
require Net::Ping;
$ping = Net::Ping->new;
my %Pinged = ();
my $finder = Email::Find->new(sub {
my($email, $orig_email) = @_;
Email-Folder-Exchange
view release on metacpan or search on metacpan
lib/Email/Folder/Exchange/EWS.pm view on Meta::CPAN
}
# build soap accessor
my $soap = SOAP::Lite->proxy(
$uri->as_string,
keep_alive => 1,
credentials => [
$uri->host . ':' . ( $uri->scheme eq 'https' ? '443' : '80' ),
# $uri->host,
'',
$username,
Email-IsFree
view release on metacpan or search on metacpan
alexanderthegreat.co.uk
algeria.com
algeriamail.com
alhajj.com
alicemunro.com
aliveandkicking.co.uk
allegation.co.uk
allegedly.co.uk
allergic.co.uk
allergist.com
allmail.net
starwars.mailbr.com.br
starwarsmail.net
statement.co.uk
stateofplay.co.uk
staycool.co.uk
stayinalive.co.uk
stayingin.co.uk
stayintouch.co.uk
stbrendan.com
stbrigid.com
stcolumba.com
Email-SendGrid-V3
view release on metacpan or search on metacpan
lib/Email/SendGrid/V3.pm view on Meta::CPAN
my $api_key = $args{api_key} || $self->{api_key} or croak "API key is required to send";
my $endpoint = $args{endpoint} || $self->{endpoint} || DEFAULT_ENDPOINT;
my $payload = $self->_payload;
my $http = HTTP::Tiny->new(
keep_alive => 0,
default_headers => {
'Content-Type' => 'application/json',
'Authorization' => "Bearer $api_key",
},
);
EntityModel-Web
view release on metacpan or search on metacpan
t/request.t view on Meta::CPAN
method => 'get',
version => '1.1',
uri => URI->new('http://something.com/page.html?thing=1'),
header => [
{ name => 'User-Agent', value => 'EntityModel/0.1' },
{ name => 'Keepalive', value => '150' },
]
]);
is($req->method, 'get', 'method is correct');
is($req->path, '/page.html', 'path is correct');
is($req->version, 1.1, 'version is correct');
is($req->hostname, 'something.com', 'host is correct');
is($req->uri->as_string, 'http://something.com/page.html?thing=1', 'URI is correct');
is($req->header_by_name->get('User-Agent')->value, 'EntityModel/0.1', 'UserAgent is correct');
is($req->header_by_name->get('Keepalive')->value, '150', 'Keepalive is correct');
EntityModel
view release on metacpan or search on metacpan
t/transaction.t view on Meta::CPAN
my $weak_tran;
my $tran = as_transaction {
Scalar::Util::weaken($weak_tran = shift);
};
is_oneref($tran, 'have single ref for transaction');
ok($weak_tran, 'weak transaction still alive');
ok($weak_tran, 'weak transaction still alive');
$weak_tran->();
is_oneref($tran, 'still single ref for transaction');
$tran->commit;
is_oneref($tran, 'still single ref for transaction');
undef $tran;
t/transaction.t view on Meta::CPAN
Scalar::Util::weaken($weak_tran = shift);
} success => sub { is_refcount($_[0], 3, 'refcount correct in success callback') }
, failure => sub { fail("why the failure?") }
, goodbye => sub { is_refcount($_[0], 3, 'refcount correct in goodbye callback') };
is_oneref($tran, 'have single ref for transaction');
ok($weak_tran, 'weak transaction still alive');
ok($weak_tran->(), 'can apply transaction');
ok($weak_tran, 'weak transaction still alive');
is_oneref($tran, 'still single ref for transaction');
ok($tran->commit, 'can commit');
is_oneref($tran, 'still single ref for transaction');
}
{
t/transaction.t view on Meta::CPAN
die;
} success => sub { fail("should not succeed?") },
, failure => sub { is_refcount($_[0], 3, 'refcount correct in failure callback') }
, goodbye => sub { is_refcount($_[0], 3, 'refcount correct in goodbye callback') };
is_oneref($tran, 'have single ref for transaction');
ok($weak_tran, 'weak transaction still alive');
ok($weak_tran->(), 'can apply transaction');
ok($weak_tran, 'weak transaction still alive');
is_oneref($tran, 'still single ref for transaction');
ok($tran->commit, 'can commit');
is_oneref($tran, 'still single ref for transaction');
}
done_testing;
( run in 1.376 second using v1.01-cache-2.11-cpan-39bf76dae61 )