view release on metacpan or search on metacpan
devdata/perlancar view on Meta::CPAN
<script type="text/javascript">
var global_auth_token = "";
</script>
</head>
<body class="page-cpanratings section_onion">
<nav class="navbar navbar-inverse" data-height="120">
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-29'; # DATE
our $DIST = 'Acme-CPANModules-Import-CPANRatings-User-stevenharyanto'; # DIST
our $VERSION = '0.002'; # VERSION
our $LIST = {description=>"This list is generated by scraping CPANRatings (cpanratings.perl.org) user page.",entries=>[{description=>"\n(REMOVED)\n",module=>"Log::Any",rating=>undef},{description=>"\nProvides a thin/lightweight OO interface for \$?, ...
1;
# ABSTRACT: List of modules mentioned by CPANRatings user stevenharyanto
__END__
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
=item L<Data::CompactDump>
Author: L<MILSO|https://metacpan.org/author/MILSO>
At the current form, simply too simplistic to be an alternative to Data::Dump or Data::Dumper. No support for blessed refs, filehandle/globs, circular references, and so on. Changes numbers to stringy numbers or vice versa.
<br><br>Currently also contains some bugs like for -1 (changes it to string), "\" (produces invalid dump, does not handle backslash yet currently),
<br><br>And Data::Dump's dump of {} and [] are currently more compact ;-)
<br><br>Need to be improved significantly first. But keep up the effort.
view release on metacpan or search on metacpan
lib/Acme/CPANModules/UnixCommandImplementations.pm view on Meta::CPAN
script => [qw/
addbib apply ar arch arithmetic asa awk banner base64 basename
bc bcd cal cat chgrp ching chmod chown clear cmp col colrm comm
cp cut date dc deroff diff dirname du echo ed env expand expr
factor false file find fish fmt fold fortune from glob grep
hangman head hexdump id install join kill ln lock look ls mail
maze mimedecode mkdir mkfifo moo morse nl od par paste patch pig
ping pom ppt pr primes printenv printf pwd rain random rev rm
rmdir robots rot13 seq shar sleep sort spell split strings sum
tac tail tar tee test time touch tr true tsort tty uname
lib/Acme/CPANModules/UnixCommandImplementations.pm view on Meta::CPAN
'x.command' => [qw/
addbib apply ar arch arithmetic asa awk banner base64 basename
bc bcd cal cat chgrp ching chmod chown clear cmp col colrm comm
cp cut date dc deroff diff dirname du echo ed env expand expr
factor false file find fish fmt fold fortune from glob grep
hangman head hexdump id install join kill ln lock look ls mail
maze mimedecode mkdir mkfifo moo morse nl od par paste patch pig
ping pom ppt pr primes printenv printf pwd rain random rev rm
rmdir robots rot13 seq shar sleep sort spell split strings sum
tac tail tar tee test time touch tr true tsort tty uname
lib/Acme/CPANModules/UnixCommandImplementations.pm view on Meta::CPAN
=over
=item L<PerlPowerTools>
Scripts: L<addbib>, L<apply>, L<ar>, L<arch>, L<arithmetic>, L<asa>, L<awk>, L<banner>, L<base64>, L<basename>, L<bc>, L<bcd>, L<cal>, L<cat>, L<chgrp>, L<ching>, L<chmod>, L<chown>, L<clear>, L<cmp>, L<col>, L<colrm>, L<comm>, L<cp>, L<cut>, L<date>...
=back
=head1 FAQ
view release on metacpan or search on metacpan
devdata/https_mojolicious.io_blog_2017_12_02_day-2-the-stash view on Meta::CPAN
<div class="post-content">
<section id="section-1">
<p>In Mojolicious, when processing a request and preparing a response one of the most important concepts is "the stash".
Since it is a non-blocking framework, your code can't use global variables to store any state during processing.
If you did and some other code were to run, it could very easily get cross-talk between requests.</p>
<p>The stash is the place you can store information while you process it.
It is just a simple hash reference that is attached to the controller object that is processing the request.
It lives and dies with that one transaction.</p>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/PERLANCAR/Advent/2014_12_06.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/day-6-think-globally-act-localizably-fileumask-localetie-unixsetuid.html] (retrieved on 2016-11-07). Visit the URL for the...
entries => [
{ module => "Data::Dump" },
{ module => "File::chdir" },
{ module => "File::umask" },
{ module => "Locale::Tie" },
lib/Acme/CPANModules/Import/PERLANCAR/Advent/2014_12_06.pm view on Meta::CPAN
=head1 DESCRIPTION
Modules mentioned in PERLANCAR's 2014 advent calendar article series (day 06).
This list is generated by extracting module names mentioned in [http://blogs.perl.org/users/perlancar/2014/12/day-6-think-globally-act-localizably-fileumask-localetie-unixsetuid.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/PerlAdvent/2014.pm view on Meta::CPAN
{ module => "Code::TidyAll::Plugin::PodSpell" },
{ module => "Code::TidyAll::Plugin::SVG" },
{ module => "Code::TidyAll::Plugin::SortLines" },
{ module => "Code::TidyAll::Plugin::SortLines::Naturally" },
{ module => "Code::TidyAll::Plugin::UniqueLines" },
{ module => "File::Zglob" },
{ module => "Perl::Tidy" },
{ module => "BPM::Engine" },
{ module => "DBD::SQLite" },
{ module => "Devel::Monitor" },
{ module => "IO::Socket::SSL" },
lib/Acme/CPANModules/Import/PerlAdvent/2014.pm view on Meta::CPAN
=item * L<Code::TidyAll::Plugin::SortLines::Naturally>
=item * L<Code::TidyAll::Plugin::UniqueLines>
=item * L<File::Zglob>
=item * L<Perl::Tidy>
=item * L<BPM::Engine>
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $self->{admin}->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
view release on metacpan or search on metacpan
t/01_hello.t view on Meta::CPAN
ok(-e $dirname, "Directory $dirname exists");
my $exit = system(@cmd);
ok($exit == 0, "Command @cmd exited with 0");
my @files = glob("$tempdir/*");
for my $file (@files) {
ok(!($file =~ / /), "File $file does not contain spaces");
}
done_testing();
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
use File::Spec::Functions;
my $class_std_dir = (reverse glob (catdir(updir(), "Class-Std*")))[0];
my $file = catfile $class_std_dir, "README";
if (-d $class_std_dir && -f $file && open R, $file) {
local $/;
my $readme = <R>;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $self->{admin}->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $admin->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
view release on metacpan or search on metacpan
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
{ plural => 0, splural => 1, name => 'the Republican party', shortname => 'the Republicans' },
{ plural => 0, splural => 1, name => 'the Democrat party', shortname => 'the Democrats' },
{ plural => 0, name => 'the New World Order' },
{ plural => 1, name => 'the Communists' },
{ plural => 0, name => 'the Shadow Government' },
{ plural => 0, name => 'the global financial elite' },
{ plural => 0, name => 'the global scientific elite' },
{ plural => 0, name => 'Big Pharma' },
{ plural => 0, name => 'Big Tobacco' },
{ plural => 1, splural => 1, name => 'the lizard people', shortname => 'the lizardmen' },
{ plural => 1, name => 'the grey aliens', shortname => 'the aliens' },
{ plural => 1, name => 'the big Hollywood studios', shortname => 'Hollywood' },
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
}
}
push @x, (
"the Wikipedia entry for $r keeps getting edited by $bad",
"$bad keeps buying $r secretly on the stock market",
"the global supply of $r is at an all time low",
"have you ever seen $r for real with your own eyes",
"$r $r_are so damn expensive",
"$r $r_are really rare",
"Alex Jones says $bad $are linked to $r",
);
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
"$badevent was orchestrated by the US government";
},
sub {
$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';
},
view release on metacpan or search on metacpan
lib/Acme/Constructor/Pythonic.pm view on Meta::CPAN
}
sub import
{
my $me = shift;
my $globals = ref($_[0]) eq 'HASH' ? shift() : {};
unless (ref($globals->{into}))
{
my @caller = caller;
$globals->{into_file} = $caller[1] unless exists $globals->{into_file};
$globals->{into_line} = $caller[2] unless exists $globals->{into_line};
}
unshift @_, $me, $globals;
goto \&Exporter::Tiny::import;
}
my %_CACHE;
sub _exporter_expand_sub
{
my $me = shift;
my ($name, $args, $globals) = @_;
# We want to be invisible to Carp
$Carp::Internal{$me} = 1;
# Process incoming arguments, providing sensible defaults.
my $module = $name;
my $class = defined($args->{class}) ? $args->{class} : $name;
my $ctor = defined($args->{constructor}) ? $args->{constructor} : 'new';
my $alias = defined($args->{alias}) ? $args->{alias} : $name;
my $req = exists($args->{no_require}) ? !$args->{no_require} : !$globals->{no_require};
# Doesn't really make sense to include a package name
# as part of the alias. We were just lazy in initializing
# the default above.
$alias = $1 if $alias =~ /::(\w+)\z/;
lib/Acme/Constructor/Pythonic.pm view on Meta::CPAN
# Compile a custom coderef instead of closing
# over variables.
my $code = join("\n",
sprintf('package %s;', $me),
defined($globals->{into_line}) && defined($globals->{into_file})
? sprintf('#line %d "%s"', @$globals{qw(into_line into_file)})
: (),
sprintf('sub {'),
$req
? sprintf('Module::Runtime::use_module(qq[%s]);', quotemeta($module))
: (),
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $self->{admin}->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
view release on metacpan or search on metacpan
}
closedir(COWDIR);
}
print "Cow files installed as modules:\n";
for my $d (@INC) {
my @files = glob("$d/Acme/Cow/*.pm");
for my $file (@files) {
next if (basename($file) eq "TextBalloon.pm");
print basename($file, ".pm"), "\n";
}
}
view release on metacpan or search on metacpan
lib/Acme/DRM.pm view on Meta::CPAN
use vars qw(@ISA @EXPORT_OK $VERSION);
=head1 NAME
Acme::DRM - Library providing cryptographic capabilities especially suited for Digital Rights Management. Protects against Pirates. May increase global warming. Note: Not guaranteed to protect against Pirates or increase global warming.
=head1 VERSION
Version 0.03
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if (
defined( my $cur = _version_check( _load($mod), $arg ||= 0 ) ) )
{
print "loaded. ($cur" . ( $arg ? " >= $arg" : '' ) . ")\n";
push @Existing, $mod => $arg;
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
else {
print "missing." . ( $arg ? " (would need $arg)" : '' ) . "\n";
push @required, $mod => $arg;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
) =~ /^[Yy]/
)
)
{
push( @Missing, @required );
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
elsif ( !$SkipInstall
and $default
and $mandatory
and
_prompt( qq{==> The module(s) are mandatory! Really skip?}, 'n', )
=~ /^[Nn]/ )
{
push( @Missing, @required );
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
else {
$DisabledTests{$_} = 1 for map { glob($_) } @tests;
}
}
$UnderCPAN = _check_lock(); # check for $UnderCPAN
inc/Module/AutoInstall.pm view on Meta::CPAN
}
$args{test}{TESTS} ||= 't/*.t';
$args{test}{TESTS} = join( ' ',
grep { !exists( $DisabledTests{$_} ) }
map { glob($_) } split( /\s+/, $args{test}{TESTS} ) );
my $missing = join( ',', @Missing );
my $config =
join( ',', UNIVERSAL::isa( $Config, 'HASH' ) ? %{$Config} : @{$Config} )
if $Config;
view release on metacpan or search on metacpan
# the following statements are equivalent
my $ref = bless $obj , undef;
my $ref = damn $obj;
B<NOTE:> The modification of C<bless> is lexically scoped to the current
package, and is I<not> global.
=back
view release on metacpan or search on metacpan
lib/Acme/Data/Dumper/Extensions.pm view on Meta::CPAN
=head1 EXPORTS
=head2 C<$_new_with_defaults>
This is a prototype function for construcing a Data::Dumper instance without
being prone to leak from other people using the global values.
At the time of this writing, if you need perfect consistency from Data::Dumper
in widely used code, you by necessity have to know every version of
Data::Dumper that exists, and know what the default values are of various
arguments, in order to revert them to your "known good" state if 3rd party
lib/Acme/Data/Dumper/Extensions.pm view on Meta::CPAN
Getting an instance of a Data::Dumper object before anyone tweaks those values
would also work, but trying to bet on getting loaded and getting an instance
before anyone else does is just foolhardy
Additionally, due to how C<< ->Values >> works, having a global instance of
Data::Dumper can lend itself to a memory leak and you have to take additional
care to make sure you free values passed to it.
=head3 Syntax
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $admin->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
view release on metacpan or search on metacpan
lib/Acme/DeepThoughts.pm view on Meta::CPAN
I'd like to be buried Indian-style, where they put you up on a high rack, above the ground. That way, you could get hit by meteorites and not even feel it.
If I lived back in the Wild West days, instead of carrying a six-gun in my holster, I'd carry a soldering iron. That way, if some smart-aleck cowboy said something like "Hey, look. He's carrying a soldering iron!" and started laughing, and everybody ...
I bet when the Neanderthal kids would make a snowman, someone would always end up saying, "Don't forget the thick, heavy brows." Then they would all get embarrassed because they remembered they had the big hunky brows too, and they'd get mad and eat ...
There should be a detective show called 'Johnny Monkey'. That way every week a criminal could say, "I ain't gonna get caught by no monkey," but then he would, and I don't think I'd ever get tired of that.
Fear can sometimes be a useful emotion. For instance, let's say you're an astronaught on the moon and you fear that your partner has been turned into Dracula. The next time he goes out for the moon pieces, wham! You just slam the door behind him and ...
Too bad you can't buy a voodoo globe so that you could make the earth spin real fast and freak everybody out.
The people in the village were real poor, so none of the children had any toys. But this one little boy had gotten an old enema bag and filled it with rocks, and he would go around and whap the other children across the face with it. Man, I think my ...
I wish I had a Kryptonite cross, because then you could keep both Dracula AND Superman away.
I don't think I'm alone when I say I'd like to see more and more planets fall under the ruthless domination of our solar system.
Dad always thought laughter was the best medicine, which I guess is why several of us died of tuberculosis.
Maybe in order to understand mankind, we have to look at the word itself: "Mankind". Basically, it's made up of two separate words - "mank" and "ind". What do these words mean? It's a mystery, and that's why so is mankind.
view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use File::Which::Patch::Hide;
use File::Wildcard;
use File::Write::Rotate;
use File::Xcopy;
use File::XDG;
use File::Zglob;
use Filter;
use Filter::Arguments;
use Filter::BoxString;
use Filter::CBC;
use Filter::Cleanup;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use lib::byversion;
use lib::deep;
use lib::filter;
use lib::findbin;
use lib::gitroot;
use lib::glob;
use lib::http;
use lib::if::dev;
use lib::ini;
use libintl::perl;
use libnet;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Variable::OnDestruct::Scoped;
use Variable::Strongly::Typed::v;
use Variable::Temp;
use Variable::Watcher;
use Var::Pairs;
use vars::global;
use vars::i;
use VCI;
use VCS;
use VCS::CMSynergy;
use VCS::CSync;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use WinAPI::ToolHelp;
use Win::App::which;
use Win::ASP;
use Win::ASP::DB;
use Win::ASP::Extras;
use Win::Autoglob;
use Win::AutoItX;
use Win::Backup::Robocopy;
use Win::CaptureIE;
use Win::Capture::zip;
use Win::CheckDotNet;
view release on metacpan or search on metacpan
"add_tarball_name" : 0,
"finders" : [
":ExecFiles",
":InstallModules"
],
"global" : 1,
"skip_version_provider" : 0
},
"Dist::Zilla::Plugin::RewriteVersion::Transitional" : {}
},
"name" : "@Author::ETHER/RewriteVersion::Transitional",
"Dist::Zilla::Plugin::BumpVersionAfterRelease" : {
"finders" : [
":ExecFiles",
":InstallModules"
],
"global" : 1,
"munge_makefile_pl" : 1
},
"Dist::Zilla::Plugin::BumpVersionAfterRelease::Transitional" : {}
},
"name" : "@Author::ETHER/BumpVersionAfterRelease::Transitional",
view release on metacpan or search on metacpan
name => 'Acme-Ehoh',
module_name => 'Acme::Ehoh',
allow_pureperl => 0,
script_files => [glob('script/*'), glob('bin/*')],
c_source => [qw()],
PL_files => {},
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
view release on metacpan or search on metacpan
name => 'Acme-EvaTitlenize',
module_name => 'Acme::EvaTitlenize',
allow_pureperl => 0,
script_files => [glob('script/*'), glob('bin/*')],
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
);
if (-d 'share') {
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $admin->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
view release on metacpan or search on metacpan
lib/Acme/EyeDrops.pm view on Meta::CPAN
write, write, write;
delete $_{'!'}, delete $"{"@!"}, delete $@{'*'}; # must stop cursing
use less 'characters', $durnit;
read THE, $current, $solution;
not 2, $bad;
delete $white_spaces{''} until $program == glob;
for( $all, my @troubles )
{
unlink 1, $character;
}
ARGH:
lib/Acme/EyeDrops.pm view on Meta::CPAN
london Haiku "A Day in The Life of a London Perl Monger"
map_australia Map of Australia
map_italy Map of Italy
map_japan Map of Japan
map_uk Map of United Kingdom and Ireland
map_world1 World globe, Asian view
map_world2 World globe, African view
map_world3 World globe, American view
merlyn Just another Perl hacker, aka Randal L Schwartz
mongers Perl Mongers logo
moose A moose
moosecamel A moose and a camel (modelled after http://irclog.perlgeek.de)
mosquito A mosquito
view release on metacpan or search on metacpan
t/TestSuite.pm view on Meta::CPAN
our @input = @inbase;
$opts{source} = \&AFSMTS_shift;
AFSMTS_wrap;
Quiet generic implementation of I<{source}> code.
Uses script globals:
=over
=item I<@inbase>
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $self->{admin}->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
view release on metacpan or search on metacpan
"add_tarball_name" : 0,
"finders" : [
":ExecFiles",
":InstallModules"
],
"global" : 0,
"skip_version_provider" : 0
},
"Dist::Zilla::Role::Version::Sanitize" : {
"$Dist::Zilla::Role::Version::Sanitize::VERSION" : "0.002003",
"mantissa" : "6",
"Dist::Zilla::Plugin::BumpVersionAfterRelease" : {
"finders" : [
":ExecFiles",
":InstallModules"
],
"global" : 0,
"munge_makefile_pl" : 1
}
},
"name" : "@Author::KENTNL/BumpVersionAfterRelease",
"version" : "0.015"