File Coverage

blib/lib/String/Multibyte/UTF32BE.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package String::Multibyte::UTF32BE;
2              
3 11     11   118 use vars qw($VERSION);
  11     1   23  
  11         1928  
  1         14  
  1         3  
  1         191  
4             $VERSION = '1.04';
5              
6             +{
7             charset => 'UTF-32BE',
8              
9             regexp => '(?:\x00\x00[\x00-\xD7\xE0-\xFF][\x00-\xFF]|'
10             . '\x00[\x01-\x10][\x00-\xFF][\x00-\xFF])',
11              
12             cmpchar => sub { $_[0] cmp $_[1] },
13              
14             nextchar => sub {
15             my $u = unpack('N', $_[0]);
16             return if 0x10FFFF <= $u;
17             pack('N', $u == 0xD7FF ? 0xE000 : $u + 1);
18             },
19              
20             hyphen => "\x00\x00\x00-",
21             escape => "\x00\x00\x00\\",
22             };
23              
24             __END__