File Coverage

blib/lib/uni/perl/encodebase.pm

Criterion	Covered	Total	%
statement	26	29	89.6
branch	7	12	58.3
condition	1	3	33.3
subroutine	8	9	88.8
pod	0	1	0.0
total	42	54	77.7

package uni::perl::encodebase;

use uni::perl;
m{
use strict;
use warnings;
}x;
use Encode ();

sub _generate($;$) {
	my ($pkg, $encoding) = @_;
	$encoding //= $pkg;
	my $e = Encode::find_encoding($encoding)
		or croak "Can't load encoding `$encoding'";
	my $as = 'uni::perl';
	my $decode = $e->can('decode');
	my $encode = $e->can('encode');
	{
		no strict 'refs';
		for my $method (qw(encode decode)) {
			if (defined &{$pkg.'::'.$method}) {
				carp "$pkg\::$method already defined"
					if ref \&{$pkg.'::'.$method} ne $as;
			} else {
				my $s = qq{
					sub $pkg\::$method (\$;\$) { \$e->\$$method(\@_); };
					#bless \\&$pkg\::$method, '$as';
					1
				};
				eval $s or die "$s\n$@";
			}
		}
	}
	return;
}

sub generate {
	_generate(ref $_ ? $_->[0] : $_, ref $_ ? $_->[1] : $_) for (@_);
}

1;