File Coverage

blib/lib/Encode/CNMap.pm

Criterion	Covered	Total	%
statement	45	48	93.7
branch	0	14	0.0
condition			n/a
subroutine	21	22	95.4
pod	0	17	0.0
total	66	101	65.3

package Encode::CNMap;
use 5.008;
use vars qw/$VERSION @EXPORT @EXPORT_OK/;
$VERSION = "0.32";
@EXPORT_OK = @EXPORT = qw(
	simp_to_b5 simp_to_gb trad_to_gb trad_to_gbk
	utf8_to_b5 utf8_to_gb utf8_to_gbk simp_to_utf8 trad_to_utf8
	utf8_to_tradutf8 utf8_to_simputf8 utf8_to_utf8
	simp_to_tradutf8 simp_to_simputf8 trad_to_simputf8 trad_to_tradutf8
);
use base 'Exporter';

use Encode qw( from_to encode decode );
use XSLoader;
XSLoader::load( __PACKAGE__,$VERSION );

sub simp_to_b5($)  { my $t = $_[0]; from_to( $t, "gbk",       "big5-trad"   ); $t; }
sub simp_to_gb($)  { my $t = $_[0]; from_to( $t, "gbk",       "gb2312-simp" ); $t; }
sub trad_to_gb($)  { my $t = $_[0]; from_to( $t, "big5-trad", "gb2312-simp" ); $t; }
sub trad_to_gbk($) { my $t = $_[0]; from_to( $t, "big5-trad", "gbk"         ); $t; }

sub simp_to_utf8($){ decode( "gbk",         $_[0] ); }
sub trad_to_utf8($){ decode( "big5-trad",   $_[0] ); }

sub utf8_to_b5($)  { encode( "big5-trad",   $_[0] ); }
sub utf8_to_gb($)  { encode( "gb2312-simp", $_[0] ); }
sub utf8_to_gbk($) { encode( "gbk",         $_[0] ); }
sub utf8_to_utf8($){ $_[0]; }

sub utf8_to_simputf8($) { decode( "gb2312-simp", encode( "gb2312-simp", $_[0] ) ); }
sub utf8_to_tradutf8($) { decode( "big5-trad",   encode( "big5-trad",   $_[0] ) ); }

sub simp_to_simputf8($) { my $t = $_[0]; from_to( $t, "gbk",       "gb2312-simp" );	decode( "gb2312-simp", $t ); }
sub simp_to_tradutf8($) { my $t = $_[0]; from_to( $t, "gbk",       "big5-trad"   );	decode( "big5-trad",   $t ); }
sub trad_to_simputf8($) { my $t = $_[0]; from_to( $t, "big5-trad", "gb2312-simp" );	decode( "gb2312-simp", $t ); }
sub trad_to_tradutf8($) { decode( "big5-trad", $_[0] ); }

sub cnmapfunc_byopts($) {
	my $opts = $_[0];
	my $from = $opts{s} ? "simp" : $opts{t} ? "trad" : "utf8";
	my $to = $opts{C} ? ( $opts{5} ? "tradutf8" : "simputf8" ) :
		$opts{5} ? "b5" : $opts{k} ? "gbk" : $opts{b} ? "gb" : "utf8";
}

1;
__END__