| line |
true |
false |
branch |
|
30
|
1867 |
576 |
unless $self->on_none |
|
31
|
1867 |
576 |
unless $self->on_only |
|
32
|
1867 |
576 |
unless $self->on_then |
|
33
|
1867 |
576 |
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 |
615 |
unless (defined $value) |
|
99
|
0 |
615 |
if (&Scalar::Util::blessed($value) and not overload::Overloaded($value)) |
|
102
|
0 |
615 |
if (not &Scalar::Util::blessed($value) and ref $value) |
|
105
|
176 |
439 |
if ("$value" eq "$topic") { } |
|
119
|
310 |
4 |
UNIVERSAL::isa($code, 'CODE') ? : |
|
135
|
17 |
907 |
if @args |
|
142
|
0 |
1 |
wantarray ? : |
|
|
1 |
923 |
unless $self->on_only->($value) |
|
145
|
502 |
718 |
if ($self->on_when->[$i]->($value)) |
|
152
|
421 |
502 |
unless ($matched) |
|
157
|
51 |
872 |
wantarray ? : |
|
169
|
0 |
3 |
unless $self->on_only->($value) |
|
172
|
2 |
4 |
if ($self->on_when->[$i]->($value)) |
|
186
|
772 |
701 |
UNIVERSAL::isa($code, 'CODE') ? : |
|
194
|
0 |
1469 |
@{$self->on_when;} - $#{$self->on_then;} > 1 ? : |