File Coverage

blib/lib/Unicode/Collate/CJK/GB2312.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


line stmt bran cond sub pod time code
1             package Unicode::Collate::CJK::GB2312;
2              
3 3     3   766 use 5.006;
  3         13  
4 3     3   15 use strict;
  3         7  
  3         85  
5 3     3   34 use warnings;
  3         6  
  3         691  
6              
7             our $VERSION = '1.30';
8              
9             my %u2p;
10             my $wt = 0x8000;
11              
12             while () {
13             last if /^__END__/;
14             my @c = split;
15             for my $c (@c) {
16             next if !$c;
17             $u2p{hex($c)} = $wt;
18             $wt++;
19             }
20             }
21              
22             sub weightGB2312 {
23 1103     1103 0 1734 my $u = shift;
24 1103 100       4711 return exists $u2p{$u} ? $u2p{$u} : undef;
25             }
26              
27             1;
28             __DATA__