File Coverage

blib/lib/Unicode/Collate/CJK/Stroke.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	16	17	94.1

package Unicode::Collate::CJK::Stroke;

use 5.006;
use strict;
use warnings;

our $VERSION = '1.30';

my %u2p;
my $wt = 0x8000;

while () {
    last if /^__END__/;
    my @c = split;
    for my $c (@c) {
	next if !$c;
	$u2p{hex($c)} = $wt if $c !~ /-/;
	$wt++;
    }
}

sub weightStroke {
    my $u = shift;
    return exists $u2p{$u} ? $u2p{$u} : undef;
}

1;
__DATA__