| line |
true |
false |
branch |
|
71
|
0 |
21045 |
unless my $object_info = shift() |
|
86
|
75 |
20962 |
if ($object_info->{'object_type'} == 10) { } |
|
|
1064 |
19898 |
elsif ($object_info->{'object_type'} == 13) { } |
|
|
1082 |
18816 |
elsif ($object_info->{'object_type'} == 14) { } |
|
|
91 |
18725 |
elsif ($object_info->{'object_type'} == 15) { } |
|
|
1777 |
16948 |
elsif ($object_info->{'object_type'} == 16) { } |
|
|
48 |
16900 |
elsif ($object_info->{'object_type'} == 24) { } |
|
|
631 |
16269 |
elsif ($object_info->{'object_type'} == 19) { } |
|
|
65 |
16204 |
elsif ($object_info->{'object_type'} == 20) { } |
|
|
6439 |
9765 |
elsif ($object_info->{'object_type'} == 9) { } |
|
|
3182 |
6583 |
elsif ($object_info->{'object_type'} == 2) { } |
|
|
363 |
6220 |
elsif ($object_info->{'object_type'} == 6) { } |
|
|
1880 |
4340 |
elsif ($object_info->{'object_type'} == 1) { } |
|
|
52 |
4288 |
elsif ($object_info->{'object_type'} == 4) { } |
|
|
0 |
4288 |
elsif ($object_info->{'object_type'} == 3) { } |
|
|
26 |
4262 |
elsif ($object_info->{'object_type'} == 25) { } |
|
|
13 |
4249 |
elsif ($object_info->{'object_type'} == 251) { } |
|
|
13 |
4236 |
elsif ($object_info->{'object_type'} == 241) { } |
|
|
13 |
4223 |
elsif ($object_info->{'object_type'} == 242) { } |
|
|
110 |
4113 |
elsif ($object_info->{'object_type'} == 253) { } |
|
|
2482 |
1631 |
elsif ($object_info->{'object_type'} == 254) { } |
|
|
1631 |
0 |
elsif ($object_info->{'object_type'} == 255) { } |
|
158
|
63 |
3482 |
if ($object_info->{'has_attributes'}) |
|
161
|
2591 |
954 |
if ($object_info->{'has_tag'}) |
|
167
|
0 |
3545 |
unless shift() |
|
169
|
2591 |
954 |
if $object_info->{'has_tag'} |
|
170
|
63 |
3482 |
if $object_info->{'has_attributes'} |
|
175
|
0 |
3545 |
unless shift() |
|
177
|
2155 |
1390 |
if (ref $cdr eq ref []) { } |
|
|
0 |
1390 |
elsif (not $cdr->is_null) { } |
|
199
|
0 |
363 |
unless my $list = shift() |
|
207
|
90 |
954 |
$tag ? : |
|
209
|
63 |
981 |
if (exists $element->{'attributes'}) |
|
213
|
0 |
630 |
if exists $attributes{$key} |
|
221
|
45 |
318 |
if (grep {exists $_->{'tag'};} @$list) |
|
224
|
108 |
255 |
if %attributes |
|
233
|
981 |
1024 |
unless ref $list eq ref [] |
|
238
|
0 |
2495 |
if exists $element->{'attribute'} |
|
253
|
89 |
62 |
if ($row_names and $row_names->type eq 'integer' and not defined $row_names->elements->[0]) |
|
274
|
4823 |
10 |
if ($len >= 0) { } |
|
|
5 |
5 |
elsif ($len == -1) { } |
|
291
|
787 |
3907 |
if ($object_info->{'has_attributes'}) |
|
297
|
0 |
4685 |
unless shift() |
|
299
|
787 |
3898 |
if ($object_info->{'has_attributes'}) |
|
313
|
171 |
26 |
$x != 2147483648 ? : |
|
340
|
13 |
78 |
if ($object_info->{'has_attributes'}) |
|
346
|
0 |
91 |
unless shift() |
|
347
|
0 |
91 |
unless shift @args |
|
351
|
130 |
13 |
if (defined $re and defined $im) { } |
|
359
|
13 |
78 |
if ($object_info->{'has_attributes'}) |
|
377
|
0 |
48 |
if $object_info->{'has_attributes'} |
|
406
|
6424 |
15 |
if ($len >= 0) { } |
|
|
14 |
1 |
elsif ($len == -1) { } |
|
409
|
0 |
6424 |
unless shift() |
|
433
|
0 |
1631 |
if $ref_id == 0 |
|
452
|
52 |
0 |
if ($hash->can('elements')) |
|
461
|
59 |
0 |
unless exists $vars{$name} and die "Variable $name is already defined in the environment" |
|
471
|
13 |
39 |
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 |
26 |
unless ref $class eq 'ARRAY' and scalar @{$class;} == 1 |
|
530
|
0 |
26 |
unless ref $package eq 'ARRAY' and scalar @{$package;} == 1 |
|
545
|
0 |
780 |
if ref $data and ref $data ne ref [] |
|
552
|
769 |
0 |
if ($result) |
|
554
|
0 |
769 |
unless $state->eof |