File Coverage

blib/lib/Acme/emcA.pm

Criterion	Covered	Total	%
statement	11	15	73.3
branch	1	2	50.0
condition	0	3	0.0
subroutine	5	7	71.4
pod	0	4	0.0
total	17	31	54.8

package Acme::emcA;

use 5.004;
use strict qw[vars subs];
use vars '$VERSION';

$VERSION = '0.10E0';

open 0 or print "Can't reverse '$0'\n" and exit;
( my $code = join "", <0> ) =~ s/.*?^(\s*);?use\s+Acme::emcA\s*(?: esu)?;\n//sm;
my $max = 10 + length $1;
local $SIG{__WARN__} = \&is_forward;
do { eval forward($code); exit } if is_backward($code);
open 0, ">$0" or print "Can't reverse '$0'\n" and exit;
$max  = 10;
$code = backward($code);
$code =
    ( " " x ( $max - 10 ) )
  . ";use Acme::emcA esu;\n"
  . ( " " x ( $max * 2 ) ) . "\n"
  . $code;
print {0} $code . ( join( "\n", reverse split( /\n/, $code ) ) ), "\n" and exit;

sub forward {
    join( "\n",
        map substr( $_, $max ),
        ( split "\n", substr( $_[0], 0, length( $_[0] ) / 2 ) ) );
}

sub is_forward { $_[0] !~ /^ {20,}$/m }
sub is_backward { $_[0] =~ s/\n?.*$// if $_[0] =~ /^ {20,}$/m }

sub backward {
    @_ = split "\n", $_[0];
    length > $max && ( $max = length ) for @_;
    return join "\n", map sprintf( "%${max}s", scalar reverse $_ ) . $_, @_, '';
}

1;

__END__