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

read realestate realtor realty recipes red redstone 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

 view release on metacpan or  search on metacpan

eg/socket.pl  view on Meta::CPAN

use blib;
$|++;
use Acme::Parataxis;
use IO::Socket::INET;

# Create a simple echo server in a coroutine
Acme::Parataxis::run(
    sub {
        my $server = IO::Socket::INET->new( LocalAddr => '127.0.0.1', LocalPort => 9999, Proto => 'tcp', Listen => 5, Reuse => 1 ) or
            die 'Could not create server: ' . $!;
        $server->blocking(0);

 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