view release on metacpan or  search on metacpan

examples/port-probe-multi.pl  view on Meta::CPAN

	} $timeout;
};
die $@ if $@ and $@ !~ /^Timeout/;

my @offline = sort keys %{ AE::AdHoc->goals };
my (@alive, @reject);

my $results = AE::AdHoc->results;
foreach (keys %$results) {
	# tcp_connect will not feed any args if connect failed
	ref $results->{$_}->[0]
		? push @alive, $_
		: push @reject, $_;
};

print "Connected: @alive\n" if @alive;
print "Rejected: @reject\n" if @reject;
print "Timed out: @offline\n" if @offline;
# /Real work

sub usage {

 view release on metacpan or  search on metacpan

t/02_network_basic.t  view on Meta::CPAN

$network=new AI::ANN ('inputs'=>1, 'data'=>[{ iamanoutput => 1, inputs => {0 => 1}, neurons => {}}], 'maxvalue' => 10);

ok(defined $network, "new() works");
ok($network->isa("AI::ANN"), "Right class");

ok($out=$network->execute([1]), "executed and still alive");

is($#{$out}, 0, "execute() output for a single neuron is the right length");
is($out->[0], 1, "execute() output for a single neuron has the correct value");

($inputs, $neurons, $outputs) = $network->get_state();

t/02_network_basic.t  view on Meta::CPAN

                       { iamanoutput => 1, inputs => {}, neurons => {0 => 2}}], 'maxvalue' => 10);

ok(defined $network, "new() works");
ok($network->isa("AI::ANN"), "Right class");

ok($out=$network->execute([1]), "executed and still alive");

is($#{$out}, 0, "execute() output for two neurons is the right length");
is($out->[0], 4, "execute() output for two neurons has the correct value");

($inputs, $neurons, $outputs) = $network->get_state();

 view release on metacpan or  search on metacpan

lib/AI/Evolve/Befunge/Migrator.pm  view on Meta::CPAN

=head1 SYNOPSIS

    my $migrator = AI::Evolve::Befunge::Migrator->new(Local => $socket);
    $migrator->spin() while $migrator->alive();


=head1 DESCRIPTION

Maintains a connection to the migration server, migrationd.  This

lib/AI/Evolve/Befunge/Migrator.pm  view on Meta::CPAN

        next if $fd == STDERR->fileno();
        POSIX::close($fd);
    }
    $sock2->blocking(0);
    my $migrator = AI::Evolve::Befunge::Migrator->new(Local  => $sock2);
    $migrator->spin() while $migrator->alive();
    exit(0);
}


=head1 METHODS

lib/AI/Evolve/Befunge/Migrator.pm  view on Meta::CPAN

        }
    }
}


=head2 alive

    exit unless $migrator->alive();

Returns true while migrator still wants to live.
=cut

sub alive {
    my $self = shift;
    return !$$self{dead};
}

=head2 try_connect

 view release on metacpan or  search on metacpan

lib/AI/Ollama/Client/Impl.pm  view on Meta::CPAN

Enable JSON mode by setting the format parameter to json. This will structure the response as valid JSON.

Note: it's important to instruct the model to use JSON in the prompt. Otherwise, the model may generate large amounts whitespace.

=item C<< keep_alive >>

How long (in minutes) to keep the model loaded in memory.

=over

lib/AI/Ollama/Client/Impl.pm  view on Meta::CPAN

=item C<< images >>

(optional) a list of Base64-encoded images to include in the message (for multimodal models such as llava)

=item C<< keep_alive >>

How long (in minutes) to keep the model loaded in memory.

=over

 view release on metacpan or  search on metacpan

data/sleepy.pro  view on Meta::CPAN

% http://www.csc.vill.edu/~dmatusze/resources/prolog/sleepy.html
/* In standard Prolog, all predicates are "dynamic": they
   can be changed during execution. SWI-Prolog requires such
   predicates to be specially marked. */

% :- dynamic at/2, i_am_at/1, i_am_holding/1, alive/1,
%           lit/1, visible_object/1.

/* This routine is purely for debugging purposes. */

%dump :- listing(at), listing(i_am_at), listing(i_am_holding),
%        listing(alive), listing(lit), listing(visible_object).

/* This defines my current location. */

i_am_at(bedroom).

data/sleepy.pro  view on Meta::CPAN

at('light switch', bedroom).


/* These facts specify some game-specific information. */

alive(fly).

lit(bedroom).
lit(den).

visible_object('light switch').

data/sleepy.pro  view on Meta::CPAN

    or(i_am_holding(flyswatter), at(flyswatter, bed)),
    print('What? Sleep with a dirty old flyswatter?'), nl,
    !, fail.

sleep :-
    alive(fly),
    print('As soon as you start to doze off, a fly lands'), nl,
    print('on your face and wakes you up again.'), nl,
    make_visible(fly),
    make_visible(flyswatter),
    !, fail.

data/sleepy.pro  view on Meta::CPAN

    not(i_am_holding(flyswatter)),
    print('You are not holding the flyswatter.'), nl,
    !, fail.

swat :-
    not(alive(fly)),
    print('He is dead, Jim.'), nl.

swat :-
    i_am_at(Place),
    not(at(fly, Place)),
    print('You swish the flyswatter through the air.'), nl.

    /* Have flyswatter, room is lit, fly is here and alive. */

swat :-
    buzz_off,
    print('The fly escapes into the other room.'), nl.

swat :-
    print('Success! You killed that pesky fly!'), nl,
    retract(alive(fly)).

swat :- /* For debugging... */
    print('You must have forgotten a case!', nl).

make_visible(X) :-

 view release on metacpan or  search on metacpan

lib/AI/TensorFlow/Libtensorflow/Manual/CAPI.pod  view on Meta::CPAN

  Return a new execution session with the associated graph, or NULL on
  error. Does not take ownership of any input parameters.
  
  *`graph` must be a valid graph (not deleted or nullptr). `graph` will be
  kept alive for the lifetime of the returned TF_Session. New nodes can still
  be added to `graph` after this call.

=back

  /* From <tensorflow/c/c_api.h> */

lib/AI/TensorFlow/Libtensorflow/Manual/CAPI.pod  view on Meta::CPAN

=back

  /* From <tensorflow/c/eager/c_api.h> */
  TF_CAPI_EXPORT extern void TFE_ContextSetServerDef(TFE_Context* ctx,
                                                     int keep_alive_secs,
                                                     const void* proto,
                                                     size_t proto_len,
                                                     TF_Status* status);

=head2 TFE_NewTensorHandle

lib/AI/TensorFlow/Libtensorflow/Manual/CAPI.pod  view on Meta::CPAN

=back

  /* From <tensorflow/c/eager/c_api_experimental.h> */
  TF_CAPI_EXPORT extern void TFE_ContextUpdateServerDef(TFE_Context* ctx,
                                                        int keep_alive_secs,
                                                        const void* proto,
                                                        size_t proto_len,
                                                        TF_Status* status);

=head2 TFE_ContextCheckAlive

=over 2

  Checks whether a remote worker is alive or not. This will return true even if
  the context doesn't exist on the remote worker.

=back

  /* From <tensorflow/c/eager/c_api_experimental.h> */

lib/AI/TensorFlow/Libtensorflow/Manual/CAPI.pod  view on Meta::CPAN

=head2 TFE_OpGetAttrs

=over 2

  Fetch a reference to `op`'s attributes. The returned reference is only valid
  while `op` is alive.

=back

  /* From <tensorflow/c/eager/c_api_experimental.h> */
  TF_CAPI_EXPORT extern const TFE_OpAttrs* TFE_OpGetAttrs(const TFE_Op* op);

 view release on metacpan or  search on metacpan

TOC.pm  view on Meta::CPAN

  #$self->{sflap}->register_callback($AOL::SFLAP::SFLAP_SIGNON,    \&sflap_signon, $password, "english", "TIK:\$Revision: 1.148 \$", $self);
  #$self->{sflap}->register_callback($AOL::SFLAP::SFLAP_DATA,      \&sflap_data, $self);
  #$self->{sflap}->register_callback($AOL::SFLAP::SFLAP_ERROR,     \&sflap_error, $self);
  #$self->{sflap}->register_callback($AOL::SFLAP::SFLAP_SIGNOFF,   \&sflap_signoff, $self);
  #$self->{sflap}->register_callback($AOL::SFLAP::SFLAP_KEEPALIVE, \&sflap_keepalive, $self);
  #
  #$self->register_callback("SIGN_ON", \&check_version);
  #$self->register_callback("CHAT_JOIN", \&_chat_join);

  return $self;

TOC.pm  view on Meta::CPAN

  $self->{sflap}->register_callback($AOL::SFLAP::SFLAP_SIGNON,    \&sflap_signon, $self->{password}, "english", "TIK:\$Revision: 1.148 \$", $self);
  $self->{sflap}->register_callback($AOL::SFLAP::SFLAP_DATA,      \&sflap_data, $self);
  $self->{sflap}->register_callback($AOL::SFLAP::SFLAP_ERROR,     \&sflap_error, $self);
  $self->{sflap}->register_callback($AOL::SFLAP::SFLAP_SIGNOFF,   \&sflap_signoff, $self);
  $self->{sflap}->register_callback($AOL::SFLAP::SFLAP_KEEPALIVE, \&sflap_keepalive, $self);
  
  $self->register_callback("SIGN_ON", \&check_version);
  $self->register_callback("CHAT_JOIN", \&_chat_join);

  $self->{sflap}->connect();

 view release on metacpan or  search on metacpan

lib/API/Basecamp.pm  view on Meta::CPAN

    $basecamp->timeout;
    $basecamp->timeout(5);

The timeout attribute determines how long an HTTP connection should be kept
alive. This attribute defaults to 10.

=head2 url

    $basecamp->url;
    $basecamp->url(Mojo::URL->new('https://basecamp.com'));

 view release on metacpan or  search on metacpan

lib/API/Eulerian/EDW/Request.pm  view on Meta::CPAN

  # Create HTTP Request
  $request = HTTP::Request->new( $method, $url, $headers, $what );

  # Create End Point used to communicate with remote server
  $endpoint = LWP::UserAgent->new(
    keep_alive => 0,
    cookie_jar => {},
    ssl_opts   => {
      SSL_verifycn_publicsuffix => '',
      SSL_verify_mode           => IO::Socket::SSL::SSL_VERIFY_NONE,
      verify_hostname           => 0,

 view release on metacpan or  search on metacpan

lib/API/Facebook.pm  view on Meta::CPAN

    $facebook->timeout;
    $facebook->timeout(5);

The timeout attribute determines how long an HTTP connection should be kept
alive. This attribute defaults to 10.

=head2 url

    $facebook->url;
    $facebook->url(Mojo::URL->new('https://graph.facebook.com'));

 view release on metacpan or  search on metacpan

lib/API/Github.pm  view on Meta::CPAN

    $github->timeout;
    $github->timeout(5);

The timeout attribute determines how long an HTTP connection should be kept
alive. This attribute defaults to 10.

=head2 url

    $github->url;
    $github->url(Mojo::URL->new('https://api.github.com'));

 view release on metacpan or  search on metacpan

lib/API/Name.pm  view on Meta::CPAN

    $name->timeout;
    $name->timeout(5);

The timeout attribute determines how long an HTTP connection should be kept
alive. This attribute defaults to 10.

=head2 url

    $name->url;
    $name->url(Mojo::URL->new('https://www.name.com'));

 view release on metacpan or  search on metacpan

lib/API/Octopart.pm  view on Meta::CPAN

		}
	}

	if (!$content)
	{
		my $ua = LWP::UserAgent->new( agent => 'mdf-perl/1.0', keep_alive => 3);

		$self->{api_queries} //= 0;

		if ($self->{query_limit} && $self->{api_queries} >= $self->{query_limit})
		{

 view release on metacpan or  search on metacpan

lib/API/Stripe.pm  view on Meta::CPAN

    $stripe->timeout;
    $stripe->timeout(5);

The timeout attribute determines how long an HTTP connection should be kept
alive. This attribute defaults to 10.

=head2 url

    $stripe->url;
    $stripe->url(Mojo::URL->new('https://api.stripe.com'));

 view release on metacpan or  search on metacpan

lib/API/Trello.pm  view on Meta::CPAN

    $trello->timeout;
    $trello->timeout(5);

The timeout attribute determines how long an HTTP connection should be kept
alive. This attribute defaults to 10.

=head2 url

    $trello->url;
    $trello->url(Mojo::URL->new('https://api.trello.com'));

 view release on metacpan or  search on metacpan

lib/API/Twitter.pm  view on Meta::CPAN

    $twitter->timeout;
    $twitter->timeout(5);

The timeout attribute determines how long an HTTP connection should be kept
alive. This attribute defaults to 10.

=head2 url

    $twitter->url;
    $twitter->url(Mojo::URL->new('https://api.twitter.com'));

 view release on metacpan or  search on metacpan

lib/API/Wunderlist.pm  view on Meta::CPAN

    $wunderlist->timeout;
    $wunderlist->timeout(5);

The timeout attribute determines how long an HTTP connection should be kept
alive. This attribute defaults to 10.

=head2 url

    $wunderlist->url;
    $wunderlist->url(Mojo::URL->new('https://a.wunderlist.com'));

 view release on metacpan or  search on metacpan

lib/ASNMTAP/Asnmtap/Plugins/WebTransact.pm  view on Meta::CPAN

  if ( $self->{newAgent} or ! defined $ua ) {
    $self->{newAgent} = 0;
    LWP::Debug::level('+') if ( $debug );

    if ( $parms{keepAlive} ) {
      $ua = LWP::UserAgent->new ( keep_alive => 1 );
    } else {
      $ua = LWP::UserAgent->new ( keep_alive => 0 );
    }

    $self->{ua} = $ua;
    $ua->agent ( ${$self->{asnmtapInherited}}->browseragent () );
    $ua->timeout ( ${$self->{asnmtapInherited}}->timeout () );

 view release on metacpan or  search on metacpan

lib/AWS/CLIWrapper.pm  view on Meta::CPAN

sub marketplace_catalog { shift->_execute('marketplace-catalog', @_) }
sub marketplace_entitlement { shift->_execute('marketplace-entitlement', @_) }
sub marketplacecommerceanalytics { shift->_execute('marketplacecommerceanalytics', @_) }
sub mediaconnect       { shift->_execute('mediaconnect', @_) }
sub mediaconvert       { shift->_execute('mediaconvert', @_) }
sub medialive          { shift->_execute('medialive', @_) }
sub mediapackage       { shift->_execute('mediapackage', @_) }
sub mediapackage_vod   { shift->_execute('mediapackage-vod', @_) }
sub mediapackagev2     { shift->_execute('mediapackagev2', @_) }
sub mediastore         { shift->_execute('mediastore', @_) }
sub mediastore_data    { shift->_execute('mediastore-data', @_) }

lib/AWS/CLIWrapper.pm  view on Meta::CPAN

=item B<mediaconnect>($operation:Str, $param:HashRef, %opt:Hash)

=item B<mediaconvert>($operation:Str, $param:HashRef, %opt:Hash)

=item B<medialive>($operation:Str, $param:HashRef, %opt:Hash)

=item B<mediapackage>($operation:Str, $param:HashRef, %opt:Hash)

=item B<mediapackage_vod>($operation:Str, $param:HashRef, %opt:Hash)

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - bump Paws 0.43

0.0.25 2021-03-02T05:32:05Z
    - new region Asia Pacific (Osaka) ap-northeast-3 is available
    - custom registry name https://gallery.ecr.aws/shogo82148/p5-aws-lambda is now available
      - old one https://gallery.ecr.aws/w2s0h5h2/p5-aws-lambda is still alive

0.0.24 2021-01-25T10:18:13Z
    - perl 5.32.1 is released

0.0.23 2021-01-02T02:20:42Z

 view release on metacpan or  search on metacpan

lib/AXL/Client/Simple/Role/SOAP.pm  view on Meta::CPAN

sub _build_transporter {
    my $self = shift;
    return XML::Compile::Transport::SOAPHTTP->new(
        address => (sprintf 'https://%s:%s@%s:8443/axl/',
            $self->username, $self->password, $self->server),
        keep_alive => 0,
    );
}

has wsdl => (
    is => 'ro',

 view release on metacpan or  search on metacpan

fortune/jackbauer  view on Meta::CPAN

%
Jack Bauer's cell phone would work even if he was a mile underground beneath the desert in the middle of nowhere... because it knows what's good for it.
%
Jack Bauer's first words were, "You've read my file and you know what I’m capable of!", while holding a rattle to his mothers eye. She wouldn't tell him where cookies were.
%
The only reason the Chinese kept Jack alive is so that he could bring down the population.
%
If Jack Bauer told me "I won't let anything happen to you" and then said jump of this bridge, I would do so with no fear in my mind.
%
When Jack Bauer went to Bayside High School, he created a band called "Jack Attack".  Screech wasn't let into the band.
%

fortune/jackbauer  view on Meta::CPAN

%
Jack Bauer plays golf without golf clubs. He stands over the ball, stares at it, and scares it into the hole.
%
Jack Bauer doesn't need an iPod. His ears play the song he wants to hear.
%
For his 40th birthday, Jack Bauer wished that Nina Myers was alive.  So he could kill her again.
%
When Jack Bauer sneezes, God blesses him.
%
Jack Bauer was the only one to redeem his frequent flyer miles from David Spade.
%

fortune/jackbauer  view on Meta::CPAN

%
Jack Bauer doesn't watch TV.  TVs watch Jack Bauer.
%
Jackie Chan learnt everything from Jack Bauer. Bruce Lee didn't : He died
%
Jack Bauer doesn't need to give anyone presents, the fact that they're alive is gift enough.
%
Jack Bauer never participated in high school sports. He doesn’t like any game that’s not to the death. 
%
There's a bullet out there with Jack Bauer's name on it. Actually, there are millions of them: He has his own signature line.
%

fortune/jackbauer  view on Meta::CPAN

%
To prove a point, Jack Bauer lit Schindler’s actual list on fire.
%
70% of the Earth is covered by land.  The other 30% is covered by Jack Bauer.
%
If you have the ability to read, thank a teacher. If you have thefreedom to read, thank the veterans of WW2. If you're alive to read, thank Jack Bauer.
%
Jack Bauer could hijack a plane with a rubber ducky.
%
It took Jack Bauer two minutes to beat a confession out of OJ.
%

fortune/jackbauer  view on Meta::CPAN

%
James Bond has a license to kill. Jack Bauer don't need any licenses.
%
If Jack Bauer were to be elected President of the United States, Iraq would be a democratic nation.
%
If Jack Bauer had broken into Watergate, Nixon wouldn't have resigned.  As a fringe benefit, there would be no Democrats older than 50 alive today.
%
Jack Bauer sleeps with a pillow under his gun.
%
Jack Bauer won the US Fencing Championship using a sewing needle.
%

fortune/jackbauer  view on Meta::CPAN

%
As a child, Jack Bauer taught his dog to play dead...once.
%
Jack Bauer was supposed to be in Street Fighter 2, but was later removed by beta testers because every button resulted in  the same move, shooting the opponent. When asked about the glitch, Bauer replied, "that's no glitch."
%
Statistically, the most dangerous occupations in America are:  Logger, fisherman, pilot, and knowing Jack Bauer is alive.
%
When Jack Bauer says, "I think he broke a couple of ribs," it roughly translates to, "Hmmm, that kind of stung."
%
Jack Bauer is so well endowed that if he were on Prison Break, the blueprints would all be tattooed around his penis.
%

fortune/jackbauer  view on Meta::CPAN

%
The sound of Jack's voice can triple your testicle size.  Just ask Petty Officer Rooney.
%
Jack Bauer can get 24 in Blackjack and still win. Jack doesn't bust until he feels like it.
%
Noah only lived to be 900 years old because Jack Bauer was not alive to kill him for withholding information that could have saved millions of lives.
%
Jack Bauer can come up with a word that rhymes with "purpose".
%
Jack Bauer doesn't sleep. He absorbs the sleep every person he killed had before he killed them.
%

fortune/jackbauer  view on Meta::CPAN

%
Don’t tell Bill Paxton, but Jack Bauer actually has the Heart of the Ocean.
%
If Jack Bauer says he would tell you but he'd have to kill you, he'll probably kill you anyway.
%
Jack Bauer is dead on the inside, so that you can be alive on the outside.
%
If Jack Bauer says: "I need a hack saw..."  get him a hack saw.  And while you are at it, get him some sort of bag to put whatever appendage Jack's about to cut into... He'll like your initiative... and someday, that may save your life.
%
The U.S. government fruitlessly searching for Osama Bin Laden for five years: $6 billion.

fortune/jackbauer  view on Meta::CPAN

%
Jeff Gordon drives Car 24 in Nascar races because he hopes at least a few drivers think it's being driven by Jack Bauer and will drop out of the races.
%
Jack Bauer beat Mike Tyson's Punchout on his first try (even Super Macho Man).
%
Scariest Halloween costume in the Middle East? Well they probably don't even celebrate Halloween. It's scary enough being a terrorist and knowing Jack Bauer is still alive.
%
Jack Bauer killed the first six 00 agents.
%
Meatloaf once sang, "I would anything for love, but I won't do that." Jack Bauer did "that." Twice.
%

fortune/jackbauer  view on Meta::CPAN

%
The only time we'd ever have to fear the French Army is if Jack Bauer became a French Citizen.
%
Jack Bauer knows "How to Lose a Guy in Ten Days". He kills them.
%
Audrey had a visible reaction when she learned that Jack was still alive: Orgasm. Multiple.
%
Jack Bauer can win the world series of poker without being dealt a hand.
%
Jack Bauer once shot a Terrorist plane down with his finger, by yelling, "Bang!" 
%

fortune/jackbauer  view on Meta::CPAN

%
Only Jack Bauer can singlehandedly start World War III between the Russians, Chinese and United States... over Audrey Raines.
%
Jack Bauer was able to eliminate Bird Flu playing Duck Hunt.
%
When asked what he most enjoys about his work, Jack Bauer responded, "There's nothing like stabbing a terrorist in the chest and watching him writhe around in pain, looking into his eyes knowing that my face is the last thing he'll ever see alive. I ...
%
Jack Bauer's copy-editing style involves cutting the hands off of those who make spelling and grammatical errors with an ax.  
%
Before accepting a job at CTU remember that Jack Bauer has:

fortune/jackbauer  view on Meta::CPAN

%
When Jack Bauer was little, he used to tie his brother up to a chair, put a bag on his head, and ask him, "How many cookies did you steal from MY cookie jar!?"
%
Jack Bauer's vanity plate reads: IKIL4CTU.
%
Osama bin Laden's recent proposal for truce is a direct result of him finding out that Jack Bauer is, in fact, still alive.
%
Jack Bauer tortures foreigners into speaking in english.
%
Jack Bauer doesn't need a receipt to return something to a store, just a gun.
%

fortune/jackbauer  view on Meta::CPAN

%
Any man can piss on the floor. Jack Bauer shits on the ceiling.
%
If Jack's starring at someone and his eye twitches, assume that person has less than 15 minutes to live.
%
If the government made public the fact that Jack Bauer is still alive, China would no longer be the world's most populous country.
%
The Angel of Death has Jack Bauer on speed dial.
%
Superman wears Jack Bauer pajamas.
%

 view release on metacpan or  search on metacpan

devdata/https_mojolicious.io_blog_2017_12_24_day-24-release-and-wrap-up  view on Meta::CPAN

              </section>
              <section id="section-2">
                  <h3>The Double-Edged Sword</h3>

<p>The internet has made so many amazing things possible.
Old friendships are kept alive.
Personal photographs can be stored forever and shared with friends.
Rare items can be discussed, found, and purchased.
News can spread as fast as fingers can type them.</p>

<p>But for all this ease and convenience there is a price.

 view release on metacpan or  search on metacpan

lib/Acme/ConspiracyTheory/Random.pm  view on Meta::CPAN

		);
	}

	if ( my $ft = $redstring->{future_time} ) {
		push @x, (
			"some of the few people still alive $ft time-travelled back to tell us",
			"the people still alive $ft sent us hidden messages in ${ \ fiction() }",
			"it will all become clear $ft",
		);
	}

	if ( my $d = $redstring->{disease} ) {

lib/Acme/ConspiracyTheory/Random.pm  view on Meta::CPAN

			"THEY ($group) are using $mc";
		},
		sub {
			my $victim = victim( $redstring );
			my $place  = bad_place( $redstring );
			"$victim is alive and kept at $place";
		},
		sub {
			my $artifact = artifact( $redstring );
			my $p = random_place( $redstring );
			"$artifact is in $p";

 view release on metacpan or  search on metacpan

lib/Acme/DependOnEverything.pm  view on Meta::CPAN

use POE::Component::Client::Halo;
use POE::Component::Client::HTTP;
use POE::Component::Client::HTTPDeferred::targ;
use POE::Component::Client::Icecast;
use POE::Component::Client::Ident;
use POE::Component::Client::Keepalive;
use POE::Component::Client::LDAP;
use POE::Component::Client::Lingr;
use POE::Component::Client::MogileFS;
use POE::Component::Client::MPD;
use POE::Component::Client::MSN;

 view release on metacpan or  search on metacpan

lib/Acme/Ghost.pm  view on Meta::CPAN

        say "Running $runned";
    } else {
        say "Not running";
    }

This method checks the status of running daemon and returns its PID (alive).
The method returns 0 if it is not running (dead).

=head2 stop

    if (my $runned = $g->stop) {

 view release on metacpan or  search on metacpan

t/01-test.t  view on Meta::CPAN

(my $dead = Test::MockObject->new)->mock('get', sub { return  {
	'reason' => 'Not Found',
	 'headers' => {
					 'vary' => 'Accept-Encoding',
					 'server' => 'nginx/1.10.0 (Ubuntu)',
					 'connection' => 'keep-alive',
					 'date' => 'Mon, 13 Mar 2017 15:49:56 GMT',
					 'content-length' => '178',
					 'content-type' => 'text/html'
			   },
	'protocol' => 'HTTP/1.1',

 view release on metacpan or  search on metacpan

t/wild.txt  view on Meta::CPAN

night in advance. No matter how breathless the air when he dug his
nest by tree or bank, the wind that later blew inevitably found him to
leeward, sheltered and snug.

And not only did he learn by experience, but instincts long dead became
alive again. The domesticated generations fell from him. In vague ways
he remembered back to the youth of the breed, to the time the wild dogs
ranged in packs through the primeval forest and killed their meat as
they ran it down. It was no task for him to learn to fight with cut
and slash and the quick wolf snap. In this manner had fought forgotten
ancestors. They quickened the old life within him, and the old tricks

t/wild.txt  view on Meta::CPAN

which projected their struggle for supremacy far into the future, past
many a weary mile of trail and toil.

An oath from Perrault, the resounding impact of a club upon a bony
frame, and a shrill yelp of pain, heralded the breaking forth of
pandemonium. The camp was suddenly discovered to be alive with skulking
furry forms,--starving huskies, four or five score of them, who had
scented the camp from some Indian village. They had crept in while Buck
and Spitz were fighting, and when the two men sprang among them with
stout clubs they showed their teeth and fought back. They were crazed
by the smell of the food. Perrault found one with head buried in the

t/wild.txt  view on Meta::CPAN

meat, to kill with his own teeth and wash his muzzle to the eyes in warm
blood.

There is an ecstasy that marks the summit of life, and beyond which life
cannot rise. And such is the paradox of living, this ecstasy comes when
one is most alive, and it comes as a complete forgetfulness that one is
alive. This ecstasy, this forgetfulness of living, comes to the artist,
caught up and out of himself in a sheet of flame; it comes to the
soldier, war-mad on a stricken field and refusing quarter; and it came
to Buck, leading the pack, sounding the old wolf-cry, straining after
the food that was alive and that fled swiftly before him through the
moonlight. He was sounding the deeps of his nature, and of the parts of
his nature that were deeper than he, going back into the womb of Time.
He was mastered by the sheer surging of life, the tidal wave of being,
the perfect joy of each separate muscle, joint, and sinew in that it was
everything that was not death, that it was aglow and rampant, expressing

t/wild.txt  view on Meta::CPAN

would like to eat. He was not homesick. The Sunland was very dim and
distant, and such memories had no power over him. Far more potent were
the memories of his heredity that gave things he had never seen before
a seeming familiarity; the instincts (which were but the memories of
his ancestors become habits) which had lapsed in later days, and still
later, in him, quickened and become alive again.

Sometimes as he crouched there, blinking dreamily at the flames, it
seemed that the flames were of another fire, and that as he crouched
by this other fire he saw another and different man from the half-breed
cook before him. This other man was shorter of leg and longer of arm,

t/wild.txt  view on Meta::CPAN

the tent, where he would stand and listen to the sound of his master's
breathing.

But in spite of this great love he bore John Thornton, which seemed
to bespeak the soft civilizing influence, the strain of the primitive,
which the Northland had aroused in him, remained alive and active.
Faithfulness and devotion, things born of fire and roof, were his; yet
he retained his wildness and wiliness. He was a thing of the wild, come
in from the wild to sit by John Thornton's fire, rather than a dog
of the soft Southland stamped with the marks of generations of
civilization. Because of his very great love, he could not steal from

t/wild.txt  view on Meta::CPAN

perfect condition, without an ounce of superfluous flesh, and the one
hundred and fifty pounds that he weighed were so many pounds of grit and
virility. His furry coat shone with the sheen of silk. Down the neck and
across the shoulders, his mane, in repose as it was, half bristled and
seemed to lift with every movement, as though excess of vigor made each
particular hair alive and active. The great breast and heavy fore legs
were no more than in proportion with the rest of the body, where the
muscles showed in tight rolls underneath the skin. Men felt these
muscles and proclaimed them hard as iron, and the odds went down to two
to one.

t/wild.txt  view on Meta::CPAN

unafraid of them except when they bore in their hands their arrows,
spears, and clubs.

Night came on, and a full moon rose high over the trees into the sky,
lighting the land till it lay bathed in ghostly day. And with the coming
of the night, brooding and mourning by the pool, Buck became alive to a
stirring of the new life in the forest other than that which the Yeehats
had made, He stood up, listening and scenting. From far away drifted a
faint, sharp yelp, followed by a chorus of similar sharp yelps. As the
moments passed the yelps grew closer and louder. Again Buck knew them
as things heard in that other world which persisted in his memory. He

 view release on metacpan or  search on metacpan

author/en2kana.csv  view on Meta::CPAN

agree,アグリー
ah,アー
ahead,アヘッド
air,エア
album,アルバム
alive,アライブ
all,オール
allow,アラウ
almond,アーモンド
almost,オールモスト
alone,アローン

 view release on metacpan or  search on metacpan

lib/Acme/MetaSyntactic/services.pm  view on Meta::CPAN

nexus_portal
nfa
nfapi
nfoldman
nfs
nfsd_keepalive
nfsd_status
NFS_or_IIS
nfsrdma
ng_control
ng_umds