Perl Advent Calendar 2011

should

  return $self-&gt;process_foos( $arg-&gt;() )
    if ! blessed $arg and reftype $arg eq &#39;CODE&#39;;
  ~$ rename -n &#39;$_ = ucfirst; s/([0-9]+)/sprintf &quot;%02u&quot;, $1/e;&#39; *.pdf
  rename file1.pdf File01.pdf
  rename file10.pdf File10.pdf
  rename file18.pdf File18.pdf
  rename file2.pdf File02.pdf
  ~$ rename -n &#39;$_ = ucfirst; s/ *([0-9]+)/sprintf &quot; %02u&quot;, $1/e;&#39; *.pdf
  rename file1.pdf File 01.pdf
  rename file10.pdf File 10.pdf
  rename file18.pdf File 18.pdf
  rename file2.pdf File 02.pdf
  ~$ perldoc MooseX::Iterator
  No documentation found for &quot;MooseX::Iterator&quot;.
  ~$ cpandoc MooseX::Iterator
  [ ... and the pager runs, showing me the documentation! ]
  ~$ cpandoc -m Some::Stupid::Module
  source ~/perl5/perlbrew/etc/bashrc
  perlbrew install perl-5.14.2 -Dusethreads --as threaded-5.14.2

  perlbrew install perl-5.14.2 -DDEBUGGING --as debug-5.14.2
  perlbrew install -j 5 perl-5.14.2
  &lt;rjbs&gt; Anyway, just try it with Carp::Always.
  &lt;dude&gt; What&#39;s Carp::Always?
  &lt;rjbs&gt; ????????
  func is unimplemented at program.pl line 4.
  func is unimplemented at program.pl line 8
  func is unimplemented at program.pl line 4
    Common::func() called at program.pl line 8
    Program::minor_system() called at program.pl line 9
    Program::subroutine(123) called at program.pl line 12
    Program::run(&#39;Program&#39;) called at program.pl line 16
  func is unimplemented at program.pl line 4
    Common::func() called at program.pl line 8
    Program::minor_system() called at program.pl line 9
    Program::subroutine(123) called at program.pl line 12
    Program::run(&#39;Program&#39;) called at program.pl line 4
    Common::func() called at program.pl line 8
    Program::minor_system() called at program.pl line 9
    Program::subroutine(123) called at program.pl line 12
    Program::run(&#39;Program&#39;) called at program.pl line 16
  &lt;Alice&gt; Who the heck installed WWW::AdventCalendar on the server?
  &lt;Bob&gt;   I did.  Why?
  &lt;Alice&gt; We&#39;re trying to set up a new server just like it, and we found
          this installed, and it wants all kinds of crazy prerequisites.
          Why on Earth do we need this in production?
  &lt;Bob&gt;   Oh, we don&#39;t.  I just wanted to play around with it.
  &lt;Alice&gt; ...so you installed it globally?
  &lt;Bob&gt;   Well, how else was I going to play with it?
  ! Can&#39;t write to /usr/pkg/lib/perl5/site_perl/5.8.0 and /usr/pkg/lib/perl5/site_perl/bin:
  ! Installing modules to /export/home/rjbs/perl5
  ! To turn off this warning, you have to do one of the following:
  !   - run me as a root or with --sudo option
  !     (to install to /usr/pkg/lib/perl5/site_perl/5.8.0 and /usr/pkg/lib/perl5/site_perl/bin)
  !   - run me with --local-lib option e.g. cpanm --local-lib=~/perl5
  !   - Set PERL_CPANM_OPT=&quot;--local-lib=~/perl5&quot; environment variable (in your shell rc file)
  !   - Configure local::lib in your shell to set PERL_MM_OPT etc.
  ~$ ll local/already-there
  Attempting to create directory /Users/rjbs/local/already-there

  ~$ ll local/second-lib
  Attempting to create directory /Users/rjbs/local/second-lib

  ~$ perl -Mlocal::lib=local/three
  Attempting to create directory /Users/rjbs/local/three
  export PERL_LOCAL_LIB_ROOT=&quot;$PERL_LOCAL_LIB_ROOT:/Users/rjbs/local/three&quot;;
  export PERL_MB_OPT=&quot;--install_base /Users/rjbs/local/three&quot;;
  export PERL_MM_OPT=&quot;INSTALL_BASE=/Users/rjbs/local/three&quot;;
  export PERL5LIB=&quot;/Users/rjbs/local/three/lib/perl5/darwin-2level:
  /Users/rjbs/local/three/lib/perl5:$PERL5LIB&quot;;
  export PATH=&quot;/Users/rjbs/local/three/bin:$PATH&quot;;
  ~$ echo $PATH
  /Users/rjbs/local/three/bin:/Users/rjbs/local/second-lib/bin:
  /Users/rjbs/local/already-there/bin:/Users/rjbs/bin:/usr/local/bin:
  /usr/bin:/bin:/usr/sbin:/sbin:/opt/local/bin
  ~$ perl -Mlocal::lib=--deactivate,local/second-lib
  export PERL_LOCAL_LIB_ROOT=&quot;/Users/rjbs/local/already-there:/Users/rjbs/local/three&quot;;
  export PATH=&quot;/Users/rjbs/local/three/bin:/Users/rjbs/local/already-there/bin:/Users/rjbs/bin:
  /usr/local/bin:/usr/bin:/bin:/usr/sbin:/sbin:/opt/local/bin&quot;;
  export PERL5LIB=&quot;/Users/rjbs/local/three/lib/perl5/darwin-2level:
  /Users/rjbs/local/three/lib/perl5:/Users/rjbs/local/already-there/lib/perl5/darwin-2level:
  /Users/rjbs/local/already-there/lib/perl5&quot;;

Perl Advent Calendar 2011

It&#39;s Over!

Merry Christmas from PerlAdvent.pm

See Also

Where Does He Get Those Wonderful Codepoints?

&#x1D516;&#x1D531;&#x1D532;&#x1D52D;&#x1D526;&#x1D521; &#x1D518;&#x1D52B;&#x1D526;&#x1D520;&#x1D52C;&#x1D521;&#x1D522; &#x1D517;&#x1D52F;&#x1D526;&#x1D520;&#x1D528;&#x1D530;

The &#x1D441;&#x1D452;&#x1D465;&#x1D461; Level

Two More Tools

See Also

It Boiled Plate So You Don&#39;t Have To!

ref, reftype, overload, and isa

Help!!

See Also

Less Tedium, More Transactions

Execution Methods

Connection Management

Pedigree

See Also

A Shortcut to Unicode

utf8::all

utf8::all&#39;s reach

See Also

Revisiting Test::Routine

Wrapping my head around Test::Routine

It&#39;s Advent all over again

Not very many lines of code later

See Also

Process ALL the FILES!

There&#39;s More Than One Way to Find Files

File::Find

File::Find::Rule

Path::Class::Rule

See Also

Munge All the Filenames!

A Shameful Admission

See Also

There is No Try

eval Stinks

Two Solutions

Extra Sugar

See Also

All Your Documentation, Even Offline

perldoc.perl.org

See Also

Install Even Less

Reading the Friendly Manual

See Also

Don&#39;t Get Kickbanned

IRC is great!

...but pasting into a web browser is hard!

Options, options, options!

See Also

The new /r flag

Now I have an SQL machine gun

Where do you keep your SQL?

How do you run your SQL?

Why not just use DBI, instead?

SEE ALSO

Mojolicious as a client

See Also

A Big List of Stuff You Want

Perl Is Not Enough

List::Util is Not Enough

There&#39;s a Lot More

Footnotes

See Also

Taming Search with Data::SearchEngine

Investigating Your Options

The Problem with Search

Enter Data::SearchEngine

Step 1: Subclass!

Step 2: Getting the Query

Step 3: Results!

Step 4: Show Our Answers

Done, So Now What?

Some Other Noteworthy Features

Conclusion

See Also

All the perls are all lined up

I can test just what I want

It's Over!

𝔖𝔱𝔲𝔭𝔦𝔡 𝔘𝔫𝔦𝔠𝔬𝔡𝔢 𝔗𝔯𝔦𝔠𝔨𝔰

The 𝑁𝑒𝑥𝑡 Level

It Boiled Plate So You Don't Have To!

utf8::all's reach

It's Advent all over again

There's More Than One Way to Find Files

`eval` Stinks

`perldoc.perl.org`

Don't Get Kickbanned

There's a Lot More

Doesn't it make your life better?

The Basics of `-M`

`no MODULE`

Doesn't everybody love stack traces?

Look, Ma, no `sudo`!

local::lib – the diagnostics