File Coverage

blib/lib/String/Multibyte/Bytes.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::Bytes;
2              
3 12     12   90 use vars qw($VERSION);
  12     1   24  
  12         1548  
  1         6  
  1         1  
  1         113  
4             $VERSION = '1.12';
5              
6             +{
7             charset => 'bytes',
8             regexp => '[\x00-\xFF]',
9             nextchar =>
10             sub {
11             my $c = unpack('C', shift);
12             $c == 0xFF ? undef : pack('C', 1+$c);
13             },
14             cmpchar => sub { $_[0] cmp $_[1] },
15             };
16              
17             __END__