File Coverage

blib/lib/String/Multibyte/GB18030.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package String::Multibyte::GB18030;

use vars qw($VERSION);
$VERSION = '1.02';

+{
    charset  => 'GB18030',

    regexp   => '(?:[\x00-\x80]|[\x81-\xFE][\x40-\x7E\x80-\xFE]|'
	. '[\x81-\xFE][\x30-\x39][\x81-\xFE][\x30-\x39])',

    cmpchar => sub {
	length($_[0]) <=> length($_[1]) || $_[0] cmp $_[1];
    },

    nextchar => sub {
	my $ch = shift;
	my $len = length $ch;
	if ($len == 1) {
	    return $ch eq "\x80"
		? "\x81\x40"
		: chr(ord($ch)+1);
	}
	elsif ($len == 2) {
	    my($c, $d) = unpack('CC', $ch);
	    return $ch eq "\xFE\xFE"
		? "\x81\x30\x81\x30"
		: $d == 0xFE
		    ? chr($c+1)."\x40"
		    : $d == 0x7E
			? chr($c)  ."\x80"
			: pack('CC', $c, $d+1);
	}
	elsif ($len == 4) {
	    my($c, $d, $e, $f) = unpack('CCCC', $ch);
	    return $f == 0x39
		    ? $e == 0xFE
			? $d == 0x39
			    ? $c == 0xFE
				? undef
				: pack('CCCC', $c+1, 0x30, 0x81, 0x30)
			    : pack('CCCC', $c, $d+1, 0x81, 0x30)
			: pack('CCCC', $c, $d, $e+1, 0x30)
		    : pack('CCCC', $c, $d, $e, $f+1);
	}
	else {
	    return;
	}
    },
};

__END__