Branch Coverage

lib/ControlBreak.pm
Criterion Covered Total %
branch 24 30 80.0


line true false branch
293 166 0 if ($level_name)
295 0 166 unless exists $_levidx{$level_name}
336 2 5 unless exists $_levidx{$level_name}
393 1 87 if ($arg =~ / \A \d+ \Z /msux) { }
395 1 0 unless exists $_levname{$arg}
399 1 86 unless exists $_levidx{$arg}
517 2 140 if @args != $_num_levels
520 1 139 unless $iteration == $_continue_count
537 21 223 if $iteration == 1
546 71 173 if ($is_break)
670 0 28 unless @args == $_num_levels + 1
676 0 28 unless ref $coderef eq "CODE"
695 4 31 if ($op eq '==') { }
27 4 elsif ($op eq 'eq') { }
4 0 elsif (ref $op eq 'CODE') { }