| line |
true |
false |
branch |
|
37
|
0 |
98 |
unless reftype $Switch::Perlish::SWITCH eq 'CODE' |
|
59
|
85 |
13 |
if (@result and not $err or _left_ok($err)) |
|
61
|
12 |
73 |
@result ? : |
|
62
|
0 |
11 |
wantarray ? : |
|
|
11 |
74 |
defined wantarray ? : |
|
65
|
11 |
2 |
if $@ |
|
71
|
18 |
162 |
defined $_[1] ? : |
|
78
|
0 |
0 |
unless return blessed($_[0]) and $_[0]->isa('Switch::Perlish::Control::_success') |
|
88
|
1 |
1 |
unless _called_by('case', 5) |
|
97
|
1 |
4 |
unless _called_by('case', 5) |
|
109
|
1 |
87 |
if blessed $@ and $@->isa('Switch::Perlish::Control::_fallthrough') |
|
112
|
4 |
83 |
if blessed $@ and $@->isa('Switch::Perlish::Control::_stop') |
|
116
|
4 |
79 |
if $@ |
|
119
|
3 |
10 |
unless $Switch::Perlish::CSTYLE and $Switch::Perlish::FALLING and not _called_by('default', 2) |
|
127
|
1 |
155 |
unless _called_by('switch') |
|
132
|
1 |
5 |
unless defined $Switch::Perlish::CASE or $Switch::Perlish::CSTYLE |
|
137
|
2 |
19 |
if $Switch::Perlish::CSTYLE and $Switch::Perlish::FALLING and @_ == 1 |
|
141
|
62 |
86 |
unless $Switch::Perlish::CSTYLE and $Switch::Perlish::FALLING or 'Switch::Perlish::Smatch'->match($Switch::Perlish::TOPIC, $Switch::Perlish::MATCH) |
|
145
|
18 |
68 |
if $Switch::Perlish::CSTYLE |
|
150
|
3 |
15 |
if $Switch::Perlish::CSTYLE and $Switch::Perlish::FALLING and @_ == 1 |
|
157
|
1 |
5 |
unless _called_by('switch') |