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)
154 0 439 unless defined(my $line = readline $fh)
159 0 439 if $OLD_CHARGE_MAP{$charge}
160 0 439 if $charge and $charge == 4
163 1 438 if (int $mass and eval { do { require Chemistry::Isotope } }) { }
0 438 elsif (int $mass) { }
184 0 451 unless defined($_ = readline $fh)
187 450 1 $type =~ /^[123]$/ ? :
193 9 442 if ($mol->isa("Chemistry::Pattern"))
200 33 13 if (/^M END/ or /^\$\$\$\$/) { }
12 1 elsif (/^M (...)/) { }
203 10 2 if ($1 eq "CHG" or $1 eq "RAD")
210 12 0 if $self->can($method)
223 33 0 if ($opts{'slurp'})
229 2 31 if ($mol->isa("Chemistry::Pattern"))
241 1 8 if $s
243 1 8 if $s
244 1 8 if (@bond_exprs) { }
253 0 1 if $DEBUG
264 103 35 $patt->aromatic ? :
296 0 1 unless $line =~ /^M ALS (...)(...) (.)/
299 0 1 $exclude =~ /^[Tt]$/ ? :
312 1 0 if ($mol->isa("Chemistry::Pattern"))
320 0 1 if $DEBUG
321 0 1 if $DEBUG
360 1 175 if $atom->formal_charge
361 2 174 if $atom->mass_number
362 1 175 if $atom->formal_radical
374 0 1 @charged_atoms > 8 ? :
382 0 1 @isotope_atoms > 8 ? :
390 0 1 @radical_atoms > 8 ? :