view release on metacpan or  search on metacpan

lib/Acme/ChuckNorris.pod  view on Meta::CPAN

=encoding utf8

=head1 NAME

Acme::ChuckNorris - Perl prefers to code in Chuck Norris

=head1 VERSION

This document describes Acme::ChuckNorris version 0.3

=head1 SYNOPSIS

    use Acme::ChuckNorris;

=head1 DESCRIPTION

This module is intended to be a place to store all things combining Chuck Norris and Perl.

Current "things" are detailed in the next section. If you have any ideas let me know and you'll get Chuck Norris cred.

=head1 INTERFACE 

All functions are exported unless you call it in non-import() context (i.e. require Acme::ChuckNorris; or use Acme::ChuckNorris ();).

=head2 round_house_kick_to_the_perl()

Turns your code into executable Chuck Norris perl.

   my $chuck_norris_shaped_code = round_house_kick_to_the_perl(\q{print "Goodbye\n";die "You are now dead.\n";}); 
   my $chuck_norris_shaped_code = round_house_kick_to_the_perl("/usr/bin/chuck_norris.pl");

Takes a scalar ref, file, of file handle that contains perl code.

Additional arguments could be any Acme::EyeDrops::sightly() option except SourceString, SourceFile, SourceHandle, or Shape (if you pass those they are ignored and you might get kicked in the face).

These Acme::EyeDrops::sightly() options are set by default and can be overridden:

  'Gap'            => 1,
  'InformHandler'  => sub { },
  'TrailingSpaces' => 1,
  'Regex'  => 1,
  'Binary' => 0,
  'TrapEvalDie' => 1,
  'TrapWarn'    => 1,

requires L<Acme::EyeDrops>

=head2 round_house_kick_to_the_text()

Turns your text into executable Chuck Norris perl code that prints the original text.

   my $chuck_norris_shaped_code = round_house_kick_to_the_text(\'Just Another Perl Hacker'); 
   my $chuck_norris_shaped_code = round_house_kick_to_the_text(\'Chuck Norris can literally hack code with a machete');

Takes a scalar ref, file, of file handle that contains text.

Additional arguments could be any Acme::EyeDrops::sightly() option except SourceString, SourceFile, SourceHandle, Shape, Print, Regex, or Binary (if you pass those they are ignored and you might get kicked in the face).

These Acme::EyeDrops::sightly() options are set by default and can be overridden:

  'Gap'            => 1,
  'InformHandler'  => sub { },
  'TrailingSpaces' => 1,

requires L<Acme::EyeDrops>

=head1 JAPH - Chuck Norris Style!

    #!/usr/bin/perl -w

    use strict;


                                                                      ''=~('('.'?'.'{'                                                              
                                                                    .('['^'+').('['^')').(                                                          
                                                            '`'|')').('`'|'.').('['^'/').'"'                                                        
                                                        .('`'^'*').('['^'.').('['^'(').('['^  ((                                                    
                                                      '/'))).('{'^'[').('`'^'!').('`'|'.').(('`')|                                                  
                                                    '/').('['^'/').('`'|'(').('`'|'%').(('[')^  ((                                                  
                                                  ')'))).('{'^'[').('{'^'+').('`'|'%').('['^(')')).(                                                
                                                  '`'|',').('{'^'[').('`'^'(').('`'|'!').('`'|'#').(                                                
                                                '`'|'+').('`'|'%').('['^')').('!'^'+').'"'.'}'.')');$:                                              
                                                ='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^"\}";                                              
                                                $\='`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@'                                              
                                                ;$,='['&'~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^=')'^'[';                                            
                                                $/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|"\`";                                            
                                                $^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:='.'^"\~";                                            
                                              $~='@'|'(';$^=')'^'[';$/='`'|'.'  ;$,='('^'}';$\='`'|'!';$:=                                          
                                                ')'^'}';$~='*'|'`';$^='+'^            '_';$/='&'|('@');$,=                                          
                                                '['&'~';$\=','^'|';$:=  ((            '.'))^'~';$~='@'|'('                                          
                                                ;$^=')'^'[';$/='`'|'.'                  ;$,='('^'}';$\="\`"|                                        
                                                '!';$:=')'^'}';$~='*'|                  '`';$^='+'^('_');$/=                                        
                                                '&'|"\@";$,=                              '['&'~';$\=','^'|'                                        
                                                  ;$:='.'^"\~";$~=                        '@'|'(';$^=')'^'['                                        
                                                  ;$/=('`')|                              '.';$,='('^'}';$\=                                        
                                                    '`'|"\!";$:=  ')'^'}';$~='*'            |'`';$^=  ('+')^                                        
            '_';                                    $/='&'|"\@";  $,='['&'~';$\=              ','^'|';$:='.'                                        
            ^"\~";                                  $~='@'|"\(";    $^=')'^"\[";          ($/)        ='`'                                          
              |"\.";                                $,='('^"\}";    ($\)                  ='`'      |"\!";                                          
              $:=')'                                ^'}';$~='*'|                          '`';      $^='+'                                          
                ^"\_";                              ($/)    ='&'                          |'@'    ;($,)=                                            
                '['&'~';                            ($\)    =','                          ^'|'    ;($:)=                                            
                  '.'^'~';$~                          =(    ((                          '@')))  |"\(";                                              
                  $^=')'^"\[";                        $/  ='`'          |+                '.';  $,='('                                              
                    ^('}');$\=                        '`'|'!';        $:                  =(                                                        
                  ')')^('}');$~=    '*'|'`';            $^='+'  ^"\_";                $/='&'      |+                                                
                    '@';$,='['&'~';$\=      ((          ','))^'|';$:                ='.'^'~'      ;$~=                                              
                      ('@')|  ((      '(')  );          $^=')'^'[';$/='`'|'.';$,  ='('^"\}";        ($\)                                            
                      ='`'|'!';$:=        ')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,=('[')&      '~';$\                                            
                      =','^('|');$:=    '.'^'~';$~='@'|'(';$^=')'^'[';    $/='`'|('.');$,=        '('^'}';                                          
                      $\='`'|'!';$:=    ')'^'}';$~='*'|'`';$^=('+')^        '_';$/="\&"|        '@';$,='['                                          
                      &'~';$\=','^'|';    $:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,        ='('^"\}";                                          
                        $\='`'|('!');$:=    ')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,=      '['&'~';$\=','                                        
                        ^'|';$:='.'^'~';    $~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';    $\='`'|'!';$:=')'^                                      
                          '}';$~="\*"|  '`';$^  ='+'^'_';$/='&'|'@';$,='['&'~';$\=(',')^  '|';$:='.'^'~';$~=('@')|                                  
                          '(';$^=')'^('[');$/=  '`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^('_');$/=                                
                            '&'|'@';$,='['&'~'  ;$\=','^'|';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\=                              
                            '`'|'!';$:=')'^"\}";  $~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:='.'^'~';$~='@'                          
                              |'(';$^=(')')^  ((      '['));$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^=('+')^