| line |
true |
false |
branch |
|
34
|
0 |
14 |
ref $_[0] ? : |
|
51
|
4 |
10 |
if (my $val = delete $opts{$key}) |
|
53
|
1 |
3 |
unless grep {$val eq $_;} @vals |
|
68
|
0 |
37 |
ref $_[0] ? : |
|
81
|
8 |
18 |
if $self->{'queue'} |
|
89
|
6 |
20 |
if ($ref eq 'HASH') { } |
|
|
5 |
15 |
elsif ($ref eq 'ARRAY') { } |
|
91
|
2 |
4 |
if $before |
|
96
|
2 |
4 |
if $after |
|
101
|
4 |
1 |
if $before |
|
107
|
4 |
1 |
if $after |
|
111
|
4 |
11 |
if $before |
|
113
|
4 |
11 |
if $after |
|
122
|
8 |
8 |
if ($self->{'hook_as_hash'}) { } |
|
123
|
4 |
4 |
if (ref $fields eq 'ARRAY') { } |
|
144
|
10 |
37 |
unless my $chain = $self->chain($field, $opts) |
|
155
|
3 |
61 |
if $self->{'queue'} |
|
157
|
54 |
10 |
if (my $chain = $self->{'fields'}{$name}) |
|
163
|
2 |
8 |
if $self->{'warn_no_field'} eq 'always' or $self->{'warn_no_field'} eq 'single' and not $opts->{'multi'} |
|
172
|
0 |
14 |
unless my $queue = $self->{'queue'} |
|
183
|
33 |
12 |
unless $opts->{'hooks'} |
|
192
|
5 |
40 |
if (my $groups = $opts->{'groups'}) |
|
215
|
1 |
2 |
if $self->{'dequeued'} |
|
222
|
0 |
5 |
unless @_ |
|
227
|
1 |
4 |
if $self->{'dequeued'} |
|
234
|
0 |
6 |
if @_ |
|
264
|
41 |
329 |
if exists $opts->{$key} |
|
271
|
26 |
85 |
if exists $norm{$type} and not ref $norm{$type} |
|
284
|
0 |
2 |
unless my $dequeued = delete $self->{'dequeued'} |
|
287
|
2 |
0 |
unless $self->{'queue'} |