| 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
|
22465 |
0 |
if (&blessed($obj)) { }
|
|
338
|
0 |
959067 |
unless $ent
|
|
339
|
22459 |
936608 |
if $ent->get_id == $id
|
|
345
|
0 |
0 |
unless $ent
|
|
346
|
0 |
0 |
if $ent eq $obj
|
|
372
|
5 |
23353 |
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}
|