File Coverage

Encode/CN/Utility.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	6	6	100.0
total	42	42	100.0

package Encode::CN::Utility;

use 5.006;
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
			 hz2gbk gbk2hz hz2utf8 hz2unicode utf82hz unicode2hz
			 gbk2utf8 gbk2unicode utf82gbk utf82unicode
			 unicode2gbk unicode2utf8
			 );

$VERSION = '0.4';

use Encode;

sub hz2gbk {
	unpack "H*", shift;
}

sub gbk2hz {
	pack "H*", shift;
}

sub hz2utf8 {
	unpack("H*", encode("utf8", decode("gbk", shift)));
}

sub hz2unicode {
	my $res = "";

	my $str = decode("gbk", shift);
	my $len = length($str);
	for(0..$len - 1) {
		my $c = substr $str, $_, 1;
		$res .= sprintf("%x", unpack("U*", $c));
	}

	return $res;
}
sub utf82hz {
	 encode("gbk",decode("utf8",  pack("H*", shift)));;
}

sub unicode2hz {
	encode("gbk", pack("U*", sprintf("%d", hex(shift))))
}

sub AUTOLOAD {
	my($fun) = ($AUTOLOAD =~ /.*:(\w+)$/);
	my($f1, $f2) = split /2/, $fun;
	&{"hz2". $f2}(&{$f1."2hz"}(shift));
}

1;
__END__