line |
true |
false |
branch |
58
|
0 |
0 |
unless exists $indices{$i}
|
83
|
68 |
80 |
if $ent->get_id == $id
|
114
|
0 |
123 |
if (scalar @range > 1) { }
|
117
|
0 |
0 |
if ($@)
|
125
|
0 |
123 |
if ($@)
|
160
|
174 |
1 |
if ($o{'-match'} and &looks_like_instance($o{'-match'}, 'Regexp')) { }
|
161
|
13 |
160 |
if ($e->get($o{'-value'}) and $e->get($o{'-value'}) =~ /$o{'-match'}/)
|
208
|
22 |
94 |
if ($o{'-eq'})
|
209
|
3 |
18 |
if ($e->get($o{'-value'}) and $e->get($o{'-value'}) == $o{'-eq'})
|
215
|
22 |
93 |
if ($o{'-le'})
|
216
|
5 |
16 |
if ($e->get($o{'-value'}) and $e->get($o{'-value'}) <= $o{'-le'})
|
222
|
24 |
90 |
if ($o{'-lt'})
|
223
|
6 |
17 |
if ($e->get($o{'-value'}) and $e->get($o{'-value'}) < $o{'-lt'})
|
229
|
24 |
89 |
if ($o{'-ge'})
|
230
|
18 |
5 |
if ($e->get($o{'-value'}) and $e->get($o{'-value'}) >= $o{'-ge'})
|
236
|
24 |
88 |
if ($o{'-gt'})
|
237
|
17 |
6 |
if ($e->get($o{'-value'}) and $e->get($o{'-value'}) > $o{'-gt'})
|
264
|
0 |
173 |
if (not defined $name or ref $name)
|
269
|
173 |
435 |
if ($obj_name and $name eq $obj_name)
|
301
|
193 |
0 |
if (&looks_like_instance($code, 'CODE')) { }
|
336
|
20064 |
0 |
if (&blessed($obj)) { }
|
339
|
0 |
1132085 |
unless $ent
|
340
|
20054 |
1112031 |
if $ent->get_id == $id
|
346
|
0 |
0 |
unless $ent
|
347
|
0 |
0 |
if $ent eq $obj
|
373
|
5 |
20930 |
if ($@ or $self_type != $obj_container)
|
374
|
1 |
4 |
if (not $@) { }
|
415
|
4 |
1 |
if (&looks_like_implementor($taxa, 'get_entities')) { }
|
417
|
3 |
1 |
if ($ents and @{$ents;})
|
419
|
2 |
2 |
if (&looks_like_implementor($_, 'get_name') and &looks_like_implementor($_, 'set_taxon')) { }
|
423
|
2 |
0 |
if ($tax and @{$tax;})
|
425
|
4 |
0 |
unless ($taxon->get_name and $_->get_name)
|
429
|
0 |
0 |
if ($taxon->get_name eq $_->get_name)
|
431
|
0 |
0 |
if ($_->_type == $DATUM)
|
434
|
0 |
0 |
if ($_->_type == $NODE)
|
447
|
1 |
1 |
if ($self->_type == $TREE) { }
|
|
1 |
0 |
elsif ($self->_type == $MATRIX) { }
|
518
|
0 |
0 |
if ($self->can('get_sets'))
|
522
|
0 |
0 |
if ($self->is_in_set($ent, $set))
|
524
|
0 |
0 |
unless $contents{$tag}
|