view release on metacpan or  search on metacpan

lib/Acme/PM/Barcelona/12x5_ca.pod  view on Meta::CPAN

"Just another Perl hacker,".

=item * Normalment els JAPH són molt originals, o molt
obfuscats.

=back

=head3 JAPH 1

  $_ = "wftedskaebjgdpjgidbsmnjgc";
  tr/a-z/oh, turtleneck Phrase Jar!/; print;

=head3 JAPH 2

=for latex \scriptsize

  $_=q;Barcelona Perl Mongers;,$/=y,gaudi,,,;map$,+=(split//)*(-1)**$|++
  ,(split)[.11_09,1.714];$.=''!~m~erce~;$"=y,catalunya,,,$;=y,rambles,,,
  $*=$/^$.;$:=$.+length,$@=$***$**$/**$*%$:,$%=$/*$"-$*;print+chr($_<0xA
  ?$.."$[$_":m:^$.:?$..$_:$_)for($**$**$/*$",$"*$@+$**$/,$**$,,$***$,,$/
  *$,,$;,$***$/,$,*$/,$.<<$,,$%-$*,$"+$/,$***$,,(($,*$*)**$*)-$/,$***$/,
  $@+$/,$:-($/**$*),$.,$:+$"+$*,$.<<$*,$,**$/-$:-$,,exp$:/$,,$",$.,$"*$*
  ,$***$,,log$.,$.,-$/+$"*$,,$/+$"*$;,$.,++$@,$***($/&=$/+Barcelona_pm))

=head2 Mòduls poc corrents del CPAN

=head3 Lingua::Romana::Perligata

Perl in Latin.

  use Lingua::Romana::Perligata;

  adnota Illud Cribrum Eratothenis

  maximum tum val inquementum tum biguttam tum stadium egresso scribe.
  vestibulo perlegementum da meo maximo .
  maximum tum novumversum egresso scribe.
  da II tum maximum conscribementa meis listis.
  dum damentum nexto listis decapitamentum fac sic
      lista sic hoc tum nextum recidementum cis vannementa da listis.
      next tum biguttam tum stadium tum nextum tum novumversum
          scribe egresso.
  cis

=head3 Don::Mendo

Modules for "La venganza de Don Mendo", Sir Mendo's revenge.

  use Don::Mendo;
  $don_mendo = Don::Mendo->new;

  # Acts in the play are "jornadas"
  $first_act = $don_mendo->jornadas(0);

  # Print the whole act
  $first_act->tell();

  # Just the lines for the main character
  print $first_act->lines_for_character('Mendo');

=head3 DateTime::Event::Klingon

Determine events of Klingon cultural significance.

  use DateTime;
  use DateTime::Event::Klingon qw/
      Heghlu'meH QaQ jajvam'a'
  /;

  $dt = DateTime->now;
  print 'Today ', Heghlu'meH QaQ jajvam'a'($dt)
      ? 'is' : 'is not',
      " a good day to die!\n";

=head3 Acme::Code::Police

Enforce rigorous coding standards.

  use Acme::Code::Police;

  use strict;
  print "Hello, world!\n";

=head3 Acme::Code::FreedomFighter

Defends our right to code in any style waiting for the right
moment to strike back at the evil oppressors.

  use Acme::Code::FreedomFicghter;
  use Acme::Code::Police;

  print "Hello, world!\n";

=head3 Codi del mòdul Acme::Code::FreedomFighter

=for latex \tiny

  package Acme::Code::FreedomFighter;
  our $VERSION = '3.1416';
  BEGIN {
  
  
                                                ''=~("\(".
                                      '?'.'{'.('`'|'%').('['^'-').
                                  ('`'|'!').('`'|',').'"'.('`'|')').
                                ('`'|'&').('{'^'[').'('.('`'|'%').('['^'#')
                             .('`'|')').('['^'(')     .('['^'/').('['^'(').'('.''.
                          '\\'.'$'.('`'^"\)").(      '`'^'.').('`'^'#').'\\'.'{'."'".
                        ('`'^'!').('`'|'#').('`'|'-').('`'|'%').'/'.('`'^'#').('`'|'/')
                       .('`'|'$').('`'|'%').'/'.('{'^'+').('`'|'/').('`'|',').('`'|')').(
                      '`'|'#').('`'|'%').'.'.('['^'+').('`'|'-')."'".'\\'.'}'.')'.')'.('{'
                     ^'[').'\\'.'{'.'\\'.'$'.('`'^')').('`'^'.').('`'^'#').'\\'.'{'.("'").(
                    '['^'(').('['^'/').('['^')')          .('`'|')').('`'|'#').('['^'/').'.'
                    .('['^'+').('`'|'-'                             )."'".'\\'.'}'.('{'^"\[").
                   '='.('{'^'[').(                                         '^'^('`'|'/'))."\;".(
                  '{'^'[').'\\'                                               .'}'.('`'|('%')).(
                  '`'|',').('['                                                ^'(').('`'|('%')).
                   '\\'.('{').                                                 '*'.('`'^'#').('`'
                    ^'/').('{'                                                 ^')').('`'^'%').':'
                     .':'.('`'                                   ^"'").('`'^',').('`'^'/').(('`')^
                     '"').('`'                               ^'!').('`'^',').':'.':'.('['^"\.").(
                     '`'|'.').    ('`'|',').(('`')|         ')').('`'|'.').('`'|'+').('{'^('[')).
                    '='.('{'^    ((   '['))).("\["^         '(').(  (( '['))^'.').('`'|'"').('{'
                   ^'[').'\\'        .+  ((                '{')         ).('`'|')').('`'|'&').
                   ('{'^'[')      .'('                     .+(          '`'^'#').('`'^'/').('{'
               ^')').(('`')^                               ((           '%')    )).':'.':'.('`'|'#')
            .+( '`'|('!')).(                                (                   '`')|',').('`'|',').
           ('`'|'%').(('[')^                                                   ')').'('.')'.('{'^'[').
            '='.'~'.('{'^'['                                                  ).'/'.('`'|'!').('`'|"\#").(
             '`'|'-').(('`')|                                                '%').':'.':'.('`'|'#').(