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) |