File Coverage

blib/lib/String/Multibyte/UTF32LE.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::UTF32LE;
2              
3 11     11   79 use vars qw($VERSION);
  11     1   22  
  11         1868  
  1         6  
  1         1  
  1         156  
4             $VERSION = '1.12';
5              
6             +{
7             charset => 'UTF-32LE',
8              
9             regexp => '(?:[\x00-\xFF][\x00-\xD7\xE0-\xFF]\x00\x00|'
10             . '[\x00-\xFF][\x00-\xFF][\x01-\x10]\x00)',
11              
12             cmpchar => sub { unpack('V', $_[0]) <=> unpack('V', $_[1]) },
13              
14             nextchar => sub {
15             my $u = unpack('V', $_[0]);
16             return if 0x10FFFF <= $u;
17             pack('V', $u == 0xD7FF ? 0xE000 :$u + 1);
18             },
19              
20             hyphen => "-\x00\x00\x00",
21             escape => "\\\x00\x00\x00",
22             };
23              
24             __END__