File Coverage

blib/lib/Acme/Palindrome.pm

Criterion	Covered	Total	%
statement	11	13	84.6
branch			n/a
condition	1	2	50.0
subroutine	5	7	71.4
pod	0	5	0.0
total	17	27	62.9

package Acme::Palindrome;
# $Id: $
use strict qw[vars subs];

use vars qw[$VERSION $TIE];
$VERSION = (qw$Revision: 0.1$)[1];
$TIE = " \t"x8;

sub backward { "$TIE\n".palindrome(split "\n", $_[0])."\n" }
sub forward  { palindrome(split "\n", $_[0]) }

sub is_forward  { $_[0] !~ /^$TIE/ }
sub is_backward { $_[0] =~ /^$TIE/ }

open 0 or print "Can't reverse '$0'\n" and exit;
(my $code = join "", <0>) =~ s/.*^\s*use\s+Acme::Palindrome\s*;\n//sm;
local $SIG{__WARN__} = \&is_forward;
do {eval forward $code; exit} if is_backward $code;
open 0, ">$0" or print "Cannot reverse '$0'\n" and exit;
print {0} "use Acme::Palindrome;\n", backward $code and exit;

sub palindrome {
    my $max = 0;
    length > $max && ( $max = length ) for @_;
    return join "\n",
      map sprintf( "%${max}s", scalar reverse $_ ),
	reverse @_;
}

1;

__END__