view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

	my $cwd  = Cwd::cwd();
	my $sym  = "${who}::AUTOLOAD";
	$sym->{$cwd} = sub {
		my $pwd = Cwd::cwd();
		if ( my $code = $sym->{$pwd} ) {
			# delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
		unshift @_, ( $self, $1 );
		goto &{$self->can('call')} unless uc($1) eq $1;

 view release on metacpan or  search on metacpan

dist.ini.meta  view on Meta::CPAN

twitter_extra_hash_tags = #mbti
-remove = MinimumPerl
; auto_prereqs_skip = File::Find

[Prereqs]
Acme::CPANAuthors = 0.24 ; For parent group with no ->authors
perl = 5.008

; authordep HTTP::Tiny = 0
; authordep Parse::CPAN::Whois = 0
; authordep Acme::CPANAuthors::Factory = 0

 view release on metacpan or  search on metacpan

lib/Acme/CPANAuthors/Malaysian.pm  view on Meta::CPAN

    The Artistic License 2.0 (GPL Compatible)

=head1 SEE ALSO

L<Acme::CPANAuthors|Acme::CPANAuthors> - The parent module that handles all.

L<Acme::CPANAuthors::Indonesian|Acme::CPANAuthors::Indonesian> - Our neighbouring country.

=cut

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

	my $cwd  = Cwd::cwd();
	my $sym  = "${who}::AUTOLOAD";
	$sym->{$cwd} = sub {
		my $pwd = Cwd::cwd();
		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

	my $cwd  = Cwd::getcwd();
	my $sym  = "${who}::AUTOLOAD";
	$sym->{$cwd} = sub {
		my $pwd = Cwd::getcwd();
		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.

 view release on metacpan or  search on metacpan

lib/Acme/CPANLists/Import/NEILB/ModuleLoading.pm  view on Meta::CPAN

package Acme::CPANLists::Import::NEILB::ModuleLoading;

our $DATE = '2016-02-21'; # DATE
our $VERSION = '0.04'; # VERSION

our @Module_Lists = ({description=>"This list is generated by extracting module names mentioned in the article [http://neilb.org/reviews/module-loading.html]. For the full article, visit the URL.",entries=>[{module=>"Acme::require::case"},{module=>"A...

1;
# ABSTRACT: Modules that (can) load other modules (2013)

__END__

lib/Acme/CPANLists/Import/NEILB/ModuleLoading.pm  view on Meta::CPAN

=item * L<lib::require::all>

=item * L<only>

=item * L<parent>

=item * L<pkg>

=item * L<provide>

 view release on metacpan or  search on metacpan

lib/Acme/CPANModules/DumpingDataForDebugging.pm  view on Meta::CPAN

particularly with circular references. But with interlinked references like
trees, Data::Dumper might be more helpful in showing you which references get
mentioned where. For example this data:

    $tree = {children=>[{children=>[{}]}, {children=>[]}]};
    $tree->{children}[0]{parent}=$tree;
    $tree->{children}[1]{parent}=$tree;
    $tree->{children}[0]{children}[0]{parent} = $tree->{children}[0];

Data::Dump will produce:

    do {
       my $a = {
         children => [
          { children => [{ parent => 'fix' }], parent => 'fix' },
          { children => [], parent => 'fix' },
        ],
      };
      $a->{children}[0]{children}[0]{parent} = $a->{children}[0];
      $a->{children}[0]{parent} = $a;
      $a->{children}[1]{parent} = $a;
      $a;
    }

while Data::Dumper will produce:

    $VAR1 = {
              'children' => [
                              {
                                'children' => [
                                                {
                                                  'parent' => $VAR1->{'children'}[0]
                                                }
                                              ],
                                'parent' => $VAR1
                              },
                              {
                                'parent' => $VAR1,
                                'children' => []
                              }
                            ]
            };

lib/Acme/CPANModules/DumpingDataForDebugging.pm  view on Meta::CPAN

particularly with circular references. But with interlinked references like
trees, Data::Dumper might be more helpful in showing you which references get
mentioned where. For example this data:

 $tree = {children=>[{children=>[{}]}, {children=>[]}]};
 $tree->{children}[0]{parent}=$tree;
 $tree->{children}[1]{parent}=$tree;
 $tree->{children}[0]{children}[0]{parent} = $tree->{children}[0];

Data::Dump will produce:

 do {
    my $a = {
      children => [
       { children => [{ parent => 'fix' }], parent => 'fix' },
       { children => [], parent => 'fix' },
     ],
   };
   $a->{children}[0]{children}[0]{parent} = $a->{children}[0];
   $a->{children}[0]{parent} = $a;
   $a->{children}[1]{parent} = $a;
   $a;
 }

while Data::Dumper will produce:

 $VAR1 = {
           'children' => [
                           {
                             'children' => [
                                             {
                                               'parent' => $VAR1->{'children'}[0]
                                             }
                                           ],
                             'parent' => $VAR1
                           },
                           {
                             'parent' => $VAR1,
                             'children' => []
                           }
                         ]
         };

 view release on metacpan or  search on metacpan

devdata/davidgaramond  view on Meta::CPAN

<script type="text/javascript">
  (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
  (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
  m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
  })(window,document,'script','//www.google-analytics.com/analytics.js','ga');

  ga('create', 'UA-50555-8', 'auto');
  ga('require', 'linkid', 'linkid.js');
  ga('set', 'dimension1', window.location.protocol);

 view release on metacpan or  search on metacpan

lib/Acme/CPANModules/Import/CPANRatings/User/perlancar.pm  view on Meta::CPAN

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-29'; # DATE
our $DIST = 'Acme-CPANModules-Import-CPANRatings-User-perlancar'; # DIST
our $VERSION = '0.002'; # VERSION

our $LIST = {description=>"This list is generated by scraping CPANRatings (cpanratings.perl.org) user page.",entries=>[{description=>"\nI'm not sure this really "befits a ::Tiny distribution" just because it's a thin wrapper of something. P...

1;
# ABSTRACT: List of modules mentioned by CPANRatings user perlancar

__END__

lib/Acme/CPANModules/Import/CPANRatings/User/perlancar.pm  view on Meta::CPAN

=item L<PPR>

Author: L<DCONWAY|https://metacpan.org/author/DCONWAY>

The coolest thing since PPI. Now every time someone still says that one can't parse HTML or balanced parentheses using regex, you can just point him to this module to shut him up (although, if he had said that one I<shouldn't>...).
<br><br>Also now you can say that Perl is a simple language that is easy to learn. Why? Well, it's so simple you can parse the whole syntax with a single regex.
<br><br>


=item L<DBIx::Compare>

lib/Acme/CPANModules/Import/CPANRatings/User/perlancar.pm  view on Meta::CPAN

=item L<WordPress::XMLRPC>

Author: L<IGIBBS|https://metacpan.org/author/IGIBBS>

Still works, partially, but in general out of date. For example, to get post the deprecated metaWeblog.getPost API method is still used instead of the newer wp.getPost call (which understandably is only introduced in WordPress 3.4, while this module ...
<br><br>Luckily, performing XMLRPC request directly is easy enough. Just use XMLRPC::Lite and peruse the Wordpress documentation here: <a href="https://codex.wordpress.org/XML-RPC_WordPress_API" rel="nofollow">codex.wordpress.org/XML-RPC_WordPress......


=item L<Text::Levenshtein::Flexible>

 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<Mo>

Author: L<TINITA|https://metacpan.org/author/TINITA>

A great alternative when Moo is a bit too much for you. Useful for scripts that must start really fast. Mind you, Moo loads about 5K lines of code and more than a dozen files, all of which takes +- 10ms on my computer. Mo on the other hand is only a ...
<br><br>I use this for a very lightweight parent class. A richer subclass then uses Moo.
<br><br>Isn't it great that we have the choices and upgrade path from the very minimal Mo, to Moo for normal cases, to Moos and Moose for even richer (but heavier) alternatives. Truly TIMTOWTDI!
<br>


=item L<App::ChangeShebang>

lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm  view on Meta::CPAN

Author: L<CINDY|https://metacpan.org/author/CINDY>

At first I thought, hey, cute trick. But then Perl already has:
<br><br>print &quot;You could use expr like this: ${(2**3)}.\n&quot;;
<br><br>print &quot;Or you could use ident ${( 'a' . 'b' )} as well.\n&quot;;
<br><br>So you're trading a backslash and a couple of parentheses against having to depend on a non-core module and making your code reader raise her eyebrow when she first sees your code. Pick your poison :-)
<br><br>I wonder if this belongs in Acme::
<br><br>On the other hand and slightly off-topic, a module that can do Perl6-style interpolation (lexically) would be cool, I think:
<br><br>$s = &quot;perl${(6-1)}-style interpolation&quot;;
<br>
{

lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm  view on Meta::CPAN

Author: L<RHANDOM|https://metacpan.org/author/RHANDOM>

Nice idea. Perl should really have included something like this (analogous to warnings.pm for -w).
<br><br>However, for something as security-related as tainting, I personally think the interface is a bit too complex and not robust enough. There are too many pitfalls where one can fail to turn on tainting properly.
<br><br>* First, user must remember to import $TAINT, or doing '$TAINT = 1' has no effect. There's no error/warning for this mistake.
<br><br>* Then, if one also forgets to import taint_start or taint_start, then doing 'taint_start' or 'taint_env' (without parentheses) will do nothing. Also does not produce an error/warning except under strict mode.
<br><br>* One must remember to 'taint_env' I<after> 'taint_start'. There's no warning/error if one does the opposite.
<br><br>I'd rather have something like this:
<br><br>{
<br><br>use tainting;
<br><br>... code is running in taint mode ...

lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm  view on Meta::CPAN

=item L<Sub::Mage>

Author: L<BRADH|https://metacpan.org/author/BRADH>

Since the first release, there are 13 subsequent releases in total. What are the changes between releases? No idea, the author doesn't bother to update Changes (and no public repo is listed). Apparently all his other modules are also like this. Not v...
<br><br>UPDATE 2011-11-22: I see that this has been rectified by the author, there is now Changes entry for each new release. Cool, thanks.
<br>


=item L<relative_lib>

lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm  view on Meta::CPAN

<br>


=item L<App::FileTools::BulkRename>

Disclaimer: I maintain a &quot;competitor&quot; module, App::perlmv. Apparently a lot of people, like me, likes to rename files using Perl. And the examples in the documentation are about renaming movie files too, something which I do a lot :)
<br><br>I applaud Stirling Westrup for taking a legacy script and improving it. May we have a lot of ideas to borrow from each other.
<br><br>This is an early release, there are quite a few things I find lacking. Most importantly, I suggest adding a test suite as soon as possible. The filesystem differences can be tricky, and CPAN Testers can help providing feedback.
<br><br>Keep up the good work.

lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm  view on Meta::CPAN

This review mostly compares Log::Handler with Log4perl, which is a mature and one of the most popular logging frameworks.
<br><br>I think Log::Handler's interface is much simpler, nicer, more Perlish than Log4perl. It's a bit similar to Log::Any::App, which I created just because I hate Log4perl configuration.
<br><br>There is a unique concept of maxlevel not normally found in other frameworks, though it can be emulated in other frameworks using filters.
<br><br>At a quick glance, the speed is around twice that of Log::Log4perl, so I'll say it's on the low-end side (there are other much faster logging modules, but anyway speed is not an issue to most people).
<br><br>It currently lacks sublogger (hierarchical categorization and adjustable/automatic appending of subcategory to its parent), so it cannot be used to replace Log4perl in most cases as that's one of the main feature of Log4perl. Which is a pity ...


Rating: 8/10

=item L<Log::Fast>

 view release on metacpan or  search on metacpan

lib/Acme/CPANModules/Roles.pm  view on Meta::CPAN

our $LIST = {
    summary => "List of libraries for doing roles with Perl",
    description => <<'_',

Roles are a way to write classes by composing them from simpler components,
instead of using inheritance from parent classes.

The Perl core does not provide a role mechanism for you, but there are several
role frameworks you can choose in Perl. This list orders them from the most
lightweight.

lib/Acme/CPANModules/Roles.pm  view on Meta::CPAN

This document describes version 0.002 of Acme::CPANModules::Roles (from Perl distribution Acme-CPANModules-Roles), released on 2023-10-31.

=head1 DESCRIPTION

Roles are a way to write classes by composing them from simpler components,
instead of using inheritance from parent classes.

The Perl core does not provide a role mechanism for you, but there are several
role frameworks you can choose in Perl. This list orders them from the most
lightweight.

 view release on metacpan or  search on metacpan

devdata/https_mojolicious.io_blog_2017_12_01_day-1-getting-started  view on Meta::CPAN

      </script>

    <script>
      (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
      (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
      m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
      })(window,document,'script','//www.google-analytics.com/analytics.js','ga');
      ga('create', 'UA-110569629-1', 'auto');
      ga('send', 'pageview');
    </script>

 view release on metacpan or  search on metacpan

devdata/https_mojolicious.io_blog_2018_12_01_welcome-mojoconf-recap_  view on Meta::CPAN

      </script>

    <script>
      (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
      (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
      m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
      })(window,document,'script','//www.google-analytics.com/analytics.js','ga');
      ga('create', 'UA-110569629-1', 'auto');
      ga('send', 'pageview');
    </script>

 view release on metacpan or  search on metacpan

lib/Acme/CPANModules/Import/NEILB/ModuleLoading.pm  view on Meta::CPAN

                   { module => "all" },
                   { module => "autouse" },
                   { module => "base" },
                   { module => "lib::require::all" },
                   { module => "only" },
                   { module => "parent" },
                   { module => "pkg" },
                   { module => "provide" },
                   { module => "relative" },
                   { module => "superclass" },
                   { module => "syntax" },

lib/Acme/CPANModules/Import/NEILB/ModuleLoading.pm  view on Meta::CPAN

=item * L<lib::require::all>

=item * L<only>

=item * L<parent>

=item * L<pkg>

=item * L<provide>

 view release on metacpan or  search on metacpan

devdata/http_advent.perldancer.org_2018_13  view on Meta::CPAN

  _gaq.push(['_trackPageview']);

  (function() {
    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
  })();

</script>
</body>
</html>

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

	my $cwd  = Cwd::cwd();
	my $sym  = "${who}::AUTOLOAD";
	$sym->{$cwd} = sub {
		my $pwd = Cwd::cwd();
		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
		my $method = $1;
		if ( uc($method) eq $method ) {

 view release on metacpan or  search on metacpan

lib/Acme/CoC/Util.pm  view on Meta::CPAN

package Acme::CoC::Util;
use strict;
use utf8;
use warnings;

use parent qw/Exporter/;
use Smart::Args;
use Moose;

our @EXPORT = qw/
    eq_any

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

	my $cwd  = Cwd::cwd();
	my $sym  = "${who}::AUTOLOAD";
	$sym->{$cwd} = sub {
		my $pwd = Cwd::cwd();
		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

    my $cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if ( my $code = $sym->{$pwd} ) {
            # delegate back to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

	my $cwd  = Cwd::cwd();
	my $sym  = "${who}::AUTOLOAD";
	$sym->{$cwd} = sub {
		my $pwd = Cwd::cwd();
		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
		my $method = $1;
		if ( uc($method) eq $method ) {

 view release on metacpan or  search on metacpan

t/text/dream.txt  view on Meta::CPAN

Oracle Database 11g具有在資料庫中儲存大型物件(LOBs)的新功能，這些物件包括影像、大型純文字物件或一些進階的資料類型，如XML、醫學成象資料和三度空間物件。Oracle快速檔案(Oracle Fast Files)å¥...

在Oracle Database 11g中，XML DB的性能獲得了提升，XML DB是Oracle Database的一個套件，可幫助客戶以本機模式儲存和操控XML資料。Oracle Database 11g增加了對二元(binary) XML資料的支持，現在客戶可以選æ“...

Oracle Database 11g進一步增強了Oracle Database的安全性。這個新版資料庫增強了Oracle透明資料加密功能(Oracle Transparent Data Encryption)，將這種功能擴展到了欄位加密之外。Oracle Database 11g具有表空間åŠ...

Oracle Database 11g增加了查詢結果快取(Query Result Caches)等新功能。透過快取和重復使用經常調用的資料庫查詢以及資料庫和應用層的功能，查詢結果快取功能改善了應用的效能和可擴充性。資料...

Oracle Database 11g提供多種開發工具供開發人員選擇，它提供的簡化應用開發流程可以充分利用Oracle Database 11g的關鍵功能，這些關鍵功能包括︰客戶端快取(Client Side Caching)、提升應用速度的二å…...

 view release on metacpan or  search on metacpan

lib/Acme/Curses/Marquee/Extensions.pm  view on Meta::CPAN

Inherits all methods of L<Acme::Curses::Marquee>, except for C<new>,
which is among those outlined below.

This module also performs a little slight of hand to remove the
parent class's dependency on a figlet binary (in your path).

=head2 new( I<%params> )

=over

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

    my $cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if ( my $code = $sym->{$pwd} ) {
            # delegate back to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

    my $cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if ( my $code = $sym->{$pwd} ) {
            # delegate back to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;

 view release on metacpan or  search on metacpan

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

A wise man would pick up a grain of sand and envision the entire universe, a stupid man would role in seaweed, stand up, and say, "Look, I'm vine man."
Instead of crucifying people on crosses, why not on windmills?  That way, they get the pain, and the dizziness.
When I found the skull in the woods, the first thing I did was call the police.  But then I got curious about it.  I picked it up, and started wondering who this person was, and why he had deer horns.
If you work on a lobster boat, sneaking up behind people and pinching them is probably a joke that gets old real fast.
If i was being executed by lethal injection, I'd clean up my cell real neat.  Then when they came to get me, I'd say, "Injection?  I thought you said inspection."  Then maybe they might end up feeling real bad, and maybe i could get out of it.
I remember one day I was at Grandpa's farm and I asked him about sex. He sort of smiled and said, "Maybe instead of telling you what sex is, why don't we go out to the horse pasture and I'll show you." So we did, and there on the ground were my paren...
You know what would be the most terrifying thing that could ever happen to a flea? Getting caught inside a watch somehow. You don't even care, do you.
I remember when I was in the army, we had the toughest drill sergeant in the world. He'd get right up next to your face and yell, and if you didn't have the right answers, mister, you'd be peeling potatoes or changing the latrine. Hey, wait. I wasn't...
Instead of a trap door, what about a trap window? The guy looks out it, and if he leans too far, he falls out. Wait. I guess that's like a regular window.
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.

 view release on metacpan or  search on metacpan

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

use Class::Tiny::Antlers;
use Class::Tiny::Chained;
use Class::Tiny::Immutable;
use Class::TLB;
use Class::Trait;
use Class::TransparentFactory;
use Class::Trigger;
use Class::Type::Enum;
use Class::Unique;
use Class::Unload;
use Class::User::DBI;

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

use HTTP::Body::MultiPart::Extend;
use HTTP::Body::Pairs;
use HTTP::Browscap;
use HTTP::BrowserDetect;
use HTTP::BrowserDetect::isRobot;
use HTTP::Cache::Transparent;
use HTTP::Caching;
use HTTP::CDN;
use HTTP::CheckProxy;
use HTTP::ClickHouse;
use HTTP::ClickHouse::Base;

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

use Plack::Session::Store::Echo;
use Plack::Session::Store::KyotoTycoon;
use Plack::Session::Store::MongoDB;
use Plack::Session::Store::Redis;
use Plack::Session::Store::RedisFast;
use Plack::Session::Store::Transparent;
use Plack::Test::Agent;
use Plack::Test::AnyEvent;
use Plack::Test::ExternalServer;
use Plack::Util::Load;
use Plagger;

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

use POE::Filter::Slim::CLI;
use POE::Filter::Snort;
use POE::Filter::SSL;
use POE::Filter::Stomp;
use POE::Filter::ThruPut;
use POE::Filter::Transparent::SMTP;
use POE::Filter::XML;
use POE::Filter::XML::RPC;
use POE::Filter::Zlib;
use POE::Framework::MIDI;
use POE::Future;

 view release on metacpan or  search on metacpan

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

	?
	  do {
	    my $s = "";
	    my $d = PPI::Document->new(\$src);
	    foreach my $node ( @{ $d->find('PPI::Statement') } ){
		next unless $node->parent == $d;
		if( $node->class eq 'PPI::Statement::Compound' ){
		  $s .= "$print q{COMPOUND STATEMENTS NOT SUPPORTED IN lines MODE\n};\n" . $node->content;
		}elsif( $node->class eq 'PPI::Statement::Sub' ){
		  $s .= "$print q{SUB STATEMENTS NOT SUPPORTED IN lines MODE\n};\n" . $node->content;
		}else{

 view release on metacpan or  search on metacpan

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

}

## use critic (RequireUseStrict)
use strict;
use warnings;
use parent 'Exporter';
use utf8;

use Carp ();

our @EXPORT = ('o_O', 'ಠ_ಠ');

 view release on metacpan or  search on metacpan

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

package Acme::EnclosedChar;
use strict;
use warnings;
use utf8;
use parent qw/Exporter/;
our @EXPORT_OK = qw/
    enclose
    enclose_katakana
    enclose_week_ja
    enclose_kansuji

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

    my $cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if ( my $code = $sym->{$pwd} ) {
            # delegate back to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;