File Coverage

blib/lib/EBook/Ishmael/CharDet/Constants.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package EBook::Ishmael::CharDet::Constants;
2 18     18   440 use 5.016;
  18         71  
3             our $VERSION = '2.03';
4 18     18   105 use strict;
  18         34  
  18         470  
5 18     18   77 use warnings;
  18         39  
  18         920  
6              
7 18     18   113 use Exporter 'import';
  18         32  
  18         1759  
8             our @EXPORT_OK = qw(TAKE_OK TAKE_BAD TAKE_MUST_BE);
9             our %EXPORT_TAGS = (
10             CONSTANTS => [ @EXPORT_OK ],
11             );
12              
13             use constant {
14 18         5091 TAKE_OK => 0,
15             TAKE_BAD => 1,
16             TAKE_MUST_BE => 2,
17 18     18   107 };
  18         38  
18              
19             our %ASCII_SPACE_SET = map { $_ => 1 } (
20             "\x00", "\x09", "\x0a", "\x0b", "\x0d", "\x20",
21             );
22              
23             our %ASCII_LETTER_SET = map { $_ => 1 } (
24             'a' .. 'z',
25             'A' .. 'Z',
26             );
27              
28             1;