| line |
true |
false |
branch |
|
118
|
3 |
1 |
if $id |
|
121
|
0 |
4 |
if $model |
|
123
|
0 |
4 |
if ($chain) |
|
124
|
0 |
0 |
unless (defined $self->model) |
|
132
|
0 |
4 |
if $residue |
|
156
|
4 |
11 |
if (defined $model) |
|
157
|
4 |
0 |
if (ref $model eq 'ARRAY' or $model->isa('Bio::Structure::Model')) { } |
|
161
|
3 |
1 |
if (@obj) |
|
195
|
1 |
28 |
if (not defined $model and ref($entry) =~ /^Bio::Structure::Model/) |
|
200
|
0 |
29 |
unless (defined $entry and ref($entry) =~ /^Bio::Structure::Entry/) |
|
203
|
7 |
22 |
if (defined $model) |
|
204
|
1 |
6 |
if (ref $model eq 'ARRAY') { } |
|
|
6 |
0 |
elsif ($model->isa('Bio::Structure::Model')) { } |
|
207
|
0 |
2 |
unless ($m->isa('Bio::Structure::Model')) |
|
210
|
0 |
2 |
if ($self->_parent($m)) |
|
221
|
0 |
6 |
if ($self->_parent($model)) |
|
235
|
29 |
0 |
$array_ref ? : |
|
253
|
5 |
17 |
unless (defined $entry) |
|
273
|
5 |
2 |
if (defined $value) |
|
293
|
0 |
1 |
unless ($self->model) |
|
299
|
0 |
1 |
if (defined $chain) |
|
301
|
0 |
0 |
if (ref $chain eq 'ARRAY' or $chain->isa('Bio::Structure::Chain')) { } |
|
304
|
0 |
0 |
if (@obj) |
|
334
|
0 |
16 |
unless (ref($model) =~ /^Bio::Structure::Model/) |
|
337
|
7 |
9 |
if (defined $chain) |
|
338
|
0 |
7 |
if (ref $chain eq 'ARRAY') { } |
|
|
7 |
0 |
elsif ($chain->isa('Bio::Structure::Chain')) { } |
|
341
|
0 |
0 |
unless ($c->isa('Bio::Structure::Chain')) |
|
344
|
0 |
0 |
if ($self->_parent($c)) |
|
355
|
0 |
7 |
if ($self->_parent($chain)) |
|
369
|
16 |
0 |
$array_ref ? : |
|
386
|
1 |
8 |
unless (defined $model) |
|
407
|
0 |
1 |
unless ($self->model) |
|
414
|
0 |
1 |
unless ($self->get_chains($first_model)) |
|
421
|
0 |
1 |
if (defined $residue) |
|
422
|
0 |
0 |
if (ref $residue eq 'ARRAY' or $residue->isa('Bio::Structure::Residue')) { } |
|
426
|
0 |
0 |
if (@obj) |
|
456
|
0 |
172 |
unless (ref($chain) =~ /^Bio::Structure::Chain/) |
|
459
|
160 |
12 |
if (defined $residue) |
|
460
|
0 |
160 |
if (ref $residue eq 'ARRAY') { } |
|
|
160 |
0 |
elsif ($residue->isa('Bio::Structure::Residue')) { } |
|
463
|
0 |
0 |
unless ($r->isa('Bio::Structure::Residue')) |
|
466
|
0 |
0 |
if ($self->_parent($r)) |
|
477
|
0 |
160 |
if ($self->_parent($residue)) |
|
491
|
172 |
0 |
$array_ref ? : |
|
508
|
0 |
12 |
unless (defined $chain) |
|
529
|
0 |
826 |
unless (ref($residue) =~ /^Bio::Structure::Residue/) |
|
532
|
657 |
169 |
if (defined $atom) |
|
533
|
1 |
656 |
if (ref $atom eq 'ARRAY') { } |
|
|
656 |
0 |
elsif (ref($atom) =~ /^Bio::Structure::Atom/) { } |
|
536
|
0 |
3 |
unless ($a->isa('Bio::Structure::Atom')) |
|
539
|
0 |
3 |
if ($self->_parent($a)) |
|
551
|
0 |
656 |
if ($self->_parent($atom)) |
|
562
|
826 |
0 |
$array_ref ? : |
|
579
|
0 |
169 |
unless (defined $residue) |
|
627
|
0 |
40 |
unless (defined $source) |
|
630
|
32 |
8 |
if (defined $serial and defined $type) |
|
631
|
19 |
13 |
if (not exists do {
$$self{'conect'}
}->{$source} or ref !(do {
$$self{'conect'}
}->{$source} =~ /^ARRAY/)) |
|
641
|
0 |
40 |
unless exists $self->{'conect'}{$source} and defined $self->{'conect'}{$source} |
|
697
|
2 |
1 |
if (defined $value) |
|
720
|
1 |
0 |
unless (defined $chainid) |
|
735
|
5 |
0 |
if ($chid eq ' ') |
|
744
|
0 |
1 |
unless (exists $seq_ch{$chainid}) |
|
772
|
1 |
0 |
if ($model =~ /^\d+$/ and not defined $serial) |
|
777
|
0 |
1 |
unless (defined $model and ref($model) =~ /^Bio::Structure::Model/) |
|
780
|
0 |
1 |
unless (defined $serial and $serial =~ /^\d+$/) |
|
787
|
366 |
1 |
unless $atom->serial == $serial |
|
797
|
0 |
13 |
unless (defined $obj) |
|
825
|
4 |
113 |
if (defined $value) |
|
918
|
0 |
1678 |
unless (defined $key and ref($key) =~ /^Bio::/) |
|
921
|
0 |
1678 |
if (defined $value and not ref($value) =~ /^Bio::/) |
|
926
|
826 |
852 |
if (defined $value) |
|
928
|
0 |
0 |
if (defined $self->{'c_p'}{$key} and exists $self->{'c_p'}{$key}) |
|
960
|
0 |
1840 |
unless (defined $key and ref($key) =~ /^Bio::/) |
|
963
|
0 |
1840 |
if (defined $value and not ref($value) =~ /^Bio::/) |
|
968
|
826 |
1014 |
if (defined $value) |
|
969
|
170 |
656 |
unless (exists do {
$$self{'p_c'}
}->{$key} and ref(do {
$$self{'p_c'}
}->{$key}) =~ /^ARRAY/) |
|
992
|
0 |
0 |
unless (defined $object or ref($object) =~ /^Bio::/) |
|
995
|
0 |
5 |
if ($self->_parent($object)) |
|
999
|
0 |
0 |
if ($object eq do {
$$self{'p_c'}{$dad}
}->[$k]) |