Branch Coverage

blib/lib/Business/UDC/Tokenizer.pm
Criterion Covered Total %
branch 38 40 95.0


line true false branch
23 4 221 if (@tokens and $input =~ /\G( +)(?=\p{L})/cgu)
27 2 219 if (@tokens and $input =~ /\G( +)(?=")/cg)
31 1 138 if (@tokens and $tokens[-1]{'type'} eq "ALPHA_SPEC" and $input =~ /\G( +)(?=\()/cg)
36 0 138 if (@tokens and $tokens[-1]{'type'} eq "ALPHA_SPEC" and $input =~ /\G( +)(?=\+)/cg)
41 1 217 if (@tokens and $input =~ /\G( +)\z/cg)
45 3 214 if ($input =~ /\G(\s)/cg)
52 80 134 if ($input =~ /\G(\d+(?:\.\d+)*)/cg)
57 9 125 if ($input =~ /\G(\.\d+(?:\.\d+)*)/cg)
62 4 121 if ($input =~ /\G(\[)/cg)
67 5 116 if ($input =~ /\G(\])/cg)
72 30 86 if ($input =~ m[\G([:+/])]cg)
77 15 71 if ($input =~ /\G(-\d+(?:\.\d+)*)/cg)
82 27 44 if ($input =~ /\G(\([^)]+\))/cg)
87 4 40 if ($input =~ /\G("[^"]*")/cg)
89 1 3 if ($value =~ /\p{L}/u) { }
97 4 36 if ($input =~ /\G(=+(?:[A-Za-z]+|\d+(?:\.\d+)*))/cg)
102 20 16 if ($input =~ /\G(\p{L}(?:[\p{L}\p{N}._#,]|\+(?! )|-(?!\d))*(?: +[\p{L}\p{N}._](?:[\p{L}\p{N}._#,]|\+(?! )|-(?!\d))*)*)/cgu)
107 13 3 if ($input =~ /\G(\'\d+(?:\.\d+)*)/cg)
124 0 163 if ($value =~ /^(.*?)\s/s)
139 163 48 unless ($allow_whitespace)