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   95 use vars qw($VERSION);
  12     1   23  
  12         2036  
  1         8  
  1         2  
  1         134  
4             $VERSION = '1.01';
5              
6             +{
7             charset => 'bytes',
8             regexp => $] >= 5.006 ? '\C' : '[\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__