| line |
true |
false |
branch |
|
70
|
4 |
171 |
if (@hash == 1) |
|
72
|
2 |
0 |
'HASH' eq ref $hash ? : |
|
|
2 |
2 |
'ARRAY' eq ref $hash ? : |
|
84
|
602 |
1 |
defined $values ? : |
|
|
603 |
1861 |
wantarray ? : |
|
90
|
600 |
0 |
if (@new_values) |
|
91
|
492 |
108 |
if @new_values == 1 and 'ARRAY' eq ref $new_values[0] |
|
92
|
86 |
514 |
if (my $unique = $self->[1]) { } |
|
95
|
73 |
51 |
unless grep {$b = $_;
&$unique($a, $b);} @$values |
|
102
|
0 |
0 |
defined $values ? : |
|
|
0 |
600 |
wantarray ? : |
|
106
|
3 |
72 |
unless @_ |
|
108
|
26 |
46 |
if $unique and 'CODE' ne ref $unique |
|
109
|
51 |
21 |
if ($unique) |
|
113
|
24 |
58 |
unless @$values |
|
118
|
31 |
20 |
unless grep {$b = $_;
&$unique($a, $b);} @$values |
|
125
|
71 |
3 |
@_ ? : |
|
126
|
50 |
24 |
if ($filter) |
|
127
|
24 |
26 |
unless 'CODE' eq ref $filter |