Acme-3mxA

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

#!/usr/bin/env perl
                                                                use lib qw(lib);
                                                        use utf8;use Acme::ǝmɔA;
                                                                                
                                                         ؛ʇdıɹɔs‾pʃınq‾ǝʇɐǝɹɔ<-(
                                             'bǝɹ‾pʃınq$ <= sǝɹınbǝɹ‾ǝɹnƃıɟuoɔ  
                                             'bǝɹ‾pʃınq$ <=     sǝɹınbǝɹ‾pʃınq  
                                             'bǝɹ‾pʃınq$ <=           sǝɹınbǝɹ  
                                                ',ʃdɟʇʍ, <=            ǝsuǝɔıʃ  
                                           ',∀xɯƐ::ǝɯɔ∀, <=        ǝɯɐu‾ǝʃnpoɯ  
                                                '7Ɛ˙7ƐƐ1 <=       uoısɹǝʌ‾ʇsıp  
                                                                         )ʍǝu<-(
                                                 'ʃdɟʇʍ$ <=               ǝpoɔ  

lib/Acme/3mxA.pm  view on Meta::CPAN

use utf8;
package Acme::3mxA;

sub import {
  Acme::ǝmɔA->import;
}

"með blóðnasir"

__END__

=encoding utf-8

=head1 NAME

Acme::3mxA - Turn your perl upside down

=head1 SYNOPSIS

  use utf8; use Acme::ǝmɔA;

  ɹǝpun uʍop ʍou ǝɹ,no⅄ #

=head1 DESCRIPTION

Turns your perl code upside down.

This is yet another Acme module that does something amusing yet useless to your
code. I'm afraid I couldn't resist.

t/01.load.t  view on Meta::CPAN

#!perl
use utf8;
use strict;
use Test::More tests => 1;

use_ok "Acme::ǝmɔA";

t/02.rewrite.t  view on Meta::CPAN

#!perl
use utf8; use Acme::ǝmɔA;

if(!@ARGV) {
  eval q{ 
    use Test::More tests => 2;
    ok 1;
    ok run_again() =~ /alright!/;
  };
} else {
  print "alright!";
}

t/03.already_acmed.t  view on Meta::CPAN

#!perl
my $what = "Just a test of some common constructs.";

                                                        use utf8;use Acme::ǝmɔA;
                                                                                
                                                                          ؛()zɐq
                                                                          ؛()ɹɐq
                                                                          Ø›()ooÉŸ
                                                                                
                                                                               {
              ؛ʇɐɥʍ$ '(„Just a test of some common constructs.„)uʍop‾ǝpısdn sı  
                                                    ؛„uʍo◖ǝpısd∩::ʇxǝ⊥„ ʞo‾ǝsn  
                                                                       } zɐq qns