| line |
true |
false |
branch |
|
30
|
350 |
0 |
unless $self->on_none |
|
31
|
350 |
0 |
unless $self->on_only |
|
32
|
350 |
0 |
unless $self->on_then |
|
33
|
350 |
0 |
unless $self->on_when |
|
67
|
0 |
6 |
unless (defined $value) |
|
70
|
0 |
6 |
if (&Scalar::Util::blessed($value) and not overload::Overloaded($value)) |
|
73
|
0 |
6 |
if (not &Scalar::Util::blessed($value) and ref $value) |
|
76
|
4 |
2 |
if (ref $topic eq 'Regexp' and "$value" =~ qr/$topic/u) { } |
|
|
1 |
1 |
elsif ("$value" eq "$topic") { } |
|
96
|
0 |
619 |
unless (defined $value) |
|
99
|
0 |
619 |
if (&Scalar::Util::blessed($value) and not overload::Overloaded($value)) |
|
102
|
0 |
619 |
if (not &Scalar::Util::blessed($value) and ref $value) |
|
105
|
176 |
443 |
if ("$value" eq "$topic") { } |
|
119
|
310 |
4 |
UNIVERSAL::isa($code, 'CODE') ? : |
|
135
|
12 |
331 |
if @args |
|
142
|
0 |
1 |
wantarray ? : |
|
|
1 |
342 |
unless $self->on_only->($value) |
|
145
|
182 |
446 |
if ($self->on_when->[$i]->($value)) |
|
152
|
160 |
182 |
unless ($matched) |
|
157
|
1 |
341 |
wantarray ? : |
|
169
|
0 |
3 |
unless $self->on_only->($value) |
|
172
|
2 |
4 |
if ($self->on_when->[$i]->($value)) |
|
186
|
21 |
701 |
UNIVERSAL::isa($code, 'CODE') ? : |
|
194
|
0 |
721 |
@{$self->on_when;} - $#{$self->on_then;} > 1 ? : |