Condition Coverage

blib/lib/Perlito6/Grammar/Control.pm
Criterion Covered Total %
condition 85 227 37.4


and 3 conditions

line !l l&&!r l&&r condition
47 932 0 3 'u' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
1 0 2 'n' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
932 3 0 'u' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('n' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 2 'l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
1 2 0 'u' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('n' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 2 'e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 2 0 'u' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('n' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 2 's' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 2 0 'u' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('n' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 2 's' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 2 0 'u' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('n' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 2 0 'u' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('n' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
0 2 0 'u' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('n' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'exp'} = $m2; 1; } else { 0; } }
90 935 0 78 'i' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 78 'f' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
935 78 0 'i' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('f' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 78 0 'i' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('f' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
0 78 0 'i' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('f' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'exp'} = $m2; 1; } else { 0; } }
112 63 0 15 'e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 78 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 15 'l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
63 15 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 15 's' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 15 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
1 0 14 'e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 15 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
1 14 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->exp2($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'exp2'} = $m2; 1; } else { 0; } }
147 63 0 1 'e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 64 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 1 'l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
63 1 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 1 's' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 1 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 1 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->if($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'if'} = $m2; 1; } else { 0; } }
206 927 0 6 'w' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 6 'h' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
927 6 0 'w' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('h' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
6 0 0 'e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 6 0 'w' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('h' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 0 'n' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
6 0 0 'w' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('h' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('n' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 0 'w' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('h' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('n' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
0 0 0 'w' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('h' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('n' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'exp'} = $m2; 1; } else { 0; } }
245 929 0 4 'f' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 4 'o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
929 4 0 'f' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 4 'r' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 4 0 'f' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('r' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 4 0 'f' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('r' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
0 4 0 'f' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('r' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'exp'} = $m2; 1; } else { 0; } }
284 923 0 6 'w' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 6 'h' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
923 6 0 'w' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('h' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 6 'i' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 6 0 'w' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('h' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('i' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 6 'l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 6 0 'w' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('h' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('i' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 6 'e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 6 0 'w' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('h' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('i' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 6 0 'w' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('h' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('i' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
0 6 0 'w' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('h' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('i' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'exp'} = $m2; 1; } else { 0; } }
323 923 0 0 'l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 'o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
923 0 0 'l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 0 'o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 'l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 0 'p' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 'l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('p' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 0 'l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('p' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
0 0 0 'l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('o' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('p' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'exp'} = $m2; 1; } else { 0; } }

or 2 conditions

line l !l condition
47 2 0 do { my($body) = ${$$MATCH{'exp'};}->{'end_block'}; unless (defined $body) { die q[Missing code block in 'unless']; } ; $MATCH->{'capture'} = 'If'->new(('cond', ${$$MATCH{'exp'};}->{'exp'}), ('body', 'Lit::Block'->new('stmts', do { my $List_a = bless([], 'ARRAY'); my $List_v = bless([], 'ARRAY'); $List_a })), ('otherwise', $body)) } or 1
112 14 0 do { my($body) = ${$$MATCH{'exp'};}->{'end_block'}; my($otherwise) = ${$$MATCH{'exp2'};}->{'exp'}; unless (defined $body) { die q[Missing code block in 'if']; } ; unless (defined $otherwise) { die q[Missing code block in 'else']; } ; if (Main::isa($otherwise, 'Lit::Hash')) { $otherwise = 'Lit::Block'->new('stmts', $otherwise->hash1); } ; $MATCH->{'capture'} = 'If'->new(('cond', ${$$MATCH{'exp'};}->{'exp'}), ('body', $body), ('otherwise', $otherwise)) } or 1
147 1 0 do { my($body) = ${$$MATCH{'exp'};}->{'end_block'}; unless (defined $body) { die q[Missing code block in 'if']; } ; $MATCH->{'capture'} = 'If'->new(('cond', ${$$MATCH{'exp'};}->{'exp'}), ('body', $body), ('otherwise', 'Lit::Block'->new('stmts', do { my $List_a = bless([], 'ARRAY'); my $List_v = bless([], 'ARRAY'); push @{$List_a;}, ${$MATCH->{'if'};}; $List_a }))) } or 1
206 0 0 do { my($body) = ${$$MATCH{'exp'};}->{'end_block'}; unless (defined $body) { die q[Missing code block in 'when']; } ; $MATCH->{'capture'} = 'When'->new(('parameters', ${$$MATCH{'exp'};}->{'exp'}), ('body', $body)) } or 1
245 4 0 do { my($body) = ${$$MATCH{'exp'};}->{'end_block'}; unless (defined $body) { die q[Missing code block in 'when']; } ; $MATCH->{'capture'} = 'For'->new(('cond', ${$$MATCH{'exp'};}->{'exp'}), ('topic', undef()), ('body', $body)) } or 1
284 6 0 do { my($body) = ${$$MATCH{'exp'};}->{'end_block'}; unless (defined $body) { die q[Missing code block in 'while']; } ; $MATCH->{'capture'} = 'While'->new(('cond', ${$$MATCH{'exp'};}->{'exp'}), ('body', $body)) } or 1
323 0 0 do { my($body) = ${$$MATCH{'exp'};}->{'end_block'}; if (not defined $body) { $body = ${$$MATCH{'exp'};}->{'exp'}; if (Main::isa($body, 'Lit::Block')) { $MATCH->{'capture'} = 'While'->new(('cond', 'Val::Bit'->new('bit', 1)), ('body', $body)); } else { die q[Missing code block in 'loop']; } ; } else { die q['loop' with parameters is not implemented]; } } or 1

or 3 conditions

line l !l&&r !l&&!r condition
159 14 0 64 do { do { my($body) = ${$$MATCH{'exp'};}->{'end_block'}; my($otherwise) = ${$$MATCH{'exp2'};}->{'exp'}; unless (defined $body) { die q[Missing code block in 'if']; } ; unless (defined $otherwise) { die q[Missing code block in 'else']; } ; if (Main::isa($otherwise, 'Lit::Hash')) { $otherwise = 'Lit::Block'->new('stmts', $otherwise->hash1); } ; $MATCH->{'capture'} = 'If'->new(('cond', ${$$MATCH{'exp'};}->{'exp'}), ('body', $body), ('otherwise', $otherwise)) } or 1 if do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->exp2($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'exp2'} = $m2; 1; } else { 0; } } } or do { $MATCH->{'to'} = $pos1; do { my($body) = ${$$MATCH{'exp'};}->{'end_block'}; unless (defined $body) { die q[Missing code block in 'if']; } ; $MATCH->{'capture'} = 'If'->new(('cond', ${$$MATCH{'exp'};}->{'exp'}), ('body', $body), ('otherwise', 'Lit::Block'->new('stmts', do { my $List_a = bless([], 'ARRAY'); my $List_v = bless([], 'ARRAY'); push @{$List_a;}, ${$MATCH->{'if'};}; $List_a }))) } or 1 if do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and ('e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('l' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('s' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->if($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'if'} = $m2; 1; } else { 0; } } }