Branch Coverage

blib/lib/Bio/PDB/Structure.pm
Criterion Covered Total %
branch 80 150 53.3


line true false branch
30 179 60 if (@_)
42 179 60 if (@_)
54 179 91 if (@_)
66 179 60 if (@_)
78 179 60 if (@_)
90 179 62 if (@_)
102 295 490 if (@_)
114 295 490 if (@_)
126 295 490 if (@_)
138 175 60 if (@_)
150 175 60 if (@_)
162 0 0 if (@_)
174 0 0 if (@_)
188 0 3 if $n != 2
203 0 1 if $n != 3
224 0 1 if $n != 4
266 1 0 if $dot2 < 0
299 0 421 unless $n == 1
309 0 176 unless $n == 1
311 175 1 if ref $object eq 'Bio::PDB::Structure::Atom'
312 1 175 if (ref $object eq 'Bio::PDB::Structure::Molecule')
328 0 1 unless open CMDFPDB, "<$fname"
332 2 58 if /^END/u
358 0 6 unless @_
360 0 6 if @_
361 0 6 unless open FPDB, "<$fname"
362 0 6 if ($record > 0)
367 0 0 if (/^END/u)
369 0 0 if $rcount == $record
376 6 174 if /^END/u
377 0 174 unless /^ATOM |^HETATM /u
385 0 174 if $chain eq ''
389 0 174 unless $coor =~ /\d/u
391 0 174 unless $beta =~ /\d/u
405 0 174 if $altloc ne ' '
406 0 174 if $icode ne ' '
564 2 0 if ($n == 0) { }
571 0 0 unless open OFIL, ">>$_[0]"
592 58 0 if defined $atom_name{$aname}
597 0 2 if $n >= 1
616 3 0 if $nrd > 0
617 3 0 if $nrd > 0
618 3 0 if $nrd > 0
675 0 29 if defined $mass2{$aname}
676 29 0 unless ($match)
680 29 80 if ($aname =~ /$ii/u)
688 29 0 if ($match == 1) { }
0 0 elsif ($match == 2) { }
706 1 0 if $tmass > 0
707 1 0 if $tmass > 0
708 1 0 if $tmass > 0
728 0 2 unless $n == 3
750 0 2 unless $n == 9
788 0 1 unless $n == 12
811 0 1 unless $n == 1
824 0 1 unless $nrd1 == $nrd2
930 0 1 unless $n == 1
937 0 1 unless $nrd1 == $nrd2
949 1 0 if $nrd1 > 0
963 0 0 if $iatom->type eq 'ATOM'
976 0 0 if $iatom->type eq 'HETATM'
989 0 0 if $iatom->type eq 'ATOM' and $iatom->name eq 'CA'
1003 0 0 if $iatom->type ne 'ATOM'
1005 0 0 if grep /^$name$/u, @batoms
1019 0 0 if $iatom->type ne 'ATOM'
1021 0 0 unless grep /^$name$/u, @batoms
1032 0 0 if $ni != 1
1089 0 0 if $@
1093 0 0 if eval $logic
1136 1 4 if $onorm / $dnorm <= 1e-12
1142 24 0 if (abs $b > 0)
1145 2 22 if (abs($dma) + abs($b) <= abs $dma) { }
1153 5 17 if $q < 0
1197 2 4 if ($d[$i] < $dtemp)
1204 2 1 if ($k > $j)