| line |
true |
false |
branch |
|
117
|
1 |
7 |
unless $class->can('store_switch') |
|
119
|
0 |
7 |
unless $class->can('eval_case') |
|
132
|
0 |
7 |
ref $switchtag eq 'Regexp' ? : |
|
136
|
0 |
7 |
ref $casetag eq 'Regexp' ? : |
|
140
|
0 |
7 |
ref $otherwisetag eq 'Regexp' ? : |
|
168
|
4 |
0 |
if (defined(my $locator = $$self{'Locator'})) |
|
194
|
9 |
49 |
if ($right_namespace and $name =~ /$$self{'switchre'}/) { } |
|
|
18 |
31 |
elsif ($right_namespace and $name =~ /$$self{'casere'}/) { } |
|
|
7 |
24 |
elsif ($right_namespace and $name =~ /$$self{'otherwisere'}/) { } |
|
210
|
1 |
17 |
unless defined $state |
|
213
|
1 |
16 |
unless $state == 1 |
|
216
|
11 |
5 |
if ($$self{'MatchAll'} or not $$self{'switch_state'}{'didcase'}) |
|
217
|
7 |
4 |
if ($self->eval_case($$self{'switch_state'}{'cond'}, $e)) |
|
229
|
1 |
6 |
unless defined $state |
|
232
|
1 |
5 |
unless $state == 1 |
|
237
|
3 |
2 |
unless ($$self{'switch_state'}{'didcase'}) |
|
247
|
1 |
23 |
if (defined $state and $state == 3) |
|
266
|
7 |
39 |
if ($right_namespace and $name =~ /$$self{'switchre'}/) { } |
|
|
15 |
24 |
elsif ($right_namespace and $name =~ /$$self{'casere'}/) { } |
|
|
4 |
20 |
elsif ($right_namespace and $name =~ /$$self{'otherwisere'}/) { } |
|
273
|
6 |
9 |
if ($state == 2) |
|
285
|
1 |
19 |
if defined $state and $state == 3 |
|
297
|
13 |
68 |
if (defined $state and $state == 3) |
|
309
|
11 |
64 |
if $self->_surpress |
|
319
|
1 |
2 |
if $self->_surpress |
|
329
|
1 |
2 |
if $self->_surpress |