File Coverage

blib/lib/MarpaX/Database/Terminfo/Grammar/CharacterClasses.pm
Criterion Covered Total %
statement 15 17 88.2
branch n/a
condition n/a
subroutine 11 13 84.6
pod 11 11 100.0
total 37 41 90.2


line stmt bran cond sub pod time code
1 18     18   99 use strict;
  18         35  
  18         748  
2 18     18   98 use warnings FATAL => 'all';
  18         34  
  18         18336  
3              
4             package MarpaX::Database::Terminfo::Grammar::CharacterClasses;
5              
6             # ABSTRACT: Terminfo character classes
7              
8             our $VERSION = '0.010'; # VERSION
9              
10              
11             our $COMMA_HEX = sprintf('%x', ord(','));
12             our $SLASH_HEX = sprintf('%x', ord('/'));
13             our $PIPE_HEX = sprintf('%x', ord('|'));
14             our $EQUAL_HEX = sprintf('%x', ord('='));
15             our $POUND_HEX = sprintf('%x', ord('#'));
16              
17              
18             sub InCommaSlashPipe {
19 40     40 1 1556694 return <
20             $COMMA_HEX
21             $SLASH_HEX
22             $PIPE_HEX
23             END
24             }
25              
26              
27             sub InCommaPipe {
28 0     0 1 0 return <
29             $COMMA_HEX
30             $PIPE_HEX
31             END
32             }
33              
34              
35             sub InPipe {
36 22     22 1 30063 return <
37             $PIPE_HEX
38             END
39             }
40              
41              
42             sub InCommaEqualPound {
43 58     58 1 13451 return <
44             $COMMA_HEX
45             $EQUAL_HEX
46             $POUND_HEX
47             END
48             }
49              
50              
51             sub InComma {
52 26     26 1 4955 return <
53             $COMMA_HEX
54             END
55             }
56              
57              
58             sub InAlias {
59 40     40 1 247890 return <
60             +utf8::IsGraph
61             -MarpaX::Database::Terminfo::Grammar::CharacterClasses::InCommaSlashPipe
62             END
63             }
64              
65              
66             sub InLongname {
67 0     0 1 0 return <
68             +utf8::IsPrint
69             -MarpaX::Database::Terminfo::Grammar::CharacterClasses::InCommaPipe
70             END
71             }
72              
73              
74             sub InNcursesLongname {
75 22     22 1 1696939 return <
76             +utf8::IsPrint
77             -MarpaX::Database::Terminfo::Grammar::CharacterClasses::InPipe
78             END
79             }
80              
81              
82             sub InName {
83 58     58 1 711354 return <
84             +utf8::IsPrint
85             -MarpaX::Database::Terminfo::Grammar::CharacterClasses::InCommaEqualPound
86             END
87             }
88              
89              
90             sub InIsPrintExceptComma {
91 26     26 1 10263102 return <
92             +utf8::IsPrint
93             -MarpaX::Database::Terminfo::Grammar::CharacterClasses::InComma
94             END
95             }
96              
97              
98             sub InIsPrintAndIsGraph {
99 4     4 1 18921 return <
100             +utf8::IsPrint
101             +utf8::IsGraph
102             END
103             }
104              
105             1;
106              
107             __END__