Branch Coverage

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


line true false branch
96 1 2 if $colcode =~ /^#([0-9a-f]{6})/i
100 0 2 if $colcode =~ /^#([0-9a-f])([0-9a-f])([0-9a-f])/i
104 2 0 if $colcode =~ /^(\d\d?)/ and $1 < 16
119 3 0 if $idx >= 0 and $idx < @termcolours
135 16 19 if ($text =~ s/^([\x00-\x1f])//) { }
138 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') { }
139 1 1 $format{'bold'} ? :
142 0 0 $format{'under'} ? :
145 1 1 $format{'italic'} ? :
148 0 0 $format{'reverse'} ? :
156 1 3 if ($text =~ s/^($colourre),($colourre)//) { }
1 2 elsif ($text =~ s/^($colourre)//) { }
169 0 8 if ($text =~ s/^b//) { }
2 6 elsif ($text =~ s/^c//) { }
2 4 elsif ($text =~ s/^d//) { }
2 2 elsif ($text =~ s/^g//) { }
170 0 0 $format{'under'} ? :
173 1 1 $format{'bold'} ? :
176 1 1 $format{'italic'} ? :
184 2 0 if ($fg > 0)
187 1 1 if ($bg > 0)
201 0 2 unless $piece =~ s[^(.*?)(?
206 2 0 if length $pre
217 18 1 if length $piece
260 2 7 if !$formats{'bold'} != !$tags{'bold'}
261 0 9 if !$formats{'under'} != !$tags{'under'}
262 1 8 if !$formats{'italic'} != !$tags{'italic'}
263 0 9 if !$formats{'reverse'} != !$tags{'reverse'}
266 1 8 $tags{'fg'} ? :
267 1 8 $tags{'bg'} ? :
269 3 6 if (($fg // '') ne ($formats{'fg'} // '') or ($bg // '') ne ($formats{'bg'} // ''))
270 1 2 if (defined $bg) { }
1 1 elsif (defined $fg) { }
293 1 2 if defined $formats{'fg'} or defined $formats{'bg'}