| line |
true |
false |
branch |
|
22
|
1 |
8638 |
if ref $self eq 'Statistics::R::REXP' |
|
26
|
1 |
17274 |
unless $self->can($req) |
|
30
|
13 |
8624 |
if defined $self->attributes and ref $self->attributes ne 'HASH' |
|
36
|
16 |
3232 |
unless _mutual_isa($self, $obj) |
|
49
|
1000 |
11289 |
unless ref $a eq ref $b |
|
57
|
0 |
11949 |
unless my($a, $b) = @_ |
|
58
|
9041 |
2908 |
if (defined $a and defined $b) { } |
|
59
|
1 |
9040 |
unless _mutual_isa($a, $b) |
|
60
|
2022 |
7018 |
if (ref $a eq ref []) { } |
|
|
558 |
6460 |
elsif (ref $a eq ref {}) { } |
|
61
|
2 |
2020 |
unless scalar @$a == scalar @$b |
|
63
|
29 |
5363 |
unless _compare_deeply($a->[$i], $b->[$i]) |
|
66
|
0 |
558 |
unless scalar keys %$a == scalar keys %$b |
|
69
|
13 |
1064 |
unless exists $b->{$name} and _compare_deeply($a->{$name}, $b->{$name}) |
|
72
|
21 |
6439 |
unless $a eq $b |
|
75
|
20 |
2888 |
if defined $a or defined $b |
|
95
|
1 |
3 |
unless $attributes and $attributes->{'class'} |