Branch Coverage

blib/lib/String/Tagged/IRC.pm
Criterion Covered Total %
branch 61 80 76.2


line true false branch
97 1 2 if $colcode =~ /^#([0-9a-f]{6})/i
101 0 2 if $colcode =~ /^#([0-9a-f])([0-9a-f])([0-9a-f])/i
105 2 0 if $colcode =~ /^(\d\d?)/ and $1 < 16
120 3 0 if $idx >= 0 and $idx < @termcolours
136 16 19 if ($text =~ s/^([\x00-\x1f])//) { }
139 2 14 if ($ctrl eq 'B') { }
0 14 elsif ($ctrl eq 'U' or $ctrl eq '_') { }
2 12 elsif ($ctrl eq 'R' or $ctrl eq ']') { }
0 12 elsif ($ctrl eq 'V') { }
0 12 elsif ($ctrl eq 'O') { }
4 8 elsif ($ctrl eq 'C') { }
8 0 elsif ($ctrl eq 'D') { }
140 1 1 $format{'bold'} ? :
143 0 0 $format{'under'} ? :
146 1 1 $format{'italic'} ? :
149 0 0 $format{'reverse'} ? :
157 1 3 if ($text =~ s/^($colourre),($colourre)//) { }
1 2 elsif ($text =~ s/^($colourre)//) { }
170 0 8 if ($text =~ s/^b//) { }
2 6 elsif ($text =~ s/^c//) { }
2 4 elsif ($text =~ s/^d//) { }
2 2 elsif ($text =~ s/^g//) { }
171 0 0 $format{'under'} ? :
174 1 1 $format{'bold'} ? :
177 1 1 $format{'italic'} ? :
185 2 0 if ($fg > 0)
188 1 1 if ($bg > 0)
202 0 2 unless $piece =~ s[^(.*?)(?
207 2 0 if length $pre
218 18 1 if length $piece
261 2 7 if !$formats{'bold'} != !$tags{'bold'}
262 0 9 if !$formats{'under'} != !$tags{'under'}
263 1 8 if !$formats{'italic'} != !$tags{'italic'}
264 0 9 if !$formats{'reverse'} != !$tags{'reverse'}
267 1 8 $tags{'fg'} ? :
268 1 8 $tags{'bg'} ? :
270 3 6 if (($fg // '') ne ($formats{'fg'} // '') or ($bg // '') ne ($formats{'bg'} // ''))
271 1 2 if (defined $bg) { }
1 1 elsif (defined $fg) { }
294 1 2 if defined $formats{'fg'} or defined $formats{'bg'}