| line |
true |
false |
branch |
|
30
|
34 |
0 |
unless $self->on_none |
|
31
|
34 |
0 |
unless $self->on_only |
|
32
|
34 |
0 |
unless $self->on_then |
|
33
|
34 |
0 |
unless $self->on_when |
|
67
|
0 |
63 |
unless (defined $value) |
|
70
|
0 |
63 |
if (&Scalar::Util::blessed($value) and not overload::Overloaded($value)) |
|
73
|
0 |
63 |
if (not &Scalar::Util::blessed($value) and ref $value) |
|
76
|
24 |
39 |
if (ref $topic eq 'Regexp' and "$value" =~ qr/$topic/u) { } |
|
|
1 |
38 |
elsif ("$value" eq "$topic") { } |
|
96
|
0 |
344 |
unless (defined $value) |
|
99
|
0 |
344 |
if (&Scalar::Util::blessed($value) and not overload::Overloaded($value)) |
|
102
|
0 |
344 |
if (not &Scalar::Util::blessed($value) and ref $value) |
|
105
|
34 |
310 |
if ("$value" eq "$topic") { } |
|
119
|
3 |
3 |
UNIVERSAL::isa($code, 'CODE') ? : |
|
135
|
5 |
5 |
ref $data eq 'ARRAY' ? : |
|
|
10 |
21 |
if $data |
|
142
|
0 |
1 |
wantarray ? : |
|
|
1 |
30 |
unless $self->on_only->($value) |
|
147
|
60 |
375 |
if ($self->on_when->[$i]->($item)) |
|
155
|
9 |
21 |
unless (@$result) |
|
159
|
1 |
8 |
@return == 1 && ref $return[0] eq 'ARRAY' ? : |
|
162
|
2 |
28 |
wantarray ? : |
|
189
|
0 |
2 |
unless $self->on_only->($value) |
|
194
|
2 |
37 |
if ($self->on_when->[$i]->($item)) |
|
209
|
16 |
62 |
UNIVERSAL::isa($code, 'CODE') ? : |
|
217
|
0 |
77 |
@{$self->on_when;} - $#{$self->on_then;} > 1 ? : |