view release on metacpan or search on metacpan
lib/Acme/CPANModules_ScenarioR/UUID.pm view on Meta::CPAN
## no critic
package Acme::CPANModules_ScenarioR::UUID;
our $VERSION = 0.011; # VERSION
our $results = [[200,"OK",[{_name=>"participant=UUID::Random::Secure::generate",_succinct_name=>"URS:g",errors=>0.0013,participant=>"UUID::Random::Secure::generate",pct_faster_vs_slowest=>0,pct_slower_vs_fastest=>36.5,rate=>30,samples=>22,time=>30},{...
1;
# ABSTRACT: List of modules that can generate immutable universally unique identifier (UUIDs)
=head1 DESCRIPTION
view release on metacpan or search on metacpan
lib/Acme/CPANModules/XSVersions.pm view on Meta::CPAN
our $LIST = {
summary => 'List of Perl modules which have XS implementation or backend',
description => <<'_',
This list catalogs (pure-) Perl modules that have their XS counterparts ("fast
versions"), usually in separate distributions so the installation of the XS
version is optional. The two versions of the modules provide the same interface.
When the two modules are different in interface, they are not listed here.
Usually authors use `::XS` or `_XS` suffix for the XS version (for example,
lib/Acme/CPANModules/XSVersions.pm view on Meta::CPAN
L<Acme::CPANModules::XSVersions> which you're reading right now, as well as
L<Acme::CM::Get>, L<Module::Installed::Tiny>, and L<cpanm>.)
=head1 DESCRIPTION
This list catalogs (pure-) Perl modules that have their XS counterparts ("fast
versions"), usually in separate distributions so the installation of the XS
version is optional. The two versions of the modules provide the same interface.
When the two modules are different in interface, they are not listed here.
Usually authors use C<::XS> or C<_XS> suffix for the XS version (for example,
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/MJGARDNER/LocalizingDate.pm view on Meta::CPAN
our $VERSION = '0.002'; # VERSION
our $LIST = {
entries => [
{ module => "DateTime::Locale" },
{ module => "DateTime::Locale::Catalog" },
{ module => "DateTime" },
{ module => "HTTP::AcceptLanguage" },
{ module => "DateTime" },
{ module => "Locale::Maketext" },
],
lib/Acme/CPANModules/Import/MJGARDNER/LocalizingDate.pm view on Meta::CPAN
=over
=item * L<DateTime::Locale>
=item * L<DateTime::Locale::Catalog>
=item * L<DateTime>
=item * L<HTTP::AcceptLanguage>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/MojoliciousAdvent/2017_12_01.pm view on Meta::CPAN
package Acme::CPANModules::Import::MojoliciousAdvent::2017_12_01;
our $DATE = '2018-12-30'; # DATE
our $VERSION = '0.001'; # VERSION
our $LIST = {description=>"This list is generated by extracting module names mentioned in [https://mojolicious.io/blog/2017/12/01/day-1-getting-started] (retrieved on 2018-12-30). Visit the URL for the full contents.",entries=>[{module=>"App::cpanmin...
1;
# ABSTRACT: Modules mentioned in Mojolicious Advent Calendar 2017 (day 01)
__END__
lib/Acme/CPANModules/Import/MojoliciousAdvent/2017_12_01.pm view on Meta::CPAN
This document describes version 0.001 of Acme::CPANModules::Import::MojoliciousAdvent::2017_12_01 (from Perl distribution Acme-CPANModulesBundle-Import-MojoliciousAdvent-2017), released on 2018-12-30.
=head1 DESCRIPTION
This module is generated by extracting module names mentioned in L<https://mojolicious.io/blog/2017/12/01/day-1-getting-started> (retrieved on 2018-12-30). Visit the URL for the full contents.
Modules mentioned in Mojolicious Advent Calendar 2017 (day 01).
This list is generated by extracting module names mentioned in [https://mojolicious.io/blog/2017/12/01/day-1-getting-started] (retrieved on 2018-12-30). Visit the URL for the full contents.
=head1 INCLUDED MODULES
=over
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/MojoliciousAdvent/2018_12_02.pm view on Meta::CPAN
package Acme::CPANModules::Import::MojoliciousAdvent::2018_12_02;
our $DATE = '2018-12-30'; # DATE
our $VERSION = '0.001'; # VERSION
our $LIST = {description=>"This list is generated by extracting module names mentioned in [https://mojolicious.io/blog/2018/12/02/automatic-reload-for-rapid-development/] (retrieved on 2018-12-30). Visit the URL for the full contents.",entries=>[{mod...
1;
# ABSTRACT: Modules mentioned in Mojolicious Advent Calendar 2018 (day 02)
__END__
lib/Acme/CPANModules/Import/MojoliciousAdvent/2018_12_02.pm view on Meta::CPAN
This document describes version 0.001 of Acme::CPANModules::Import::MojoliciousAdvent::2018_12_02 (from Perl distribution Acme-CPANModulesBundle-Import-MojoliciousAdvent-2018), released on 2018-12-30.
=head1 DESCRIPTION
This module is generated by extracting module names mentioned in L<https://mojolicious.io/blog/2018/12/02/automatic-reload-for-rapid-development/> (retrieved on 2018-12-30). Visit the URL for the full contents.
Modules mentioned in Mojolicious Advent Calendar 2018 (day 02).
This list is generated by extracting module names mentioned in [https://mojolicious.io/blog/2018/12/02/automatic-reload-for-rapid-development/] (retrieved on 2018-12-30). Visit the URL for the full contents.
=head1 INCLUDED MODULES
=over
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/PERLANCAR/Advent/2014.pm view on Meta::CPAN
our $DATE = '2018-09-22'; # DATE
our $VERSION = '0.001'; # VERSION
our $LIST = {
description => "This list is generated by extracting module names mentioned in [http://blogs.perl.org/users/perlancar/2014/12/perlancars-2014-advent-calendar.html] (retrieved on 2016-11-07). Visit the URL for the full contents.",
entries => [
{ module => "JSON::Path" },
{ module => "DBIx::Compare" },
{ module => "Reply" },
{ module => "Reply::Plugin::DataDumpColor" },
lib/Acme/CPANModules/Import/PERLANCAR/Advent/2014.pm view on Meta::CPAN
=head1 DESCRIPTION
Modules mentioned in PERLANCAR's 2014 advent calendar article series.
This list is generated by extracting module names mentioned in [http://blogs.perl.org/users/perlancar/2014/12/perlancars-2014-advent-calendar.html] (retrieved on 2016-11-07). Visit the URL for the full contents.
=head1 INCLUDED MODULES
=over
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/PerlDancerAdvent/2010.pm view on Meta::CPAN
{ module => "KiokuDB" },
{ module => "KiokuDB::TypeMap" },
{ module => "Moose" },
{ module => "DBIx::Class::ResultSet" },
{ module => "Dancer::Logger::PSGI" },
{ module => "Dancer::Logger::Syslog" },
{ module => "Dancer::Plugin::Params::Normalization" },
{ module => "Dancer::Plugin::SiteMap" },
{ module => "Dancer::Template::Semantic" },
{ module => "Dancer::Template::Tenjin" },
{ module => "Dancer::Template::Tiny" },
{ module => "Dancer::Template::Xslate" },
{ module => "HTML::Mason" },
{ module => "Sys::Syslog" },
{ module => "Template::Tiny" },
{ module => "Tenjin" },
{ module => "Text::MicroTemplate" },
{ module => "Text::Xslate" },
],
lib/Acme/CPANModules/Import/PerlDancerAdvent/2010.pm view on Meta::CPAN
=item * L<DBIx::Class::ResultSet>
=item * L<Dancer::Logger::PSGI>
=item * L<Dancer::Logger::Syslog>
=item * L<Dancer::Plugin::Params::Normalization>
=item * L<Dancer::Plugin::SiteMap>
lib/Acme/CPANModules/Import/PerlDancerAdvent/2010.pm view on Meta::CPAN
=item * L<Dancer::Template::Xslate>
=item * L<HTML::Mason>
=item * L<Sys::Syslog>
=item * L<Template::Tiny>
=item * L<Tenjin>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/PerlDancerAdvent/2016.pm view on Meta::CPAN
{ module => "Hash::MultiValue" },
{ module => "Dancer2::Logger::LogReport" },
{ module => "Dancer2::Plugin::LogReport" },
{ module => "Log::Report" },
{ module => "Log::Report::DBIC::Profiler" },
{ module => "Log::Report::Dispatcher::Syslog" },
{ module => "Log::Report::Translator" },
{ module => "Locale::TextDomain" },
{ module => "Log::Report::Extract::PerlPPI" },
{ module => "Log::Report::Extract::Template" },
{ module => "AnyEvent" },
lib/Acme/CPANModules/Import/PerlDancerAdvent/2016.pm view on Meta::CPAN
=item * L<Log::Report>
=item * L<Log::Report::DBIC::Profiler>
=item * L<Log::Report::Dispatcher::Syslog>
=item * L<Log::Report::Translator>
=item * L<Locale::TextDomain>
view release on metacpan or search on metacpan
devdata/http_advent.perldancer.org_2018_16 view on Meta::CPAN
my $config = MyJob::Config->new->config;
my $hostconfig = get_hostconfig();
my $minion = MyJob::JobQueue->new;
my $worker = $minion->runner->worker;
my $log_eng = MyJob::Log4p->new({ logger_name => "Minion" });
my $logger = MyJob::Util::Logger->new->logger($log_eng);</pre>
<p>The above is mostly typical boilerplate for us. Read our configuration, and create a logger the worker can use.</p>
<p>Next, when a job is dequeued, we want to log that the worker picked up a job (needed for auditing purposes) and we alter the process name so if a process hangs, we know what that process
was attempting to run. If an unchecked exception occurs in a job, the worker will catch it and log it for us:</p>
<pre class="prettyprint">$worker->on( dequeue => sub( $worker, $job ) {
my $id = $job->id;
my $notes = $job->info->{ notes };
my $title = $notes->{ title };
my $guid = $notes->{ guid };
$job->on( spawn => sub( $job, $pid ) {
$0 = "$title $guid";
$logger->info(
"$title: Created child process $pid for job $id by parent $$ - $guid");
});
$job->on( failed => sub( $job, $error ) {
chomp $error;
$logger->error( $error );
});
});</pre>
<p>To help us for future capacity planning, we want our workers to tell us if they are running at peak capacity, so log when this event occurs:</p>
<pre class="prettyprint">$worker->on( busy => sub( $worker ) {
my $max = $worker->status->{ jobs };
$logger->log( "$0: Running at capacity (performing $max jobs)." );
});</pre>
<p>Now, we apply the configuration (read below) to the worker. When the worker starts, it tells us information about how it was configured (this was really useful during development):</p>
<pre class="prettyprint">my $max_jobs = $hostconfig->{ max_children };
my @queues = @{ $hostconfig->{ queues }};
devdata/http_advent.perldancer.org_2018_16 view on Meta::CPAN
}
}</pre>
<h2><a name="monitoring_the_workers"></a>Monitoring the Workers</h2>
<p>Our Minion dashboard was virtually identical to the one that @preaction posted in <a href="https://mojolicious.io/blog/2018/12/11/who-watches-the-minions/#section-2">Who Watches the Minions?</a>.
If you'd like to know more, I highly recommend reading his article.</p>
<h2><a name="outcome"></a>Outcome</h2>
<p>Within about a two-week timespan, we went from having zero practical knowledge of Minion to having things up and running. We've made some refinements and improvements along the way, but the quick turnaround
is a true testament to the simplicity of working with Minion.</p>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/RSAVAGE/StopWordLists.pm view on Meta::CPAN
our $LIST = {
description => "This list is generated by extracting module names mentioned in the article [http://savage.net.au/Perl-modules/html/stopwordlists.report.html] (retrieved on 2016-02-21). For the full article, visit the URL.",
entries => [
{ module => "AI::Categorizer" },
{ module => "Benchmark::Featureset::StopWordLists" },
{ module => "Blog::Spam" },
{ module => "DBIx::FullTextSearch" },
{ module => "DBIx::TextIndex" },
{ module => "Elastic::Model" },
{ module => "HTML::Index" },
{ module => "Image::WordCloud" },
lib/Acme/CPANModules/Import/RSAVAGE/StopWordLists.pm view on Meta::CPAN
=item * L<AI::Categorizer>
=item * L<Benchmark::Featureset::StopWordLists>
=item * L<Blog::Spam>
=item * L<DBIx::FullTextSearch>
=item * L<DBIx::TextIndex>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/SHARYANTO/INI.pm view on Meta::CPAN
our $DATE = '2018-09-22'; # DATE
our $VERSION = '0.001'; # VERSION
our $LIST = {
description => "This list is generated by extracting module names mentioned in the article [http://blogs.perl.org/users/steven_haryanto/2010/11/comparison-of-ini-format-modules-on-cpan.html] (retrieved on 2016-02-21). For the full article, visit th...
entries => [
{ module => "Config::Format::INI" },
{ module => "Config::INI::Access" },
{ module => "Config::INI::Writer" },
{ module => "Config::IniFiles" },
lib/Acme/CPANModules/Import/SHARYANTO/INI.pm view on Meta::CPAN
=head1 DESCRIPTION
Comparison of INI-format modules on CPAN (2010).
This list is generated by extracting module names mentioned in the article [http://blogs.perl.org/users/steven_haryanto/2010/11/comparison-of-ini-format-modules-on-cpan.html] (retrieved on 2016-02-21). For the full article, visit the URL.
=head1 INCLUDED MODULES
=over
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/CombinationsAndPermutations.pm view on Meta::CPAN
our $DATE = '2018-09-22'; # DATE
our $VERSION = '0.001'; # VERSION
our $LIST = {
description => "This list is generated by extracting module names mentioned in the article [http://blogs.perl.org/users/dana_jacobsen/2015/02/short-survey-of-modules-for-combinations-and-permutations.html] (retrieved on 2016-07-19). For the full ar...
entries => [
{ module => "Algorithm::Combinatorics" },
{ module => "Algorithm::FastPermute" },
{ module => "Algorithm::Loops" },
{ module => "Algorithm::Permute" },
lib/Acme/CPANModules/Import/CombinationsAndPermutations.pm view on Meta::CPAN
=head1 DESCRIPTION
Short survey of modules for combinations and permutations (2015).
This list is generated by extracting module names mentioned in the article [http://blogs.perl.org/users/dana_jacobsen/2015/02/short-survey-of-modules-for-combinations-and-permutations.html] (retrieved on 2016-07-19). For the full article, visit the U...
=head1 INCLUDED MODULES
=over
view release on metacpan or search on metacpan
lib/Acme/CPANModules/PERLANCAR/Avoided.pm view on Meta::CPAN
summary => 'Not encoding-friendly',
description => <<'_',
File::Slurp was created (1996) before Perl IO layers (5.8, 2002) and its API
does not handle encoding properly. See:
<http://blogs.perl.org/users/leon_timmermans/2015/08/fileslurp-is-broken-and-wrong.html>
or discussion on RT.
_
alternate_modules => ['File::Slurper'],
},
lib/Acme/CPANModules/PERLANCAR/Avoided.pm view on Meta::CPAN
Author: L<CAPOEIRAB|https://metacpan.org/author/CAPOEIRAB>
File::Slurp was created (1996) before Perl IO layers (5.8, 2002) and its API
does not handle encoding properly. See:
L<http://blogs.perl.org/users/leon_timmermans/2015/08/fileslurp-is-broken-and-wrong.html>
or discussion on RT.
Alternate modules: L<File::Slurper>
view release on metacpan or search on metacpan
lib/Acme/CatFS.pm view on Meta::CPAN
L<Fuse::Simple> and L<Fuse>
=head1 ACKNOWLEDGE
Thanks to Julia Evans (twitter => @b0rk, blog => L<http://jvns.ca/>) with the original idea and support on twitter. And Nick Waterman (pause => NOSEYNICK) by L<Fuse::Simple> module - it is awesome!
=head1 AUTHOR
Tiago Peczenyj, E<lt>tiago.peczenyj@gmail.comE<gt>
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
} }
inc/Module/Install/Fetch.pm view on Meta::CPAN
unless ($fh->open("|$ftp -n")) {
warn "Couldn't open ftp: $!\n";
chdir $dir; return;
}
my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
foreach (@dialog) { $fh->print("$_\n") }
$fh->close;
} }
else {
warn "No working 'ftp' program available!\n";
chdir $dir; return;
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
} }
inc/Module/Install/Fetch.pm view on Meta::CPAN
unless ($fh->open("|$ftp -n")) {
warn "Couldn't open ftp: $!\n";
chdir $dir; return;
}
my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
foreach (@dialog) { $fh->print("$_\n") }
$fh->close;
} }
else {
warn "No working 'ftp' program available!\n";
chdir $dir; return;
view release on metacpan or search on metacpan
xt/author/pod_spelling_system.t view on Meta::CPAN
CPAN
reinstall
TODO
filename
filenames
login
callback
callbacks
standalone
VMS
hostname
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
} }
inc/Module/Install/Fetch.pm view on Meta::CPAN
unless ($fh->open("|$ftp -n")) {
warn "Couldn't open ftp: $!\n";
chdir $dir; return;
}
my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
foreach (@dialog) { $fh->print("$_\n") }
$fh->close;
} }
else {
warn "No working 'ftp' program available!\n";
chdir $dir; return;
view release on metacpan or search on metacpan
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
my $invention = _RANDOM_(
['the internet', 0],
['cryptocurrencies', 1],
['smartphones', 1],
['bitcoin', 0],
['blockchain technology', 0],
['ChatGPT', 0],
);
_MERGE_( $redstring, invention => $invention->[0],
invention_plural => $invention->[1], );
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
my $x = _RANDOM_(
'Project Blue Beam',
'The Plan',
'the Global Warming Hoax',
'the New Chronology',
'the Great Replacement',
'the Great Reset',
'the LGBT Agenda',
'the Kalergi Plan',
'Eurabia',
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
_MERGE_( $redstring, physicist => $x );
return $x;
}
sub biologist { # and medics
my $redstring = shift // {};
my $x = _RANDOM_(
'Charles Darwin',
'Edward Jenner',
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
'Carl Linneaus',
'Alexander Fleming',
'Dr Fauci',
);
_MERGE_( $redstring, biologist => $x );
return $x;
}
sub website {
my $redstring = shift // {};
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
'an alien',
'an avatar',
'a CGI replica',
'a clone',
'a cyborg',
'a hologram',
'an impersonator',
'a look-alike',
'a robot',
'a shapeshifter',
);
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
"$dl told me",
"I have seen signs from $dl",
);
}
if ( my $v = $redstring->{victim} // $redstring->{physicist} // $redstring->{biologist} ) {
push @x, (
"$v died too young",
"$v sent a letter containing the truth before dying",
sub {
my $clone = clone( $redstring );
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
"when they did an autopsy on $v it turned out they were secretly a $animal in a human suit";
},
);
}
if ( my $v = $redstring->{physicist} // $redstring->{biologist} ) {
push @x, (
"$v isn't mentioned in Aristotle's writing",
"$v hasn't given a lecture in months",
"$v isn't taken seriously by TRUE SCIENTISTS",
);
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
}
if ( my $f = $redstring->{fiction} ) {
push @x, (
$f->{title} . " has secret messages encoded in it with numerology",
$f->{title} . " is satanic",
sub {
my $g = shady_group( $redstring );
my $has = splural( $redstring->{shady_group} ) ? 'have' : 'has';
$f->{author} . " $has ties to $g";
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
my $topicname = $topic->{name};
my $have = $topic->{plural} ? 'have' : 'has';
push @x, (
"there's hidden clues in the Wikipedia page about $topicname",
"THEY let it slip during an edit war in a Wikipedia page about $topicname",
"Bible numerology has clues about $topicname",
"the Voynich manuscript has clues about $topicname",
"$topicname $have always been suspicious",
"$topicname $have connections to THEM",
"nobody really understands $topicname",
"all my posts about $topicname keep getting taken down by Tumblr",
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
my $truth = _RANDOM_(
sub { # wrap classics in a sub so they don't come up too often
_RANDOM_(
sub {
$redstring->{topic} = { name => 'geology', plural => 0 };
'the Earth is flat';
},
sub {
$redstring->{topic} = { name => 'Inner Space (1987)', plural => 0 };
'space is fake';
},
sub {
$redstring->{topic} = { name => 'theology', plural => 0 };
'God is real';
},
sub {
$redstring->{topic} = { name => 'Buddhism', plural => 0 };
'reincarnation is true';
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
$redstring->{topic} = { name => 'glaciers', plural => 1 };
$redstring->{random_place} //= 'Greenland';
"global warming is a hoax";
},
sub {
$redstring->{topic} = { name => 'geology', plural => 0 };
'the US government knows exactly when Yellowstone will erupt';
},
sub {
$redstring->{topic} = { name => 'cloud seeding', plural => 0 };
"the government controls the weather";
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
$redstring->{topic} = { name => 'Snapple', plural => 0 };
"Snapple is owned by the KKK";
},
sub {
my $disease = disease( $redstring );
$redstring->{topic} = { name => 'biological warfare', plural => 0 };
"$disease was developed as a bioweapon";
},
sub {
$redstring->{topic} = { name => 'gas chambers', plural => 1 };
$redstring->{random_place} //= 'Germany';
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
my $stupid = _RANDOM_(
'people in costumes',
'animatronics',
'CGI',
'highly coordinated swarms of bees',
'holograms',
'a mirage',
);
"the $animal is a fake animal and is just $stupid";
},
sub {
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
$redstring->{topic} = { name => 'geocentrism', plural => 0 };
'the sun goes round the Earth';
},
sub {
$redstring->{topic} = { name => 'the moon', plural => 0 };
'the moon is a hologram';
},
sub {
$redstring->{topic} = { name => 'camembert', plural => 0 };
'the moon is made of cheese';
},
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
$redstring->{topic} = { name => 'Satan', plural => 0 };
'the axis of evil in the cosmic microwave background was put there by Satan';
},
sub {
$redstring->{topic} = { name => 'the zodiac', plural => 0 };
'astrology has been scientifically verified';
},
sub {
$redstring->{topic} = { name => 'the year of the dragon', plural => 0 };
'the Chinese zodiac can predict the future';
},
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
},
sub {
my $group = shady_group( $redstring );
$redstring->{protagonists} = $redstring->{shady_group};
my $biologist = biologist( $redstring );
my $fact = _RANDOM_(
sub {
$redstring->{topic} = { name => 'pandas', plural => 1 };
'pandas are really just fat raccoons';
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
sub {
$redstring->{topic} = { name => 'anger management', plural => 0 };
"wasps are just angry bees";
},
sub {
$redstring->{topic} = { name => 'oncology', plural => 0 };
"windmills cause cancer";
},
sub {
my $chem = chemicals( $redstring );
$redstring->{topic} = { name => 'honey', plural => 0 };
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
"the germ theory of disease",
"our understanding of DNA",
'creation science',
);
_UCFIRST_ "$biologist discovered that $fact but the scientific establishment is suppressing it because it would destroy $destruction. $solution";
},
sub {
my $group = shady_group( $redstring );
$redstring->{protagonists} = $redstring->{shady_group};
my $have = $redstring->{protagonists}->{plural} ? 'have' : 'has';
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
'by paying the UN',
'by talking with funny accents',
'by hacking satellites',
);
_UCFIRST_ "$place is just a hologram created by $group who $have been hiding it for years $how.";
},
sub {
my $place = random_place( $redstring );
my $truth1 = hidden_truth( $redstring );
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
_MERGE_( $redstring, base_theory => $theory );
my $evidence = evidence( $redstring );
$theory .= " $evidence" if $evidence;
my $numerology = numerology( $redstring );
$theory .= " $numerology" if $numerology;
_MERGE_( $redstring, theory => $theory );
return $theory;
}
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
92 => [ qr/URANIUM/, 'The atomic number for uranium is 92' ],
322 => [ qr/SKULL/, 'Skull and Bones is Order 322' ],
666 => [ qr/DEVIL|DEMON|SATAN/, '666 is the number of the beast' ],
);
sub numerology {
my $redstring = shift // {};
my @strings = List::Util::uniq(
grep { length }
map { my $letters = uc( $_ ); $letters =~ s/[^A-Z0-9]//g; $letters }
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
=head1 CONTRIBUTORS
Alex Jones discovered that there are secretly other people who have contributed
to this module but Toby Inkster is working with Microsoft and the Illuminati to
cover it up. I tried to blog about it but all my posts keep getting taken down
from Tumblr. There are hidden clues on L<GitHub|https://github.com/tobyink/p5-acme-conspiracytheory-random/graphs/contributors>.
You don't want to know how deep this rabbit hole goes!
=head1 COPYRIGHT AND LICENCE
view release on metacpan or search on metacpan
@prefix dc: <http://purl.org/dc/terms/> .
@prefix doap: <http://usefulinc.com/ns/doap#> .
@prefix doap-changeset: <http://ontologi.es/doap-changeset#> .
@prefix doap-deps: <http://ontologi.es/doap-deps#> .
@prefix foaf: <http://xmlns.com/foaf/0.1/> .
@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
@prefix xsd: <http://www.w3.org/2001/XMLSchema#> .
<http://dev.perl.org/licenses/>
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
} }
inc/Module/Install/Fetch.pm view on Meta::CPAN
unless ($fh->open("|$ftp -n")) {
warn "Couldn't open ftp: $!\n";
chdir $dir; return;
}
my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
foreach (@dialog) { $fh->print("$_\n") }
$fh->close;
} }
else {
warn "No working 'ftp' program available!\n";
chdir $dir; return;
view release on metacpan or search on metacpan
$duck->print($socket);
=head1 DESCRIPTION
Acme::Cow is the logical evolution of the old cowsay program. Cows
are derived from a base class (Acme::Cow) or from external files.
Cows can be made to say or think many things, optionally filling
and justifying their text out to a given margin,
view release on metacpan or search on metacpan
lib/Acme/Crap.pm view on Meta::CPAN
crap!!! "there was a really very bad problem";
=head1 DESCRIPTION
Load the module. Now you can spell C<carp> more scatologically, and with
as many trailing exclamation marks as you need to satisfy your degree of
frustration.
=head1 INTERFACE
view release on metacpan or search on metacpan
lib/Acme/CreatingCPANModules.pm view on Meta::CPAN
Let's look at the files in detail.
[slide] Here's a Changes file.
Note that the order of the changes is chronologically inversed. Why?
Because the purporse of a changes file is (among others) to let the
user know what you changed from the last version, so that he can
decide if he wants to install your module.
Hence, and since browsers and editors usually open files in their
view release on metacpan or search on metacpan
Revision history for Perl extension Acme::Currency.
3.01 Thu Mar 31 08:01 2011
- Rats, forgot change log in previous release.
3.00 Thu Mar 31 08:00 2011
- Fix test failure in blead perl (5.14 to be).
2.00 Tue Mar 29 23:00 2011
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
} }
inc/Module/Install/Fetch.pm view on Meta::CPAN
unless ($fh->open("|$ftp -n")) {
warn "Couldn't open ftp: $!\n";
chdir $dir; return;
}
my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
foreach (@dialog) { $fh->print("$_\n") }
$fh->close;
} }
else {
warn "No working 'ftp' program available!\n";
chdir $dir; return;
view release on metacpan or search on metacpan
Acme::Dahut is the produce of the deranged imaginations of the #axkit
Higher Circles.
As far as I know, it's the only module the constructor of which returns
a blessed LVALUE. But this is to be expected, as it powerfully captures
the business logic of a Left Dahut.
=head1 METHODS
=over 4
view release on metacpan or search on metacpan
Version made by someone other than you, you are nevertheless required
to ensure that your Modified Version complies with the requirements of
this license.
(12) This license does not grant you the right to use any trademark,
service mark, tradename, or logo of the Copyright Holder.
(13) This license includes the non-exclusive, worldwide,
free-of-charge patent license to make, have made, use, offer to sell,
sell, import and otherwise transfer the Package with respect to any
patent claims licensable by the Copyright Holder that are necessarily
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
} }
inc/Module/Install/Fetch.pm view on Meta::CPAN
unless ($fh->open("|$ftp -n")) {
warn "Couldn't open ftp: $!\n";
chdir $dir; return;
}
my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
foreach (@dialog) { $fh->print("$_\n") }
$fh->close;
} }
else {
warn "No working 'ftp' program available!\n";
chdir $dir; return;
view release on metacpan or search on metacpan
lib/Acme/DeepThoughts.pm view on Meta::CPAN
The old pool shooter had won many a game in his life. But now it was time to hang up the cue. When he did, all the other cues came crashing to the floor. "Sorry," he said with a smile.
A man doesn't automatically get my respect. He has to get down in the dirt and beg for it.
I bet a funny thing about driving a car off a cliff is, while you're in midair, you still hit those brakes! Hey, better try the emergency brake!
Even though he was an enemy of mine, I had to admit that what he had accomplished was a brilliant piece of strategy. First, he punched me, then he kicked me, then he punched me again.
To us, it might look like just a rag. But to the brave, embattled men of the fort, it was more than that. It was a flag of surrender. And after that, it was torn up and used for shoe-shine rags, so the men would look nice for the surrender.
If you go to a party, and you want to be the popular one at the party, do this: Wait until no one is looking, then kick a burning log out of the fireplace onto the carpet. Then jump on top of it with your body and yell, "Log o' fire! Log o' fire!" I'...
You know what's probably a good thing to hang on your porch in the summertime, to keep mosquitoes away from you and your guests? Just a big bag of blood.
If you're traveling in a time machine, and you're eating corn on the cob, I don't think it's going to affect things one way or the other. But here's the point I'm trying to make: Corn on the cob is good, isn't it.
When I was a child, there were times when we had to entertain ourselves. And usually the best way to do that was to turn on the TV.
It's easy to sit there and say you'd like to have more money. And I guess that's what I like about it. It's easy. Just sitting there, rocking back and forth, wanting that money.
If I ever become a mummy, I'm going to have it so when somebody opens my lid, a boxing glove on a spring shoots out.