Branch Coverage

blib/lib/Chemistry/File/SLN.pm
Criterion Covered Total %
branch 77 96 80.2


line true false branch
160 72 0 unless wantarray
173 0 72 unless my $tree = $Parser->run($string)
183 79 552 if ($node eq '(') { }
79 473 elsif ($node eq ')') { }
401 72 elsif ($last_atom) { }
189 23 378 if ($$next{'closure'}) { }
201 0 72 if ($opts{'kekulize'})
207 66 2 if ($attr eq 'name') { }
0 2 elsif ($attr eq 'type') { }
0 2 elsif ($attr eq 'coord3d') { }
217 1 71 if @sln_attr
231 23 427 if $$node{'id'}
246 396 5 if ($order)
253 66 330 if ($$node{'type'} eq ':')
268 0 0 if ($sprout)
288 0 73 if ($opts{'mols'}) { }
311 73 0 if ($mol->atoms)
317 375 78 if $$visited{$atom}
338 0 73 if ($opts{'unique'})
339 0 0 unless ($atoms[0]->attr('canon/class'))
349 0 73 if ($opts{'aromatic'})
360 0 2 if ($$opts{'name'} or $$opts{'attr'} or $$opts{'coords'} or $$opts{'coord3d'})
365 66 5 if $$opts{'name'} and length $mol->name
368 0 71 if ($$opts{'coord3d'} or $$opts{'coords'})
380 71 0 if ($$opts{'attr'})
383 66 5 if @attr
396 398 398 if $$visited{$bond}
398 23 375 if ($$visited{$nei}) { }
415 23 430 if ($$digits{$atom})
428 398 398 if $$visited{$bond}
430 23 375 if ($$visited{$nei}) { }
431 6 17 if ($prev_branch)
440 73 302 if ($prev_branch)
459 0 0 unless my($neighbor) = $atom->neighbors
470 0 906 if ($$opts{'unique'})
484 78 398 unless $bond
485 66 332 $bond->aromatic ? :
487 394 4 if $$opts{'attr'}
488 1 397 if (@attr)
502 4 449 $charge ? :
503 195 90 $h_count > 1 ? :
285 168 $h_count ? :
507 447 6 if $$opts{'attr'}
508 23 426 if ($charge or $digit or @attr)
511 4 23 if $charge
512 5 22 if (@attr)
513 1 4 if $digit
528 2 4 $val eq 'TRUE' ? :