File Coverage

blib/lib/Convert/Ascii85.pm

Criterion	Covered	Total	%
statement	46	46	100.0
branch	8	8	100.0
condition	6	6	100.0
subroutine	5	5	100.0
pod	2	2	100.0
total	67	67	100.0

package Convert::Ascii85;

use warnings;
use strict;

our $VERSION = '0.01';

use Exporter qw(import);

our @EXPORT_OK = qw(ascii85_encode ascii85_decode);

my $_space_no = unpack 'N', ' ' x 4;

sub encode {
	my ($in, $opt) = @_;
	my $compress_zero = exists $opt->{compress_zero} ? $opt->{compress_zero} : 1;
	my $compress_space = $opt->{compress_space};

	my $padding = -length($in) % 4;
	$in .= "\0" x $padding;
	my $out = '';

	for my $n (unpack 'N*', $in) {
		if ($n == 0 && $compress_zero) {
			$out .= 'z';
			next;
		}
		if ($n == $_space_no && $compress_space) {
			$out .= 'y';
			next;
		}

		my $tmp = '';
		for my $i (reverse 0 .. 4) {
			my $mod = $n % 85;
			$n = int($n / 85);
			vec($tmp, $i, 8) = $mod + 33;
		}
		$out .= $tmp;
	}

	$padding or return $out;

	$out =~ s/z\z/!!!!!/;
	substr $out, 0, length($out) - $padding
}

*ascii85_encode = \&encode;

sub decode {
	my ($in) = @_;
	for ($in) {
		tr[ \t\r\n\f][]d;
		s/z/!!!!!/g;
		s/y/+
	}

	my $padding = -length($in) % 5;
	$in .= 'u' x $padding;
	my $out = '';

	for my $n (unpack '(a5)*', $in) {
		my $tmp = 0;
		for my $i (unpack 'C*', $n) {
			$tmp *= 85;
			$tmp += $i - 33;
		}
		$out .= pack 'N', $tmp;
	}

	substr $out, 0, length($out) - $padding
}

*ascii85_decode = \&decode;

1

__END__