| line |
true |
false |
branch |
|
106
|
0 |
1098 |
if ($is_long) { } |
|
128
|
17 |
1081 |
if ($object_info->{'object_type'} == 0) { } |
|
|
120 |
961 |
elsif ($object_info->{'object_type'} == 32) { } |
|
|
14 |
947 |
elsif ($object_info->{'object_type'} == 36) { } |
|
|
123 |
824 |
elsif ($object_info->{'object_type'} == 33) { } |
|
|
21 |
803 |
elsif ($object_info->{'object_type'} == 38) { } |
|
|
194 |
609 |
elsif ($object_info->{'object_type'} == 34) { } |
|
|
9 |
600 |
elsif ($object_info->{'object_type'} == 37) { } |
|
|
69 |
531 |
elsif ($object_info->{'object_type'} == 16) { } |
|
|
15 |
516 |
elsif ($object_info->{'object_type'} == 26) { } |
|
|
0 |
516 |
elsif ($object_info->{'object_type'} == 20) { } |
|
|
100 |
416 |
elsif ($object_info->{'object_type'} == 21) { } |
|
|
37 |
379 |
elsif ($object_info->{'object_type'} == 22) { } |
|
|
5 |
374 |
elsif ($object_info->{'object_type'} == 23) { } |
|
|
350 |
24 |
elsif ($object_info->{'object_type'} == 19) { } |
|
|
0 |
24 |
elsif ($object_info->{'object_type'} == 18) { } |
|
|
18 |
6 |
elsif ($object_info->{'object_type'} == 48) { } |
|
|
6 |
0 |
elsif ($object_info->{'object_type'} == 7) { } |
|
194
|
0 |
1098 |
unless my $state = shift() |
|
197
|
100 |
998 |
if ($object_info->{'has_attributes'}) |
|
199
|
0 |
100 |
unless my $result = dt_sexp_data()->($state) |
|
214
|
0 |
100 |
unless my $list = shift() |
|
218
|
0 |
100 |
if exists $list->{'attributes'} and grep {$_ ne 'names';} keys %{$$list{'attributes'};} |
|
222
|
0 |
100 |
unless scalar @elements == scalar @names |
|
238
|
12 |
6 |
if ($row_names and $row_names->type eq 'integer' and not defined $row_names->elements->[0]) |
|
255
|
0 |
6 |
unless ref $class eq 'ARRAY' and scalar @{$class;} == 1 |
|
258
|
0 |
6 |
unless ref $package eq 'ARRAY' and scalar @{$package;} == 1 |
|
274
|
0 |
350 |
unless shift() |
|
286
|
0 |
18 |
unless my $sexp_id = shift() |
|
289
|
3 |
15 |
if ($attributes) |
|
301
|
120 |
0 |
if ($object_info->{'length'} % 4 == 0) { } |
|
305
|
0 |
120 |
unless shift() |
|
307
|
18 |
102 |
if ($attributes) |
|
322
|
123 |
0 |
if ($object_info->{'length'} % 8 == 0) { } |
|
326
|
0 |
123 |
unless shift() |
|
328
|
18 |
105 |
if ($attributes) |
|
343
|
21 |
0 |
if ($object_info->{'length'} % 16 == 0) { } |
|
347
|
0 |
21 |
unless shift() |
|
350
|
30 |
3 |
if (defined $re and defined $im) { } |
|
358
|
3 |
18 |
if ($attributes) |
|
374
|
14 |
0 |
if ($dt_length) { } |
|
385
|
0 |
14 |
unless shift() |
|
387
|
6 |
25 |
$_ == 2 ? : |
|
389
|
1 |
13 |
if ($attributes) |
|
405
|
9 |
0 |
if ($dt_length) { } |
|
416
|
0 |
9 |
unless shift() |
|
430
|
188 |
6 |
if ($length) { } |
|
439
|
2802 |
482 |
if (ord $ch) { } |
|
443
|
3 |
479 |
if ($element eq "\377") { } |
|
457
|
15 |
173 |
if ($attributes) |
|
478
|
0 |
231 |
unless my $result = dt_sexp_data()->($state) |
|
484
|
30 |
54 |
if ($attributes) |
|
497
|
0 |
15 |
if ($attributes) |
|
509
|
142 |
0 |
if ($length) { } |
|
516
|
0 |
356 |
unless my $result = dt_sexp_data()->($state) |
|
522
|
250 |
106 |
if ($object_info->{'has_tags'}) |
|
523
|
0 |
250 |
unless $result = dt_sexp_data()->($state) |
|
526
|
245 |
5 |
unless $tag->is_null |
|
550
|
0 |
100 |
unless my $list = shift() |
|
558
|
235 |
0 |
$tag ? : |
|
564
|
100 |
0 |
if (grep {exists $_->{'tag'};} @$list) |
|
587
|
0 |
42 |
unless my $list = shift() |
|
595
|
10 |
111 |
$tag ? : |
|
601
|
5 |
37 |
if (grep {exists $_->{'tag'};} @$list) |
|
605
|
11 |
31 |
if $attributes |
|
618
|
0 |
0 |
unless shift() |
|
620
|
0 |
0 |
if (ref $args eq ref []) |
|
623
|
0 |
0 |
if ('Statistics::R::REXP::Symbol'->new('') eq $arg->{'value'}) { } |
|
636
|
0 |
0 |
if $attributes |
|
664
|
0 |
161 |
if ref $data and ref $data ne ref [] |
|
671
|
161 |
0 |
if ($result) |
|
673
|
0 |
161 |
unless $state->eof |