| line |
true |
false |
branch |
|
87
|
541 |
259 |
$defaults ? : |
|
94
|
4529 |
20467 |
if (wantarray) |
|
97
|
2412 |
2117 |
if 'ARRAY' eq reftype $value |
|
98
|
1546 |
571 |
if 'HASH' eq reftype $value |
|
114
|
211 |
3 |
if (not @keys) { } |
|
115
|
160 |
51 |
$defaults ? : |
|
125
|
101 |
113 |
if $unique |
|
134
|
553 |
567 |
if (@_) { } |
|
135
|
8 |
543 |
@_ == 1 && 'HASH' eq ref $_[0] ? : |
|
|
2 |
551 |
@_ == 1 && 'ARRAY' eq ref $_[0] ? : |
|
146
|
0 |
78 |
unless $defaults |
|
|
78 |
1042 |
wantarray ? : |
|
154
|
248 |
2 |
if @_ |
|
161
|
2512 |
586 |
unless @_ |
|
163
|
198 |
388 |
if $unique and 'CODE' ne ref $unique |
|
164
|
394 |
192 |
if $unique |
|
170
|
1464 |
0 |
if defined $_ |
|
172
|
580 |
225 |
unless @$values |
|
177
|
11 |
68 |
unless grep {$b = $_;
&$unique($a, $b);} @$values |
|
183
|
73 |
3 |
@_ ? : |
|
184
|
52 |
24 |
if ($filter) |
|
185
|
25 |
27 |
unless 'CODE' eq ref $filter |
|
187
|
98 |
0 |
if defined $_ |
|
226
|
311 |
913 |
if ('HASH' eq ref $value) { } |
|
|
247 |
1306 |
elsif ('REF' eq ref $value and 'HASH' eq ref $$value) { } |
|
233
|
263 |
48 |
if (not @refs) { } |
|
|
21 |
27 |
elsif (not grep((!/^ARRAY$/), @refs)) { } |
|
242
|
247 |
0 |
unless (grep((!/^ARRAY$/), @refs)) |
|
258
|
1203 |
4853 |
unless @new |
|
260
|
2495 |
2358 |
if (not defined $old) { } |
|
|
17 |
2341 |
elsif (not ref $old) { } |
|
|
2296 |
45 |
elsif ('ARRAY' eq ref $old) { } |
|
|
42 |
3 |
elsif (UNIVERSAL::isa($old, 'Hash::AutoHash')) { } |
|
261
|
1292 |
1203 |
if (@new == 1 and 'ARRAY' eq ref $new[0]) { } |
|
272
|
1 |
16 |
if @new |
|
273
|
0 |
16 |
if ref $new |
|
278
|
2271 |
25 |
if @new == 1 and 'ARRAY' eq ref $new[0] |
|
279
|
1 |
2295 |
if grep {ref $_;} @new |
|
280
|
586 |
1709 |
if (my $unique = $self->unique) { } |
|
283
|
102 |
149 |
unless grep {$b = $_;
&$unique($a, $b);} @$old |
|
311
|
595 |
247 |
if (@_ == 1) |
|
312
|
587 |
3 |
'HASH' eq ref $_[0] ? : |
|
|
5 |
590 |
'ARRAY' eq ref $_[0] ? : |