Branch Coverage

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


line true false branch
120 0 0 if ($check ne 0)
128 0 0 if ($dproj ne 0)
130 0 0 if (dot(@proj, @target) < 0)
146 0 0 unless $file
149 0 0 if ($file =~ /\.gz$/) { }
153 0 0 unless open $fh, "< $file"
170 0 0 unless $pdb_code
171 0 0 unless defined $chain
174 0 0 unless $pdb_code =~ /[A-z0-9]{4}/
190 0 0 if (-e $uncompressed) { }
0 0 elsif (-e $compressed) { }
0 0 elsif (-e $uncompressed_ch) { }
0 0 elsif (-e $compressed_ch) { }
222 0 0 unless $pdb_code
223 0 0 unless defined $chain
226 0 0 unless $pdb_code =~ /[A-z0-9]{4}/
242 0 0 if (-e $uncompressed) { }
0 0 elsif (-e $compressed) { }
0 0 elsif (-e $uncompressed_ch) { }
0 0 elsif (-e $compressed_ch) { }
275 0 0 unless $pdb_code
276 0 0 unless defined $chain
279 0 0 unless $pdb_code =~ /[A-z0-9]{4}/
295 0 0 if (-e $uncompressed) { }
0 0 elsif (-e $compressed) { }
0 0 elsif (-e $uncompressed_ch) { }
0 0 elsif (-e $compressed_ch) { }
326 0 0 if ($DEBUG)
334 0 0 unless $pdb_code
335 0 0 unless $chain
338 0 0 unless $pdb_code =~ /[A-z0-9]{4}/
344 0 0 if $path
346 0 0 unless $path
361 0 0 if ($DEBUG)
369 0 0 unless $pdb_code
370 0 0 unless defined $chain
373 0 0 unless $pdb_code =~ /[A-z0-9]{4}/
378 0 0 if $path
381 0 0 if $path
384 0 0 if $path
386 0 0 unless $path
430 0 0 if ($data->[0] =~ m[/]) { }
433 0 0 if ($filename =~ /pdb(\w{4}).*/) { }
0 0 elsif ($filename =~ /(\w{4}).*/) { }
463 0 0 if ($string ne 'CB') { }
467 0 0 if ($line =~ /ATOM\s+-*\d+\s+$string\s+(\w+)\s$chain\s*(-*\d+\w?\s)/)
472 0 0 if ($id =~ /(-*\d+)\D/)
473 0 0 if ($id ne $prevres)
474 0 0 if ($id > $endres) { }
0 0 elsif ($id >= $startres) { }
502 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)/) { }
505 0 0 if ($id =~ /(-*\d+)\D/)
506 0 0 if ($id ne $prevres)
507 0 0 if ($id > $endres) { }
0 0 elsif ($id >= $startres) { }
531 0 0 if ($id =~ /(-*\d+)\D/)
532 0 0 if ($id ne $prevres)
533 0 0 if ($id > $endres) { }
0 0 elsif ($id >= $startres) { }
559 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') { }
589 0 0 if ($aa eq 'A')
590 0 0 if ($aa eq 'C')
591 0 0 if ($aa eq 'D')
592 0 0 if ($aa eq 'E')
593 0 0 if ($aa eq 'F')
594 0 0 if ($aa eq 'G')
595 0 0 if ($aa eq 'H')
596 0 0 if ($aa eq 'I')
597 0 0 if ($aa eq 'K')
598 0 0 if ($aa eq 'L')
599 0 0 if ($aa eq 'M')
600 0 0 if ($aa eq 'N')
601 0 0 if ($aa eq 'P')
602 0 0 if ($aa eq 'Q')
603 0 0 if ($aa eq 'R')
604 0 0 if ($aa eq 'S')
605 0 0 if ($aa eq 'T')
606 0 0 if ($aa eq 'V')
607 0 0 if ($aa eq 'W')
608 0 0 if ($aa eq 'Y')
682 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]) { }
690 0 0 if ($evec[$i] * ($p[0][-1][$i] - $p[0][0][$i]) < 0) { }
725 0 0 if ($type eq 'H')
729 0 0 if ($ss == 1) { }
755 0 0 if ($ss == 1) { }
787 0 0 if ($type eq 'H') { }
844 0 0 if ($evec[0] ** 2 + $evec[1] ** 2 + $evec[2] ** 2 < 0.01)
850 0 0 if ($evec[0] ** 2 + $evec[1] ** 2 + $evec[2] ** 2 < 0.01)
911 0 0 if ($eigs[0] > $eigs[1] and $eigs[0] > $eigs[2]) { }
0 0 elsif ($eigs[1] > $eigs[2]) { }
913 0 0 if ($eigs[1] > $eigs[2]) { }
924 0 0 if ($eigs[0] > $eigs[2]) { }
935 0 0 if ($eigs[0] > $eigs[1]) { }
1089 0 0 if ($cos ne 1)
1197 0 0 if ($_ > $m)
1211 0 0 if ($_ < $m)
1224 0 0 if ($val <= 40)
1353 0 0 if ($t ne 0)
1443 0 0 if ($t ne 0)
1450 0 0 if ($rms > 0) { }
1489 0 0 if (abs($evec[0]) + abs($evec[1]) + abs($evec[2]) + abs($evec[3]) < 0.001)
1525 0 0 if ($evec[0] ** 2 + $evec[1] ** 2 + $evec[2] ** 2 + $evec[3] ** 2 < 0.001)
1557 0 0 if ($evec[0] ** 2 + $evec[1] ** 2 + $evec[2] ** 2 + $evec[3] ** 2 < 0.001)
1646 0 0 if (dot(@v23, @dirvec) < 0)