| line |
true |
false |
branch |
|
57
|
0 |
0 |
unless exists $indices{$i} |
|
82
|
68 |
80 |
if $ent->get_id == $id |
|
113
|
0 |
123 |
if (scalar @range > 1) { } |
|
116
|
0 |
0 |
if ($@) |
|
124
|
0 |
123 |
if ($@) |
|
159
|
174 |
1 |
if ($o{'-match'} and &looks_like_instance($o{'-match'}, 'Regexp')) { } |
|
160
|
13 |
160 |
if ($e->get($o{'-value'}) and $e->get($o{'-value'}) =~ /$o{'-match'}/) |
|
207
|
22 |
94 |
if ($o{'-eq'}) |
|
208
|
3 |
18 |
if ($e->get($o{'-value'}) and $e->get($o{'-value'}) == $o{'-eq'}) |
|
214
|
22 |
93 |
if ($o{'-le'}) |
|
215
|
5 |
16 |
if ($e->get($o{'-value'}) and $e->get($o{'-value'}) <= $o{'-le'}) |
|
221
|
24 |
90 |
if ($o{'-lt'}) |
|
222
|
6 |
17 |
if ($e->get($o{'-value'}) and $e->get($o{'-value'}) < $o{'-lt'}) |
|
228
|
24 |
89 |
if ($o{'-ge'}) |
|
229
|
18 |
5 |
if ($e->get($o{'-value'}) and $e->get($o{'-value'}) >= $o{'-ge'}) |
|
235
|
24 |
88 |
if ($o{'-gt'}) |
|
236
|
17 |
6 |
if ($e->get($o{'-value'}) and $e->get($o{'-value'}) > $o{'-gt'}) |
|
263
|
0 |
173 |
if (not defined $name or ref $name) |
|
268
|
173 |
435 |
if ($obj_name and $name eq $obj_name) |
|
300
|
193 |
0 |
if (&looks_like_instance($code, 'CODE')) { } |
|
335
|
17436 |
0 |
if (&blessed($obj)) { } |
|
338
|
0 |
871004 |
unless $ent |
|
339
|
17430 |
853574 |
if $ent->get_id == $id |
|
345
|
0 |
0 |
unless $ent |
|
346
|
0 |
0 |
if $ent eq $obj |
|
372
|
5 |
18279 |
if ($@ or $self_type != $obj_container) |
|
373
|
1 |
4 |
if (not $@) { } |
|
414
|
4 |
1 |
if (&looks_like_implementor($taxa, 'get_entities')) { } |
|
416
|
3 |
1 |
if ($ents and @{$ents;}) |
|
418
|
2 |
2 |
if (&looks_like_implementor($_, 'get_name') and &looks_like_implementor($_, 'set_taxon')) { } |
|
422
|
2 |
0 |
if ($tax and @{$tax;}) |
|
424
|
4 |
0 |
unless ($taxon->get_name and $_->get_name) |
|
428
|
0 |
0 |
if ($taxon->get_name eq $_->get_name) |
|
430
|
0 |
0 |
if ($_->_type == $DATUM) |
|
433
|
0 |
0 |
if ($_->_type == $NODE) |
|
446
|
1 |
1 |
if ($self->_type == $TREE) { } |
|
|
1 |
0 |
elsif ($self->_type == $MATRIX) { } |
|
517
|
0 |
0 |
if ($self->can('get_sets')) |
|
521
|
0 |
0 |
if ($self->is_in_set($ent, $set)) |
|
523
|
0 |
0 |
unless $contents{$tag} |