| line |
true |
false |
branch |
|
71
|
0 |
7753 |
unless my $object_info = shift() |
|
86
|
27 |
7718 |
if ($object_info->{'object_type'} == 10) { } |
|
|
396 |
7322 |
elsif ($object_info->{'object_type'} == 13) { } |
|
|
394 |
6928 |
elsif ($object_info->{'object_type'} == 14) { } |
|
|
35 |
6893 |
elsif ($object_info->{'object_type'} == 15) { } |
|
|
657 |
6236 |
elsif ($object_info->{'object_type'} == 16) { } |
|
|
20 |
6216 |
elsif ($object_info->{'object_type'} == 24) { } |
|
|
235 |
5981 |
elsif ($object_info->{'object_type'} == 19) { } |
|
|
25 |
5956 |
elsif ($object_info->{'object_type'} == 20) { } |
|
|
2365 |
3591 |
elsif ($object_info->{'object_type'} == 9) { } |
|
|
1162 |
2429 |
elsif ($object_info->{'object_type'} == 2) { } |
|
|
135 |
2294 |
elsif ($object_info->{'object_type'} == 6) { } |
|
|
706 |
1588 |
elsif ($object_info->{'object_type'} == 1) { } |
|
|
20 |
1568 |
elsif ($object_info->{'object_type'} == 4) { } |
|
|
0 |
1568 |
elsif ($object_info->{'object_type'} == 3) { } |
|
|
10 |
1558 |
elsif ($object_info->{'object_type'} == 25) { } |
|
|
5 |
1553 |
elsif ($object_info->{'object_type'} == 251) { } |
|
|
5 |
1548 |
elsif ($object_info->{'object_type'} == 241) { } |
|
|
5 |
1543 |
elsif ($object_info->{'object_type'} == 242) { } |
|
|
42 |
1501 |
elsif ($object_info->{'object_type'} == 253) { } |
|
|
924 |
577 |
elsif ($object_info->{'object_type'} == 254) { } |
|
|
577 |
0 |
elsif ($object_info->{'object_type'} == 255) { } |
|
158
|
23 |
1274 |
if ($object_info->{'has_attributes'}) |
|
161
|
943 |
354 |
if ($object_info->{'has_tag'}) |
|
167
|
0 |
1297 |
unless shift() |
|
169
|
943 |
354 |
if $object_info->{'has_tag'} |
|
170
|
23 |
1274 |
if $object_info->{'has_attributes'} |
|
175
|
0 |
1297 |
unless shift() |
|
177
|
785 |
512 |
if (ref $cdr eq ref []) { } |
|
|
0 |
512 |
elsif (not $cdr->is_null) { } |
|
199
|
0 |
135 |
unless my $list = shift() |
|
207
|
34 |
354 |
$tag ? : |
|
209
|
23 |
365 |
if (exists $element->{'attributes'}) |
|
213
|
0 |
230 |
if exists $attributes{$key} |
|
221
|
17 |
118 |
if (grep {exists $_->{'tag'};} @$list) |
|
224
|
40 |
95 |
if %attributes |
|
233
|
369 |
374 |
unless ref $list eq ref [] |
|
238
|
0 |
903 |
if exists $element->{'attribute'} |
|
253
|
33 |
22 |
if ($row_names and $row_names->type eq 'integer' and not defined $row_names->elements->[0]) |
|
274
|
1779 |
10 |
if ($len >= 0) { } |
|
|
5 |
5 |
elsif ($len == -1) { } |
|
291
|
287 |
1447 |
if ($object_info->{'has_attributes'}) |
|
297
|
0 |
1725 |
unless shift() |
|
299
|
287 |
1438 |
if ($object_info->{'has_attributes'}) |
|
313
|
59 |
10 |
$x != 2147483648 ? : |
|
340
|
5 |
30 |
if ($object_info->{'has_attributes'}) |
|
346
|
0 |
35 |
unless shift() |
|
347
|
0 |
35 |
unless shift @args |
|
351
|
50 |
5 |
if (defined $re and defined $im) { } |
|
359
|
5 |
30 |
if ($object_info->{'has_attributes'}) |
|
377
|
0 |
20 |
if $object_info->{'has_attributes'} |
|
406
|
2358 |
7 |
if ($len >= 0) { } |
|
|
6 |
1 |
elsif ($len == -1) { } |
|
409
|
0 |
2358 |
unless shift() |
|
433
|
0 |
577 |
if $ref_id == 0 |
|
452
|
20 |
0 |
if ($hash->can('elements')) |
|
461
|
23 |
0 |
unless exists $vars{$name} and die "Variable $name is already defined in the environment" |
|
471
|
5 |
15 |
if (ref $attributes eq ref []) |
|
491
|
0 |
0 |
if (ref $arguments eq ref []) |
|
496
|
0 |
0 |
if ('Statistics::R::REXP::Symbol'->new('') eq $default) { } |
|
510
|
0 |
0 |
if ($object_info->{'has_attributes'}) |
|
527
|
0 |
10 |
unless ref $class eq 'ARRAY' and scalar @{$class;} == 1 |
|
530
|
0 |
10 |
unless ref $package eq 'ARRAY' and scalar @{$package;} == 1 |
|
545
|
0 |
314 |
if ref $data and ref $data ne ref [] |
|
552
|
303 |
0 |
if ($result) |
|
554
|
0 |
303 |
unless $state->eof |