Branch Coverage

blib/lib/Chemistry/OpenSMILES.pm
Criterion Covered Total %
branch 49 54 90.7


line true false branch
60 58 7 unless &is_chiral_tetrahedral($atom)
62 3 4 exists $atom->{'hcount'} ? :
63 0 7 if $moiety->degree($atom) + $hcount != 4
68 2 5 if scalar keys %colors == 4
84 3589 5 if (ref $what eq 'HASH') { }
94 261 5 if (ref $what eq 'HASH') { }
126 4 0 unless $max_length
136 0 12 if @seen != 1
166 25 5 if (ref $what eq 'HASH') { }
168 2 23 if (&is_chiral_tetrahedral($what))
169 1 1 $what->{'chirality'} eq '@' ? :
180 16 8 $_[0] eq '/' ? :
190 6 135 if (&is_chiral_tetrahedral($atom))
191 1 5 if ($moiety->degree($atom) < 3) { }
5 0 elsif ($moiety->degree($atom) == 4 and $color_sub) { }
202 3 2 if (scalar keys %colors != 4)
215 24 117 if (not &is_chiral($atom) and $moiety->degree($atom) == 4)
217 5 19 unless ($color_sub_local)
222 3 21 if (scalar keys %colors == 4)
234 1 132 if ($A eq $B)
240 6 127 if ($moiety->has_edge_attribute(@$bond, "bond"))
242 1 5 if ($bond_type eq '=') { }
5 0 elsif ($bond_type =~ m[^[\\/]$]) { }
250 1 3 if ($bond_types{$_} and @{$bond_types{$_};} > 1)
273 1 4 unless ($bond_types{'='})
295 24 14 if ($moiety->has_edge_attribute($atom, $neighbour, 'bond')) { }
300 7 31 if ($bond_type =~ m[^[\\/]$] and $atom->{'number'} > $neighbour->{'number'})