| line |
true |
false |
branch |
|
291
|
167 |
33 |
if ($level_name) |
|
293
|
1 |
166 |
unless exists $_levidx{$level_name} |
|
334
|
2 |
6 |
unless exists $_levidx{$level_name} |
|
391
|
3 |
87 |
if ($arg =~ / \A [1-9]\d* \Z /msux) { } |
|
394
|
2 |
1 |
unless exists $_levname{$levidx} |
|
398
|
1 |
86 |
unless exists $_levidx{$arg} |
|
518
|
2 |
149 |
if @args != $_num_levels |
|
521
|
1 |
148 |
unless $iteration == $_continue_count |
|
539
|
28 |
229 |
if $iteration == 1 |
|
548
|
74 |
183 |
if ($is_break) |
|
672
|
1 |
32 |
unless @args == $_num_levels + 1 |
|
677
|
1 |
31 |
unless ref $coderef eq "CODE" |
|
682
|
2 |
29 |
if $eod and not $eod =~ / \A [01] \Z /msux |
|
704
|
6 |
33 |
if ($op eq '==') { } |
|
|
28 |
5 |
elsif ($op eq 'eq') { } |
|
|
4 |
1 |
elsif (ref $op eq 'CODE') { } |