File Coverage

blib/lib/Acme/Python.pm

Criterion	Covered	Total	%
statement	7	12	58.3
branch	2	4	50.0
condition			n/a
subroutine	3	4	75.0
pod	0	4	0.0
total	12	24	50.0

package Acme::Python;

$VERSION = 0.01;

my $signed = "Hisssssssssssssssss";

sub encode {
	local $_ = unpack "b*", pop;
	$_ = join ' ', map{ (/1/?'H':'h').'is'.('s' x length); } m/(0+|1+)/g;
	s/(.{40,}?\s)/$1\n/g;
	"$signed\n$_"
}
sub decode {
	local $_ = pop;
	s/(^$signed|\s)//g;
	s/([hH])is(s+)/ ($1 eq 'H'?'1':'0')x(length $2); /ge;
	pack "b*", $_
}
sub garbled {
	$_[0] =~ /\S/
}
sub signed {
	$_[0] =~ /^$signed/
}

open 0 or print "Can't execute '$0'\n" and exit;

(my $program = join "", <0>) =~ s/.*^\s*use\s+Acme::Python\s*;\n//sm;

local $SIG{__WARN__} = \&garbled;

do {
	eval decode $program;
	exit
} unless garbled $program && not signed $program;


open 0, ">$0" or print "Can't python-ise '$0'\n" and exit;

print {0} "use Acme::Python;\n", encode $program and exit;

__END__