File Coverage

blib/lib/Acme/OneBit.pm

Criterion	Covered	Total	%
statement	8	22	36.3
branch	6	10	60.0
condition			n/a
subroutine	2	3	66.6
pod			n/a
total	16	35	45.7

package Acme::Onebit;

$VERSION = 0.01;

sub encode {
	my @bits = split //, shift;
	my $c = 0;
	my $buffer;

	for $bit(@bits){
		$bit = ord $bit;
		my $ch;
		if ($c > $bit){
			$ch = '.' x ($bit+255-$c);
		}elsif($c < $bit){
			$ch = '.' x ($bit-$c);
		}
		$ch .= ',';
		$buffer .= $ch;
		$c = $bit;
	}
	$buffer = join "\n", ($buffer =~ /(.{1,60})/g);
	$buffer;
}
sub decode {
	my $c = 0;
	my $buffer;
	for my $b(split //, shift){
		$c++ if $b eq '.';
		$c = 0 if $c == 255;
		$buffer .= chr $c if $b eq ',';
	}
	$buffer;
}
sub signed {
	$_[0] =~ /^[.,\n]+$/
}

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

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

local $SIG{__WARN__} = \&garbled;

do {
	eval decode $program;
	exit
} if signed $program;

open 0, ">$0" or print "Can't bit-ise '$0'\n" and exit;
print {0} "use Acme::OneBit;\n", encode $program and exit;

__END__