Branch Coverage

blib/lib/Chemistry/File/MDLMol.pm
Criterion Covered Total %
branch 47 64 73.4


line true false branch
125 33 33 if $fh->eof
144 0 33 unless defined($_ = readline $fh)
152 0 439 unless defined(my $line = readline $fh)
157 0 439 if $OLD_CHARGE_MAP{$charge}
158 0 439 if $charge and $charge == 4
161 1 438 if (int $mass and eval { do { require Chemistry::Isotope } }) { }
0 438 elsif (int $mass) { }
182 0 451 unless defined($_ = readline $fh)
185 450 1 $type =~ /^[123]$/ ? :
191 9 442 if ($mol->isa('Chemistry::Pattern'))
198 33 13 if (/^M END/ or /^\$\$\$\$/) { }
12 1 elsif (/^M (...)/) { }
201 10 2 if ($1 eq 'CHG' or $1 eq 'RAD')
208 12 0 if $self->can($method)
221 33 0 if ($opts{'slurp'})
227 2 31 if ($mol->isa('Chemistry::Pattern'))
239 1 8 if $s
241 1 8 if $s
242 1 8 if (@bond_exprs) { }
251 0 1 if $DEBUG
262 103 35 $patt->aromatic ? :
294 0 1 unless $line =~ /^M ALS (...)(...) (.)/
297 0 1 $exclude =~ /^[Tt]$/ ? :
310 1 0 if ($mol->isa('Chemistry::Pattern'))
318 0 1 if $DEBUG
319 0 1 if $DEBUG
358 1 175 if $atom->formal_charge
359 2 174 if $atom->mass_number
360 1 175 if $atom->formal_radical
372 0 1 @charged_atoms > 8 ? :
380 0 1 @isotope_atoms > 8 ? :
388 0 1 @radical_atoms > 8 ? :