view release on metacpan or search on metacpan
fortune/jackbauer view on Meta::CPAN
%
When humans trip on acid, it alters their perceptions of reality. When Jack Bauer trips on acid, it alters reality.
%
If you're Jack Bauer's boss, you probably won't be when the day is over.
%
When Jack Bauer sees a crime, he doesn't call for backup; he calls a coroner.
%
Jack Bauer can make the fun stop after popping open a can of Pringles.
%
Backup calls for Jack Bauer.
%
fortune/jackbauer view on Meta::CPAN
%
When Jack Bauer drinks milk he dones't just get a mustache, he gets and entire beard.
%
Jeopardy was a regular quiz show until Jack Bauer told Alex Trebek, "I'll be the one asking questions around here."
%
When facing a room full of terrorist armed only with a sidearm, Ricky Schroeder would call for backup. Jack Bauer tells the coroner to bring extra bodybags.
%
There is only one rule for dating Jack Bauer's daughter. Don't.
%
Jack Bauer use to be an American Gladiator but was fired when he killed a middle eastern contestant during a super-powerball practice run.
%
view release on metacpan or search on metacpan
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
return $theory;
}
my %special_numbers = (
19 => [ qr/COVID/, '19 is the coronavirus number' ],
24 => [ qr/TINTIN/, 'There are 24 Tintin comics' ],
33 => [ qr/MASON/, '33 is associated with the masons' ],
35 => [ qr/ELVIS/, 'Elvis was born in 1935' ],
44 => [ qr/OBAMA/, 'Barack Obama was the 44th President of the USA' ],
45 => [ qr/TRUMP|QANON|USA/, 'Donald Trump was the 45th President of the USA',
view release on metacpan or search on metacpan
lib/Acme/Coro/Suke.pm view on Meta::CPAN
=encoding utf8
=head1 NAME
Acme::Coro::Suke - the only real corosuke in benzo
=head1 SYNOPSIS
use Coro;
use Acme::Coro::Suke;
lib/Acme/Coro/Suke.pm view on Meta::CPAN
cede; # and again
=head1 DESCRIPTION
This module emulate to corosuke x benzo.
=head1 AUTHOR
Masahiro Chiba E<lt>chiba@geminium.comE<gt>
view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use App::CPANModulesUtils;
use App::cpanm::perlancar;
use App::cpanm::script;
use App::cpanm::shcompgen;
use App::cpanmw;
use App::cpanoutdated::coro;
use App::cpanoutdated::fresh;
use App::CPANPkg;
use App::CPANRepo;
use App::cpanreports;
use App::CPAN::Search;
view release on metacpan or search on metacpan
lib/Acme/MUDLike.pm view on Meta::CPAN
#
# * Let "players" wander between apps. Offer RPC to support this.
#
# * Optionally take an existing Continuity instance with path_session set and optionally parameters
# for the paths to use for chat pull and commands.
# Not sure how to work this; each path gets its own coroutine, but there is still only one main().
# Continuity doesn't have a registry of which paths go to which callbacks.
#
# Done:
#
# * mark/call commands should have a current object register, so you can do /call thingie whatever /next and then be calling
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/tld.pm view on Meta::CPAN
redumbrella rehab reise reisen reit reliance ren rent rentals repair
report republican rest restaurant review reviews rexroth rich richardli
ricoh rightathome ril rio rip rmit rocher rocks rodeo rogers room rsvp
rugby ruhr run rwe ryukyu
saarland safe safety sakura sale salon samsclub samsung sandvik
sandvikcoromant sanofi sap sapo sarl sas save saxo sbi sbs sca scb
schaeffler schmidt scholarships school schule schwarz science scjohnson
scor scot search seat secure security seek select sener services ses
seven sew sex sexy sfr shangrila sharp shaw shell shia shiksha shoes shop
shopping shouji show showtime shriram silk sina singles site ski skin
sky skype sling smart smile sncf soccer social softbank software sohu
view release on metacpan or search on metacpan
lib/Acme/RPC.pm view on Meta::CPAN
# generic name for ourself -- this was found inside another code ref, in instance data, array element, or something.
reg( $node->{chr(0)} = $object );
# variables inside code refs
# walk into the sub and pick out lexical variables
# normally only closures would contain data in their lexical variables, but with multiple
# coroutines executing concurrently, there's the chance that a subroutine is currently
# running, in which case it has data in its pad. if it's recursive, it might have data
# at multiple depths too!
my $p = peek_sub($object);
for my $k (sort { $a cmp $b } keys %$p) {
$node->{$k} = caller_cv(0)->($p->{$k}); # anything it contains by way of refs, which might be nothing
view release on metacpan or search on metacpan
int y;
} COMBINATION;
COMBINATION* init_combination(IV n, IV r, AV *av);
void free_combination(COMBINATION *c);
/* coollex pseudo-coroutine */
bool coollex(COMBINATION *c);
void coollex_visit(COMBINATION *c, SV **p_items);
#endif
view release on metacpan or search on metacpan
lib/Alien/Build/Manual/Contributing.pod view on Meta::CPAN
The convenience of using an L<Alien> is that a user of a CPAN module
that consumes an L<Alien> doesn't need to know the exact incantation
to install the libraries on which it depends (or indeed it may not be
easily installed through the package manager anyway).
As a corollary, a user of a CPAN module that consumes an L<Alien>
module shouldn't expect operating system level packages to be
installed, or for these packages to be installed in common system
level directories, like C</usr/local> or C</opt>. Instead a "share"
directory associated with the Perl install and L<Alien> module
should be used.
view release on metacpan or search on metacpan
inc/Makefile_src view on Meta::CPAN
LUA_A= liblua.a
LUA_SO= liblua.so
CORE_O= lapi.o lcode.o lctype.o ldebug.o ldo.o ldump.o lfunc.o lgc.o llex.o \
lmem.o lobject.o lopcodes.o lparser.o lstate.o lstring.o ltable.o \
ltm.o lundump.o lvm.o lzio.o
LIB_O= lauxlib.o lbaselib.o lbitlib.o lcorolib.o ldblib.o liolib.o \
lmathlib.o loslib.o lstrlib.o ltablib.o loadlib.o linit.o
BASE_O= $(CORE_O) $(LIB_O) $(MYOBJS)
LUA_T= lua
LUA_O= lua.o
inc/Makefile_src view on Meta::CPAN
lbaselib.o: lbaselib.c lua.h luaconf.h lauxlib.h lualib.h
lbitlib.o: lbitlib.c lua.h luaconf.h lauxlib.h lualib.h
lcode.o: lcode.c lua.h luaconf.h lcode.h llex.h lobject.h llimits.h \
lzio.h lmem.h lopcodes.h lparser.h ldebug.h lstate.h ltm.h ldo.h lgc.h \
lstring.h ltable.h lvm.h
lcorolib.o: lcorolib.c lua.h luaconf.h lauxlib.h lualib.h
lctype.o: lctype.c lctype.h lua.h luaconf.h llimits.h
ldblib.o: ldblib.c lua.h luaconf.h lauxlib.h lualib.h
ldebug.o: ldebug.c lua.h luaconf.h lapi.h llimits.h lstate.h lobject.h \
ltm.h lzio.h lmem.h lcode.h llex.h lopcodes.h lparser.h ldebug.h ldo.h \
lfunc.h lstring.h lgc.h ltable.h lvm.h
view release on metacpan or search on metacpan
src/subversion/subversion/po/it.po view on Meta::CPAN
#. FS is of type "svn fs_t *".
#: ../include/private/svn_fs_util.h:133
#, fuzzy, c-format
msgid "No lock on path '%s' in filesystem '%s'"
msgstr "File di blocco corrotto per il percoroso '%s' nel filesystem '%s'"
#. FS is of type "svn fs_t *".
#: ../include/private/svn_fs_util.h:140
#, fuzzy, c-format
msgid "Lock has expired: lock-token '%s' in filesystem '%s'"
src/subversion/subversion/po/it.po view on Meta::CPAN
msgstr ""
#: ../libsvn_fs_fs/lock.c:117
#, c-format
msgid "Corrupt lockfile for path '%s' in filesystem '%s'"
msgstr "File di blocco corrotto per il percoroso '%s' nel filesystem '%s'"
#: ../libsvn_fs_fs/lock.c:219
#, c-format
msgid "Cannot write lock/entries hashfile '%s'"
msgstr "Non riesco a scrivere il file di hash '%s' per il blocco/entrate"
view release on metacpan or search on metacpan
share/swagger-ui-bundle.js view on Meta::CPAN
*
* Copyright(c) 2016 Gregory Jacobs <greg@greg-jacobs.com>
* MIT License
*
* https://github.com/gregjacobs/Autolinker.js
*/o=[],void 0===(i="function"==typeof(r=function(){var e,t,n,r,o,i,a,s=function(e){e=e||{},this.version=s.version,this.urls=this.normalizeUrlsCfg(e.urls),this.email="boolean"!=typeof e.email||e.email,this.twitter="boolean"!=typeof e.twitter||e.twitt...
//# sourceMappingURL=swagger-ui-bundle.js.map
view release on metacpan or search on metacpan
lib/Alter.pm view on Meta::CPAN
# Key to use for object body in image (different from any class name)
use constant BODY => '(body)';
# create a hash image of an object that contains the body and
# corona data
sub image {
my $obj = shift;
+{
BODY() => $obj,
%{ corona( $obj) }, # shallow copy
};
}
# recreate the original object from an image. When called as a
# class method, take the object from the "(body)" entry in image
lib/Alter.pm view on Meta::CPAN
my $orig = delete $im->{ BODY()};
_transfer_content( $orig, $obj);
} else {
$obj = delete $im->{ BODY()};
}
%{ corona( $obj)} = %$im;
$obj;
}
my %trans_tab = (
SCALAR => sub { ${ $_[ 1] } = ${ $_[ 0] } },
lib/Alter.pm view on Meta::CPAN
print ego( $obj)->{ b}, "\n"; # prints 2
package OtherClass;
defined( ego $obj) or die; # dies, OtherClass hasn't set an alter ego
# Direct access to the corona of alter egos
my $crown = Alter::corona $obj;
=head2 Functions
=head3 Basic Functions
lib/Alter.pm view on Meta::CPAN
Assigns C<$val> to the reference C<$obj> as an I<alter ego> for the caller's
class. The class is the package into which the call to C<alter> is compiled.
Returns C<$obj> (I<not> the value assigned).
=item C<Alter::corona( $obj)>
Direct access to the I<corona> of I<alter ego>'s of C<$obj>. The
corona is a hash keyed by class name in which the alter ego's of
an object are stored. Unlike C<alter()> and C<ego()>, this function is
not caller-sensitive. Returns a reference to the corona hash, which
is created if necessary. This function is not exported, if needed
it must be called fully qualified.
=item C<Alter::is_xs>
lib/Alter.pm view on Meta::CPAN
If the C<ego()> function is later called from C<MyClass> before an alter
ego has been specified using C<alter()>, a new I<array reference> will
be created and returned. Autovivification happens only once
per class and object. (You would have to delete the class entry from
the object's corona to make it happen again.)
The type specification can also be a referece of the appropriate
type, so C<[]> can be used for C<"ARRAY"> and C<{}> for C<"HASH">
(globrefs and scalar refs can also be used, but are less attractive).
lib/Alter.pm view on Meta::CPAN
by autovivification), usually once per class and object at initialization
time. It is retrieved by the C<ego()> function in terms of which
a class will define its accessors.
That works by magically (in the technical sense of C<PERL_MAGIC_ext>)
assigning a hash keyed by classname, the I<corona>, to every object
that takes part in the game. The corona holds the individual alter
ego's for each class. It is created when needed and stays with
an object for its lifetime. It is subject to garbage collection
when the object goes out of scope. Normally the corona is invisible
to the user, but the C<Alter::corona()> function (not exported)
allows direct access if needed.
=head2 Example
The example first shows how a class C<Name> is built from two
view release on metacpan or search on metacpan
- You can now use SQL functions pretty much anywhere you would want
(in inserts, updates, where clauses, etc). See the "Using SQL
Functions" section in the Alzabo.pm docs for more details.
- As a corollary to the above, the Alzabo::Runtime::Table->function
method has been created to replace the old
Alzabo::Runtime::Table->func method. This new method takes
advantage of the new system for using SQL functions and is simpler
and more flexible. It allows you to perform all sorts of aggregate
selects.
Alzabo::Runtime::Row object that did not correspond to any data in
the database if its table object did specify any rows to prefetch.
This would have only been discovered later by calling the select
method on a non-primary key column. This hole was plugged.
- As a corollary to the above change methods in Alzabo::Runtime::Table
that produce rows now always return an empty list or undef when the
rows cannot be made because the specified primary key doesn't exist.
Previously, the rows_by_where_clause method did this while others
would cause an exception either during the object creation or later,
depending upon the situation described above.
view release on metacpan or search on metacpan
Amethyst/Brain/Infobot/Module/Excuse.pm view on Meta::CPAN
bad ether in the cables
Bogon emissions
Change in Earth's rotational speed
Cosmic ray particles crashed through the hard disk platter
Smell from unhygenic janitorial staff wrecked the tape heads
Little hamster in running wheel had coronary; waiting for replacement to be Fedexed from Wyoming
Evil dogs hypnotized the night shift
Plumber mistook routing panel for decorative wall fixture
Electricians made popcorn in the power supply
Groundskeepers stole the root password
high pressure system failure
view release on metacpan or search on metacpan
lib/AnyEvent/CouchDB.pm view on Meta::CPAN
Main programs are "allowed to call C<recv> blockingly", according to the
author of L<AnyEvent>.
=item or you're in a Coro + AnyEvent environment.
When you call C<recv> inside a coroutine, only that coroutine is blocked
while other coroutines remain active. Thus, the program as a whole is
still responsive.
=back
If you're not using Coro, and you don't want your whole program to block,
view release on metacpan or search on metacpan
lib/AnyEvent/HTTP/LWP/UserAgent.pm view on Meta::CPAN
use AnyEvent::HTTP::LWP::UserAgent;
use Coro;
my $ua = AnyEvent::HTTP::LWP::UserAgent->new;
my @urls = (...);
my @coro = map {
my $url = $_;
async {
my $r = $ua->get($url);
print "url $url, content " . $r->content . "\n";
}
} @urls;
$_->join for @coro;
# Or without Coro
use AnyEvent::HTTP::LWP::UserAgent;
use AnyEvent;
view release on metacpan or search on metacpan
lib/AnyEvent/JSONRPC/Lite/Client.pm view on Meta::CPAN
=encoding utf-8
=begin stopwords
AnyEvent Coro JSONRPC Hostname Str TCP TCP-based
blockingly condvar condvars coroutine unix
=end stopwords
=head1 NAME
lib/AnyEvent/JSONRPC/Lite/Client.pm view on Meta::CPAN
Main programs are "allowed to call C<recv> blockingly", according to the
author of L<AnyEvent>.
=item or you're in a Coro + AnyEvent environment.
When you call C<recv> inside a coroutine, only that coroutine is blocked
while other coroutines remain active. Thus, the program as a whole is
still responsive.
=back
If you're not using Coro, and you don't want your whole program to block,
view release on metacpan or search on metacpan
lib/AnyEvent/JSONRPC/HTTP/Client.pm view on Meta::CPAN
=encoding utf-8
=begin stopwords
AnyEvent Coro JSONRPC Hostname Str HTTP HTTP-based
blockingly condvar condvars coroutine unix
=end stopwords
=head1 NAME
lib/AnyEvent/JSONRPC/HTTP/Client.pm view on Meta::CPAN
Main programs are "allowed to call C<recv> blockingly", according to the
author of L<AnyEvent>.
=item or you're in a Coro + AnyEvent environment.
When you call C<recv> inside a coroutine, only that coroutine is blocked
while other coroutines remain active. Thus, the program as a whole is
still responsive.
=back
If you're not using Coro, and you don't want your whole program to block,
view release on metacpan or search on metacpan
MP/Intro.pod view on Meta::CPAN
sometimes things are easier if you can decide in what order you want to
receive messages, regardless of the order in which they were sent.
In these cases, L<Coro::MP> can provide a nice solution: instead of
registering callbacks for each message type, C<Coro::MP> attaches a
(coro-) thread to a port. The thread can then opt to selectively receive
messages it is interested in. Other messages are not lost, but queued, and
can be received at a later time.
The C<Coro::MP> module is not part of L<AnyEvent::MP>, but a separate
module. It is, however, tightly integrated into C<AnyEvent::MP> - the
view release on metacpan or search on metacpan
lib/AnyEvent/MPRPC/Client.pm view on Meta::CPAN
Main programs are "allowed to call C<recv> blockingly", according to the
author of L<AnyEvent>.
=item or you're in a Coro + AnyEvent environment.
When you call C<recv> inside a coroutine, only that coroutine is blocked
while other coroutines remain active. Thus, the program as a whole is
still responsive.
=back
If you're not using Coro, and you don't want your whole program to block,
view release on metacpan or search on metacpan
lib/AnyEvent/Proc.pm view on Meta::CPAN
Reads a single line from STDOUT and send the result to C<$condvar>. A condition variable will be created and returned, if C<$condvar> is omitted.
=head2 readline_ch([$channel])
Reads a singe line from STDOUT and put the result to coro channel C<$channel>. A L<Coro::Channel> will be created and returned, if C<$channel> is omitted.
=head2 readlines_cb($callback)
Read lines continiously from STDOUT and calls on every line the handler C<$callback>.
=head2 readlines_ch([$channel])
Read lines continiously from STDOUT and put every line to coro channel C<$channel>. A L<Coro::Channel> will be created and returned, if C<$channel> is omitted.
=head2 readline()
Reads a single line from STDOUT synchronously and return the result.
view release on metacpan or search on metacpan
lib/AnyEvent/Retry/Coro.pm view on Meta::CPAN
init_arg => undef,
required => 0,
writer => 'set_success_cb',
);
has 'running_coro' => (
init_arg => undef,
accessor => 'running_coro',
clearer => 'clear_running_coro',
);
before start => sub {
my $self = shift;
Scalar::Util::weaken($self);
lib/AnyEvent/Retry/Coro.pm view on Meta::CPAN
};
override handle_tick => sub {
my ($self, $i) = @_;
weaken $self;
$self->running_coro(async {
$self->handle_result($self->run_code);
$self->clear_running_coro if defined $self;
});
};
sub DEMOLISH {
my $self = shift;
$self->running_coro->throw('DEMOLISH');
}
sub wait {
my ($status, @args) = Coro::rouse_wait();
return $args[0] if $status eq 'success';
view release on metacpan or search on metacpan
Makefile.PL
MANIFEST
MANIFEST.SKIP
META.yml
README
t/coro.t
t/simple.t
view release on metacpan or search on metacpan
t/echo.t
t/error.t
t/handshake.t
t/max_payload_size.t
t/multiple_connections.t
t/psgi_corona.t
t/psgi_twiggy.t
t/support_script/gen_ssl_keys.sh
t/testlib/ConnConfig.pm
t/testlib/PSGI.pm
t/testlib/Util.pm
view release on metacpan or search on metacpan
lib/AnyEvent.pm view on Meta::CPAN
=head3 Results
name watchers bytes create invoke destroy comment
EV/EV 100000 223 0.47 0.43 0.27 EV native interface
EV/Any 100000 223 0.48 0.42 0.26 EV + AnyEvent watchers
Coro::EV/Any 100000 223 0.47 0.42 0.26 coroutines + Coro::Signal
Perl/Any 100000 431 2.70 0.74 0.92 pure perl implementation
Event/Event 16000 516 31.16 31.84 0.82 Event native interface
Event/Any 16000 1203 42.61 34.79 1.80 Event + AnyEvent watchers
IOAsync/Any 16000 1911 41.92 27.45 16.81 via IO::Async::Loop::IO_Poll
IOAsync/Any 16000 1726 40.69 26.37 15.25 via IO::Async::Loop::Epoll
view release on metacpan or search on metacpan
lib/AnyMQ/Trait/AMQP.pm view on Meta::CPAN
has on_ready => (is => "rw", isa => "CodeRef");
has _connected => (is => "rw", isa => "Bool");
sub default_amqp_spec { #this is to avoid loading coro
my $dir = File::ShareDir::dist_dir("AnyEvent-RabbitMQ");
return "$dir/fixed_amqp0-8.xml";
}
AnyEvent::RabbitMQ->load_xml_spec(default_amqp_spec());
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Aktif",
],
[
"07020213",
"Cone untuk Es Krim",
"Cone untuk es krim adalah sejenis wafer yang berbentuk corong digunakan sebagai wadah es krim.<br>",
"Aktif",
],
[
"07020214",
"Panekuk",
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
"Aktif",
],
[
"07020213",
"Cone untuk Es Krim",
"Cone untuk es krim adalah sejenis wafer yang berbentuk corong digunakan sebagai wadah es krim.<br>",
"Aktif",
],
[
"07020214",
"Panekuk",
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table.pm view on Meta::CPAN
"Aktif",
],
[
"07020213",
"Cone untuk Es Krim",
"Cone untuk es krim adalah sejenis wafer yang berbentuk corong digunakan sebagai wadah es krim.<br>",
"Aktif",
],
[
"07020214",
"Panekuk",