Branch Coverage

lib/SmotifTF/GeometricalCalculations.pm
Criterion Covered Total %
branch 0 246 0.0


line true false branch
122 0 0 if ($check ne 0)
130 0 0 if ($dproj ne 0)
132 0 0 if (dot(@proj, @target) < 0)
145 0 0 unless $name
151 0 0 unless open FILE1, $filename or open FILE1, $filename2
165 0 0 unless $file
168 0 0 if ($file =~ /\.gz$/) { }
172 0 0 unless open $fh, "< $file"
189 0 0 unless $pdb_code
192 0 0 unless $pdb_code =~ /[A-z0-9]{4}/
202 0 0 if (-e $uncompressed) { }
0 0 elsif (-e $compressed) { }
227 0 0 unless $pdb_code
230 0 0 unless $pdb_code =~ /[A-z0-9]{4}/
240 0 0 if (-e $uncompressed) { }
0 0 elsif (-e $compressed) { }
266 0 0 unless $pdb_code
267 0 0 unless $chain
270 0 0 unless $pdb_code =~ /[A-z0-9]{4}/
280 0 0 if (-e $uncompressed) { }
0 0 elsif (-e $compressed) { }
306 0 0 unless $pdb_code
307 0 0 unless $chain
310 0 0 unless $pdb_code =~ /[A-z0-9]{4}/
320 0 0 if (-e $uncompressed) { }
0 0 elsif (-e $compressed) { }
344 0 0 if ($DEBUG)
352 0 0 unless $pdb_code
353 0 0 unless $chain
356 0 0 unless $pdb_code =~ /[A-z0-9]{4}/
362 0 0 if $path
365 0 0 if $path
367 0 0 unless $path
382 0 0 if ($DEBUG)
390 0 0 unless $pdb_code
393 0 0 unless $pdb_code =~ /[A-z0-9]{4}/
398 0 0 if $path
401 0 0 if $path
404 0 0 if $path
406 0 0 unless $path
450 0 0 if ($$data[0] =~ m[/]) { }
453 0 0 if ($filename =~ /pdb(\w{4}).*/) { }
0 0 elsif ($filename =~ /(\w{4}).*/) { }
483 0 0 if ($string ne 'CB') { }
487 0 0 if ($line =~ /ATOM\s+-*\d+\s+$string\s+(\w+)\s$chain\s*(-*\d+\w?\s)/)
492 0 0 if ($id =~ /(-*\d+)\D/)
493 0 0 if ($id ne $prevres)
494 0 0 if ($id > $endres) { }
0 0 elsif ($id >= $startres) { }
522 0 0 if ($line =~ /ATOM\s+-*\d+\s+CB\s+(\w+)\s$chain\s*(-*\d+\w?\s)/) { }
0 0 elsif ($prevline =~ /ATOM\s+-*\d+\s+O\s+(\w+)\s$chain\s*(-*\d+\w?\s)/) { }
525 0 0 if ($id =~ /(-*\d+)\D/)
526 0 0 if ($id ne $prevres)
527 0 0 if ($id > $endres) { }
0 0 elsif ($id >= $startres) { }
551 0 0 if ($id =~ /(-*\d+)\D/)
552 0 0 if ($id ne $prevres)
553 0 0 if ($id > $endres) { }
0 0 elsif ($id >= $startres) { }
579 0 0 if ($inp eq 'ALA') { }
0 0 elsif ($inp eq 'CYS') { }
0 0 elsif ($inp eq 'ASP') { }
0 0 elsif ($inp eq 'GLU') { }
0 0 elsif ($inp eq 'PHE') { }
0 0 elsif ($inp eq 'GLY') { }
0 0 elsif ($inp eq 'HIS') { }
0 0 elsif ($inp eq 'ILE') { }
0 0 elsif ($inp eq 'LYS') { }
0 0 elsif ($inp eq 'LEU') { }
0 0 elsif ($inp eq 'MET') { }
0 0 elsif ($inp eq 'ASN') { }
0 0 elsif ($inp eq 'PRO') { }
0 0 elsif ($inp eq 'GLN') { }
0 0 elsif ($inp eq 'ARG') { }
0 0 elsif ($inp eq 'SER') { }
0 0 elsif ($inp eq 'THR') { }
0 0 elsif ($inp eq 'VAL') { }
0 0 elsif ($inp eq 'TRP') { }
609 0 0 if ($aa eq 'A')
610 0 0 if ($aa eq 'C')
611 0 0 if ($aa eq 'D')
612 0 0 if ($aa eq 'E')
613 0 0 if ($aa eq 'F')
614 0 0 if ($aa eq 'G')
615 0 0 if ($aa eq 'H')
616 0 0 if ($aa eq 'I')
617 0 0 if ($aa eq 'K')
618 0 0 if ($aa eq 'L')
619 0 0 if ($aa eq 'M')
620 0 0 if ($aa eq 'N')
621 0 0 if ($aa eq 'P')
622 0 0 if ($aa eq 'Q')
623 0 0 if ($aa eq 'R')
624 0 0 if ($aa eq 'S')
625 0 0 if ($aa eq 'T')
626 0 0 if ($aa eq 'V')
627 0 0 if ($aa eq 'W')
628 0 0 if ($aa eq 'Y')
702 0 0 if (abs $evec[0] >= abs $evec[1] and abs $evec[0] >= abs $evec[2]) { }
0 0 elsif (abs $evec[1] >= abs $evec[2]) { }
710 0 0 if ($evec[$i] * ($p[0][-1][$i] - $p[0][0][$i]) < 0) { }
745 0 0 if ($type eq 'H')
749 0 0 if ($ss == 1) { }
775 0 0 if ($ss == 1) { }
807 0 0 if ($type eq 'H') { }
864 0 0 if ($evec[0] ** 2 + $evec[1] ** 2 + $evec[2] ** 2 < 0.01)
870 0 0 if ($evec[0] ** 2 + $evec[1] ** 2 + $evec[2] ** 2 < 0.01)
931 0 0 if ($eigs[0] > $eigs[1] and $eigs[0] > $eigs[2]) { }
0 0 elsif ($eigs[1] > $eigs[2]) { }
933 0 0 if ($eigs[1] > $eigs[2]) { }
944 0 0 if ($eigs[0] > $eigs[2]) { }
955 0 0 if ($eigs[0] > $eigs[1]) { }
1109 0 0 if ($cos ne 1)
1217 0 0 if ($_ > $m)
1231 0 0 if ($_ < $m)
1244 0 0 if ($val <= 40)
1373 0 0 if ($t ne 0)
1463 0 0 if ($t ne 0)
1470 0 0 if ($rms > 0) { }
1509 0 0 if (abs($evec[0]) + abs($evec[1]) + abs($evec[2]) + abs($evec[3]) < 0.001)
1545 0 0 if ($evec[0] ** 2 + $evec[1] ** 2 + $evec[2] ** 2 + $evec[3] ** 2 < 0.001)
1577 0 0 if ($evec[0] ** 2 + $evec[1] ** 2 + $evec[2] ** 2 + $evec[3] ** 2 < 0.001)
1666 0 0 if (dot(@v23, @dirvec) < 0)