| line |
true |
false |
branch |
|
18
|
4 |
0 |
eval 'use Class::XSAccessor 1.19 (); 1' ? : |
|
47
|
4 |
7 |
@_ <= 2 ? : |
|
|
0 |
11 |
@_ == 0 ? : |
|
52
|
7 |
4 |
if ($opts{'recurse'}) |
|
53
|
0 |
7 |
if ref $opts{'recurse'} or not $opts{'recurse'} =~ /\A[0-9]+\z/ |
|
54
|
1 |
6 |
unless delete $opts{'seen'} |
|
56
|
5 |
6 |
unless ref $data->{$k} |
|
68
|
0 |
14 |
unless delete $opts{'seen'} |
|
69
|
0 |
11 |
if $lvl < 1 or not $reftype or exists $seen{builtin::refaddr($ref)} |
|
73
|
3 |
8 |
if ($reftype eq "ARRAY") |
|
74
|
5 |
1 |
if (ref $_) { } |
|
78
|
6 |
2 |
if ($reftype eq "HASH") |
|
82
|
1 |
1 |
if ($reftype eq "CODE") |
|
85
|
0 |
2 |
if ($wa) { } |
|
|
2 |
0 |
elsif (defined $wa) { } |
|
86
|
0 |
0 |
if (ref $_) { } |
|
90
|
2 |
0 |
ref $_ ? : |
|
96
|
1 |
0 |
if ($reftype eq "REF") |
|
97
|
1 |
0 |
if (ref $_) { } |
|
108
|
1 |
12 |
if $opts{'ctor'} |
|
109
|
4 |
9 |
if $made{$joined} |
|
114
|
0 |
17 |
/^_/ ? : |
|
122
|
0 |
17 |
if (exists $predicates{$key}) |
|
127
|
0 |
17 |
if (not $key =~ /^[^\W0-9]\w*$/s or $key =~ /$RESERVED_REGEXP/) |
|
130
|
0 |
0 |
$key =~ /^_/ ? : |
|
165
|
1 |
8 |
if ($opts{'ctor'}) |
|
168
|
2 |
0 |
@_ % 2 == 1 ? : |
|
|
1 |
2 |
@_ == 2 && ref $_[1] eq 'HASH' ? : |
|
170
|
1 |
6 |
unless /\A(?:$re)\z/ |
|
184
|
0 |
0 |
@_ ? : |
|
194
|
0 |
0 |
if $_[1] eq __PACKAGE__ |
|
195
|
0 |
0 |
if $_[1] eq "HASH" |