Condition Coverage

blib/lib/Perlito6/Grammar/Regex.pm
Criterion Covered Total %
condition 124 620 20.0


and 3 conditions

line !l l&&!r l&&r condition
100 9 0 9 do { my($pos1) = $MATCH->to; unless (do { '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to }) { $MATCH->{'to'} = $pos1; '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { $MATCH->{'to'} = 1 + $MATCH->to if q['] eq substr($str, $MATCH->to, 1) } }; $tmp->{'bool'} = !$MATCH; $MATCH = $tmp; not !$MATCH }; } } and $last_match_null < 2
103 0 0 0 '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
18 0 0 '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
118 0 0 9 '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
147 2 0 11 do { my($pos1) = $MATCH->to; unless (do { '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to } or do { $MATCH->{'to'} = $pos1; q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } } or do { $MATCH->{'to'} = $pos1; '}' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->string_code($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } } or do { $MATCH->{'to'} = $pos1; '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } }) { $MATCH->{'to'} = $pos1; '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { $MATCH->{'to'} = 1 + $MATCH->to if '>' eq substr($str, $MATCH->to, 1) } }; $tmp->{'bool'} = !$MATCH; $MATCH = $tmp; not !$MATCH }; } } and $last_match_null < 2
150 0 0 0 '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
13 0 0 '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
162 0 0 0 q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
13 0 0 q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
13 0 0 q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
174 0 0 0 '}' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
13 0 0 '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
13 0 0 '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->string_code($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
186 0 0 0 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
13 0 0 '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
13 0 0 '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
201 0 0 11 '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
231 0 0 0 do { my($pos1) = $MATCH->to; unless (do { '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to }) { $MATCH->{'to'} = $pos1; '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { $MATCH->{'to'} = 1 + $MATCH->to if ']' eq substr($str, $MATCH->to, 1) } }; $tmp->{'bool'} = !$MATCH; $MATCH = $tmp; not !$MATCH }; } } and $last_match_null < 2
234 0 0 0 '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
249 0 0 0 '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
295 0 0 0 ']' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->char_range($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
312 0 0 0 do { my($pos1) = $MATCH->to; unless (do { '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to } or do { $MATCH->{'to'} = $pos1; q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } } or do { $MATCH->{'to'} = $pos1; '}' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->string_code($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } }) { $MATCH->{'to'} = $pos1; '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { $MATCH->{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) } }; $tmp->{'bool'} = !$MATCH; $MATCH = $tmp; not !$MATCH }; } } and $last_match_null < 2
315 0 0 0 '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
327 0 0 0 q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
339 0 0 0 '}' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->string_code($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
354 0 0 0 '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
416 0 0 0 '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } }
0 0 0 ')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
435 0 0 0 '[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } }
0 0 0 ']' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (']' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
450 0 0 0 '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } }
0 0 0 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
481 32 0 0 '$<' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to
32 0 0 '$<' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule_ident($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule_ident'} = $m2; 1; } else { 0; } }
0 0 0 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '$<' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule_ident($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule_ident'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
506 32 0 0 do { my($m2) = 'Perlito6::Grammar'->var_sigil($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.var_sigil'} = $m2; 1; } else { 0; } } and do { my($m2) = 'Perlito6::Grammar'->val_int($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.val_int'} = $m2; 1; } else { 0; } }
541 32 0 0 do { my($m2) = 'Perlito6::Grammar'->var_sigil($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.var_sigil'} = $m2; 1; } else { 0; } } and do { my($m2) = 'Perlito6::Grammar'->var_twigil($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.var_twigil'} = $m2; 1; } else { 0; } }
0 0 0 do { my($m2) = 'Perlito6::Grammar'->var_sigil($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.var_sigil'} = $m2; 1; } else { 0; } } and do { my($m2) = 'Perlito6::Grammar'->var_twigil($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.var_twigil'} = $m2; 1; } else { 0; } } and do { my($m2) = 'Perlito6::Grammar'->full_ident($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.full_ident'} = $m2; 1; } else { 0; } }
567 30 0 0 '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
30 0 0 '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } }
0 0 0 ')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
582 30 0 0 '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to
30 0 0 '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } }
0 0 0 ')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to
0 0 0 '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to)
606 30 0 0 'to, 6) and $MATCH->{'to'} = 6 + $MATCH->to
30 0 0 'to, 6) and $MATCH->{'to'} = 6 + $MATCH->to and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
0 0 0 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } }
0 0 0 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
630 30 0 0 'to, 7) and $MATCH->{'to'} = 7 + $MATCH->to
30 0 0 'to, 7) and $MATCH->{'to'} = 7 + $MATCH->to and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
0 0 0 'to, 7) and $MATCH->{'to'} = 7 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } }
0 0 0 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 'to, 7) and $MATCH->{'to'} = 7 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
654 30 0 0 'to, 8) and $MATCH->{'to'} = 8 + $MATCH->to
30 0 0 'to, 8) and $MATCH->{'to'} = 8 + $MATCH->to and do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
0 0 0 'to, 8) and $MATCH->{'to'} = 8 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } }
0 0 0 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 'to, 8) and $MATCH->{'to'} = 8 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
669 30 0 0 'to, 2) and $MATCH->{'to'} = 2 + $MATCH->to
30 0 0 'to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } }
0 0 0 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 'to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
692 30 0 0 '<+' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to
30 0 0 '<+' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } }
0 0 0 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '<+' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
707 30 0 0 '<-' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to
30 0 0 '<-' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } }
0 0 0 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '<-' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
722 21 0 9 q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
21 9 0 q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } }
0 0 9 q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 9 0 q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
737 19 0 2 '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
2 0 0 q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
19 2 0 '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
2 0 0 '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } }
0 0 0 q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 0 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
742 19 0 2 '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
755 0 0 0 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
2 0 0 do { my($m2) = $grammar->variables($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'variables'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
770 2 0 0 '?' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
2 0 0 '?' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } }
0 0 0 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '?' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
785 0 0 2 '.' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 2 0 '.' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } }
0 0 2 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 2 0 '.' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
800 0 0 0 '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
817 19 0 0 '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
19 0 0 '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->parsed_code($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'parsed_code'} = $m2; 1; } else { 0; } }
0 0 0 '}' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->parsed_code($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'parsed_code'} = $m2; 1; } else { 0; } } and ('}' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
822 19 0 0 '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
835 0 0 0 'c' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 '[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 'c' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 0 'c' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = 'Perlito6::Grammar'->digits($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.digits'} = $m2; 1; } else { 0; } }
0 0 0 ']' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 'c' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = 'Perlito6::Grammar'->digits($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.digits'} = $m2; 1; } else { 0; } } and (']' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
850 0 0 0 'c' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 'c' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = 'Perlito6::Grammar'->digits($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.digits'} = $m2; 1; } else { 0; } }
872 19 0 0 '.' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
887 15 0 4 '[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
15 4 0 '[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } }
0 0 4 ']' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 4 0 '[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (']' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
956 0 0 0 '=' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
0 0 0 do { my($last_pos) = $MATCH->to; unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }) { $MATCH->{'to'} = $last_pos; } ; 1 } and ('=' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
0 0 0 do { my($last_pos) = $MATCH->to; unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }) { $MATCH->{'to'} = $last_pos; } ; 1 } and ('=' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($last_pos) = $MATCH->to; unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }) { $MATCH->{'to'} = $last_pos; } ; 1 }
0 0 0 do { my($last_pos) = $MATCH->to; unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }) { $MATCH->{'to'} = $last_pos; } ; 1 } and ('=' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($last_pos) = $MATCH->to; unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }) { $MATCH->{'to'} = $last_pos; } ; 1 } and do { my($m2) = $grammar->named_capture_body($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'named_capture_body'} = $m2; 1; } else { 0; } }
1035 15 0 0 do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; unless (do { $MATCH->{'to'} = 1 + $MATCH->to if ']' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ')' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '>' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ':' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '?' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '+' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '*' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '|' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '&' eq substr($str, $MATCH->to, 1) }) { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '/' eq substr($str, $MATCH->to, 1); } }; $tmp->{'bool'} = !$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = $grammar->any($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'any'} = $m2; 1; } else { 0; } }
1060 15 0 0 '**' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to
15 0 0 '**' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = 'Perlito6::Grammar'->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
1168 0 30 0 do { my($m2) = 'Perlito6::Grammar'->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->rule_term($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule_term'} = $m2; 1; } else { 0; } }
15 15 0 do { my($m2) = 'Perlito6::Grammar'->opt_ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->rule_term($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule_term'} = $m2; 1; } else { 0; } } and do { my($m2) = 'Perlito6::Grammar'->opt_ws2($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
1200 11 4 0 do { my($m2) = $grammar->quant_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'quant_exp'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->greedy_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'greedy_exp'} = $m2; 1; } else { 0; } }
0 4 0 do { my($m2) = $grammar->quant_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'quant_exp'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->greedy_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'greedy_exp'} = $m2; 1; } else { 0; } } and do { my($m2) = 'Perlito6::Grammar'->opt_ws3($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }
1341 8 0 7 '|' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
8 7 0 '|' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->or_list_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'or_list_exp'} = $m2; 1; } else { 0; } }
1405 8 0 0 '|' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
1420 0 8 0 do { my($pos1) = $MATCH->to; unless (do { '|' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if do { my($last_pos) = $MATCH->to; unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }) { $MATCH->{'to'} = $last_pos; } ; 1 } }) { $MATCH->{'to'} = $pos1; 1; } } and do { my($m2) = $grammar->or_list_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'or_list_exp'} = $m2; 1; } else { 0; } }

or 2 conditions

line l !l condition
390 0 0 do { $MATCH->{'capture'} = '' . $MATCH } or 1
416 0 0 do { $MATCH->{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'capturing_group'} = ${$MATCH->{'rule'};}; $Hash_a } } or 1
435 0 0 do { $MATCH->{'capture'} = ${$MATCH->{'rule'};} } or 1
450 0 0 do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 1)) } or 1
481 0 0 do { $MATCH->{'capture'} = q[$/{'] . $MATCH->{'rule_ident'} . q['] . '}' } or 1
506 0 0 do { $MATCH->{'capture'} = $MATCH->{'Perlito6::Grammar.var_sigil'} . '/' . '[' . $MATCH->{'Perlito6::Grammar.val_int'} . ']' } or 1
541 0 0 do { $MATCH->{'capture'} = 'Rul::Var'->new(('sigil', '' . $MATCH->{'Perlito6::Grammar.var_sigil'}), ('twigil', '' . $MATCH->{'Perlito6::Grammar.var_twigil'}), ('name', '' . $MATCH->{'Perlito6::Grammar.full_ident'})) } or 1
567 0 0 do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1
582 0 0 do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1
606 0 0 do { $MATCH->{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1
630 0 0 do { $MATCH->{'capture'} = 'Rul::Before'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1
654 0 0 do { $MATCH->{'capture'} = 'Rul::NotBefore'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1
669 0 0 do { $MATCH->{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'negate'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'metasyntax'} = ${$MATCH->{'metasyntax_exp'};}; $Hash_a }; $Hash_a } } or 1
692 0 0 do { $MATCH->{'capture'} = 'Rul::CharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1
707 0 0 do { $MATCH->{'capture'} = 'Rul::NegateCharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1
722 9 0 do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1
737 0 0 do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1
755 0 0 do { $MATCH->{'capture'} = 'Rul::InterpolateVar'->new('var', ${$$MATCH{'variables'};}) } or 1
770 0 0 do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1
785 2 0 do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1
800 0 0 do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 1)) } or 1
817 0 0 do { $MATCH->{'capture'} = 'Rul::Block'->new('closure', ${$$MATCH{'parsed_code'};}) } or 1
835 0 0 do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', chr $MATCH->{'Perlito6::Grammar.digits'}) } or 1
850 0 0 do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', chr $MATCH->{'Perlito6::Grammar.digits'}) } or 1
865 0 0 do { $MATCH->{'capture'} = 'Rul::SpecialChar'->new('char', ${$$MATCH{'any'};}) } or 1
872 0 0 do { $MATCH->{'capture'} = 'Rul::Dot'->new } or 1
887 4 0 do { $MATCH->{'capture'} = ${$MATCH->{'rule'};} } or 1
956 0 0 do { $MATCH->{'capture'} = 'Rul::NamedCapture'->new(('rule_exp', ${$$MATCH{'named_capture_body'};}), ('capture_ident', ${$$MATCH{'variables'};})) } or 1
978 15 0 do { $MATCH->{'capture'} = ${$MATCH->{'rule_terms'};} } or 1
1035 0 0 do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'any'};}) } or 1
1073 0 0 do { $MATCH->{'capture'} = ${$MATCH->{'Perlito6::Grammar.val_int'};} } or 1
1088 0 0 do { $MATCH->{'capture'} = ${$MATCH->{'rule_term'};} } or 1
1200 4 0 do { $MATCH->{'capture'} = 'Rul::Quantifier'->new(('term', ${$$MATCH{'rule_term'};}), ('quant', ${$$MATCH{'quant_exp'};}), ('greedy', ${$$MATCH{'greedy_exp'};}), ('ws1', ${$$MATCH{'Perlito6::Grammar.opt_ws'};}), ('ws2', ${$$MATCH{'Perlito6::Grammar.opt_ws2'};}), ('ws3', ${$$MATCH{'Perlito6::Grammar.opt_ws3'};})) } or 1
1246 15 0 do { $MATCH->{'capture'} = do { my $List_a = bless([], 'ARRAY'); my $List_v = bless([], 'ARRAY'); push @{$List_a;}, ${$MATCH->{'quantifier'};}; $List_v = ${$MATCH->{'concat_list'};}; foreach my $x (@{bless [0 .. scalar(@{$List_v;}) - 1], 'ARRAY';}) { push @{$List_a;}, $List_v->[$x]; } ; $List_a } } or 1
1302 15 0 do { $MATCH->{'capture'} = 'Rul::Concat'->new('concat', ${$$MATCH{'concat_list'};}) } or 1
1341 7 0 do { $MATCH->{'capture'} = do { my $List_a = bless([], 'ARRAY'); my $List_v = bless([], 'ARRAY'); push @{$List_a;}, ${$MATCH->{'concat_exp'};}; $List_v = ${$MATCH->{'or_list_exp'};}; foreach my $x (@{bless [0 .. scalar(@{$List_v;}) - 1], 'ARRAY';}) { push @{$List_a;}, $List_v->[$x]; } ; $List_a } } or 1
1420 8 0 do { $MATCH->{'capture'} = 'Rul::Or'->new('or_list', ${$$MATCH{'or_list_exp'};}) } or 1

or 3 conditions

line l !l&&r !l&&!r condition
187 0 0 13 do { '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to } or do { $MATCH->{'to'} = $pos1; q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } }
0 0 13 do { '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to } or do { $MATCH->{'to'} = $pos1; q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } } or do { $MATCH->{'to'} = $pos1; '}' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->string_code($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } }
0 0 13 do { '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to } or do { $MATCH->{'to'} = $pos1; q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } } or do { $MATCH->{'to'} = $pos1; '}' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->string_code($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } } or do { $MATCH->{'to'} = $pos1; '>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } }
340 0 0 0 do { '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to } or do { $MATCH->{'to'} = $pos1; q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } }
0 0 0 do { '' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to } or do { $MATCH->{'to'} = $pos1; q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } } or do { $MATCH->{'to'} = $pos1; '}' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to if '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->string_code($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } }
453 0 0 0 do { do { $MATCH->{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'capturing_group'} = ${$MATCH->{'rule'};}; $Hash_a } } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = ${$MATCH->{'rule'};} } or 1 if '[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (']' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }
0 0 0 do { do { $MATCH->{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'capturing_group'} = ${$MATCH->{'rule'};}; $Hash_a } } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = ${$MATCH->{'rule'};} } or 1 if '[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (']' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 1)) } or 1 if '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }
509 0 0 32 do { do { $MATCH->{'capture'} = q[$/{'] . $MATCH->{'rule_ident'} . q['] . '}' } or 1 if '$<' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule_ident($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule_ident'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = $MATCH->{'Perlito6::Grammar.var_sigil'} . '/' . '[' . $MATCH->{'Perlito6::Grammar.val_int'} . ']' } or 1 if do { my($m2) = 'Perlito6::Grammar'->var_sigil($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.var_sigil'} = $m2; 1; } else { 0; } } and do { my($m2) = 'Perlito6::Grammar'->val_int($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.val_int'} = $m2; 1; } else { 0; } } }
788 0 0 2 do { do { $MATCH->{'capture'} = 'Rul::InterpolateVar'->new('var', ${$$MATCH{'variables'};}) } or 1 if do { my($m2) = $grammar->variables($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'variables'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1 if '?' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }
0 0 2 do { do { $MATCH->{'capture'} = 'Rul::InterpolateVar'->new('var', ${$$MATCH{'variables'};}) } or 1 if do { my($m2) = $grammar->variables($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'variables'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1 if '?' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1 if '.' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }
853 0 0 0 do { do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', chr $MATCH->{'Perlito6::Grammar.digits'}) } or 1 if 'c' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = 'Perlito6::Grammar'->digits($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.digits'} = $m2; 1; } else { 0; } } and (']' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', chr $MATCH->{'Perlito6::Grammar.digits'}) } or 1 if 'c' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = 'Perlito6::Grammar'->digits($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.digits'} = $m2; 1; } else { 0; } } }
875 0 0 30 do { do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) }
0 0 30 do { do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }
0 0 30 do { do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Before'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 7) and $MATCH->{'to'} = 7 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }
0 0 30 do { do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Before'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 7) and $MATCH->{'to'} = 7 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NotBefore'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 8) and $MATCH->{'to'} = 8 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }
0 0 30 do { do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Before'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 7) and $MATCH->{'to'} = 7 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NotBefore'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 8) and $MATCH->{'to'} = 8 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'negate'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'metasyntax'} = ${$MATCH->{'metasyntax_exp'};}; $Hash_a }; $Hash_a } } or 1 if 'to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }
0 0 30 do { do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Before'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 7) and $MATCH->{'to'} = 7 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NotBefore'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 8) and $MATCH->{'to'} = 8 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'negate'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'metasyntax'} = ${$MATCH->{'metasyntax_exp'};}; $Hash_a }; $Hash_a } } or 1 if 'to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<+' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }
0 0 30 do { do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Before'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 7) and $MATCH->{'to'} = 7 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NotBefore'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 8) and $MATCH->{'to'} = 8 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'negate'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'metasyntax'} = ${$MATCH->{'metasyntax_exp'};}; $Hash_a }; $Hash_a } } or 1 if 'to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<+' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NegateCharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<-' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }
0 0 30 do { do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Before'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 7) and $MATCH->{'to'} = 7 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NotBefore'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 8) and $MATCH->{'to'} = 8 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'negate'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'metasyntax'} = ${$MATCH->{'metasyntax_exp'};}; $Hash_a }; $Hash_a } } or 1 if 'to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<+' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NegateCharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<-' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1 if q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }
9 0 21 do { do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Before'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 7) and $MATCH->{'to'} = 7 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NotBefore'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 8) and $MATCH->{'to'} = 8 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'negate'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'metasyntax'} = ${$MATCH->{'metasyntax_exp'};}; $Hash_a }; $Hash_a } } or 1 if 'to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<+' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NegateCharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<-' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1 if q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1 if '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }
0 0 21 do { do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Before'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 7) and $MATCH->{'to'} = 7 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NotBefore'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 8) and $MATCH->{'to'} = 8 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'negate'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'metasyntax'} = ${$MATCH->{'metasyntax_exp'};}; $Hash_a }; $Hash_a } } or 1 if 'to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<+' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NegateCharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<-' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1 if q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1 if '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; if ('<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) { my($pos1) = $MATCH->to; unless (do { do { $MATCH->{'capture'} = 'Rul::InterpolateVar'->new('var', ${$$MATCH{'variables'};}) } or 1 if do { my($m2) = $grammar->variables($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'variables'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1 if '?' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1 if '.' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }) { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 1)) } or 1 if do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to); } ; } }
2 0 19 do { do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Before'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 7) and $MATCH->{'to'} = 7 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NotBefore'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 8) and $MATCH->{'to'} = 8 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'negate'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'metasyntax'} = ${$MATCH->{'metasyntax_exp'};}; $Hash_a }; $Hash_a } } or 1 if 'to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<+' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NegateCharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<-' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1 if q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1 if '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; if ('<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) { my($pos1) = $MATCH->to; unless (do { do { $MATCH->{'capture'} = 'Rul::InterpolateVar'->new('var', ${$$MATCH{'variables'};}) } or 1 if do { my($m2) = $grammar->variables($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'variables'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1 if '?' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1 if '.' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }) { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 1)) } or 1 if do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to); } ; } } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Block'->new('closure', ${$$MATCH{'parsed_code'};}) } or 1 if '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->parsed_code($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'parsed_code'} = $m2; 1; } else { 0; } } and ('}' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }
0 0 19 do { do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Before'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 7) and $MATCH->{'to'} = 7 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NotBefore'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 8) and $MATCH->{'to'} = 8 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'negate'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'metasyntax'} = ${$MATCH->{'metasyntax_exp'};}; $Hash_a }; $Hash_a } } or 1 if 'to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<+' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NegateCharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<-' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1 if q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1 if '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; if ('<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) { my($pos1) = $MATCH->to; unless (do { do { $MATCH->{'capture'} = 'Rul::InterpolateVar'->new('var', ${$$MATCH{'variables'};}) } or 1 if do { my($m2) = $grammar->variables($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'variables'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1 if '?' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1 if '.' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }) { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 1)) } or 1 if do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to); } ; } } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Block'->new('closure', ${$$MATCH{'parsed_code'};}) } or 1 if '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->parsed_code($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'parsed_code'} = $m2; 1; } else { 0; } } and ('}' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; if ('\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) { my($pos1) = $MATCH->to; unless (do { do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', chr $MATCH->{'Perlito6::Grammar.digits'}) } or 1 if 'c' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = 'Perlito6::Grammar'->digits($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.digits'} = $m2; 1; } else { 0; } } and (']' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', chr $MATCH->{'Perlito6::Grammar.digits'}) } or 1 if 'c' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = 'Perlito6::Grammar'->digits($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.digits'} = $m2; 1; } else { 0; } } }) { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::SpecialChar'->new('char', ${$$MATCH{'any'};}) } or 1 if do { my($m2) = $grammar->any($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'any'} = $m2; 1; } else { 0; } }; } ; } }
0 0 19 do { do { $MATCH->{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '(' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if '<(' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and (')>' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 6) and $MATCH->{'to'} = 6 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Before'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 7) and $MATCH->{'to'} = 7 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NotBefore'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1 if 'to, 8) and $MATCH->{'to'} = 8 + $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->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'negate'} = do { my $Hash_a = bless({}, 'HASH'); $Hash_a->{'metasyntax'} = ${$MATCH->{'metasyntax_exp'};}; $Hash_a }; $Hash_a } } or 1 if 'to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::CharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<+' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::NegateCharClass'->new('chars', '' . $MATCH->{'char_class'}) } or 1 if '<-' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->char_class($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_class'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1 if q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1 if '<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->literal($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'literal'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; if ('<' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) { my($pos1) = $MATCH->to; unless (do { do { $MATCH->{'capture'} = 'Rul::InterpolateVar'->new('var', ${$$MATCH{'variables'};}) } or 1 if do { my($m2) = $grammar->variables($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'variables'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1 if '?' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1 if '.' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) }) { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 1)) } or 1 if do { my($m2) = $grammar->metasyntax_exp($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'metasyntax_exp'} = $m2; 1; } else { 0; } } and ('>' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to); } ; } } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Block'->new('closure', ${$$MATCH{'parsed_code'};}) } or 1 if '{' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->parsed_code($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'parsed_code'} = $m2; 1; } else { 0; } } and ('}' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; if ('\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) { my($pos1) = $MATCH->to; unless (do { do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', chr $MATCH->{'Perlito6::Grammar.digits'}) } or 1 if 'c' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and ('[' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($m2) = 'Perlito6::Grammar'->digits($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.digits'} = $m2; 1; } else { 0; } } and (']' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Constant'->new('constant', chr $MATCH->{'Perlito6::Grammar.digits'}) } or 1 if 'c' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to and do { my($m2) = 'Perlito6::Grammar'->digits($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar.digits'} = $m2; 1; } else { 0; } } }) { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::SpecialChar'->new('char', ${$$MATCH{'any'};}) } or 1 if do { my($m2) = $grammar->any($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'any'} = $m2; 1; } else { 0; } }; } ; } } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = 'Rul::Dot'->new } or 1 if '.' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to }
981 0 0 30 do { if (do { my($m2) = $grammar->variables($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'variables'} = $m2; 1; } else { 0; } }) { my($pos1) = $MATCH->to; unless (do { do { $MATCH->{'capture'} = 'Rul::NamedCapture'->new(('rule_exp', ${$$MATCH{'named_capture_body'};}), ('capture_ident', ${$$MATCH{'variables'};})) } or 1 if do { my($last_pos) = $MATCH->to; unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }) { $MATCH->{'to'} = $last_pos; } ; 1 } and ('=' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) and do { my($last_pos) = $MATCH->to; unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }) { $MATCH->{'to'} = $last_pos; } ; 1 } and do { my($m2) = $grammar->named_capture_body($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'named_capture_body'} = $m2; 1; } else { 0; } } }) { $MATCH->{'to'} = $pos1; 1 unless do { $MATCH->{'capture'} = ${$MATCH->{'variables'};} }; } ; } } or do { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = ${$MATCH->{'rule_terms'};} } or 1 if do { my($m2) = $grammar->rule_terms($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'rule_terms'} = $m2; 1; } else { 0; } } }
1017 4 0 11 do { $MATCH->{'to'} = 1 + $MATCH->to if ']' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) }
4 0 7 do { $MATCH->{'to'} = 1 + $MATCH->to if ']' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ')' eq substr($str, $MATCH->to, 1) }
0 0 7 do { $MATCH->{'to'} = 1 + $MATCH->to if ']' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ')' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '>' eq substr($str, $MATCH->to, 1) }
0 0 7 do { $MATCH->{'to'} = 1 + $MATCH->to if ']' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ')' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '>' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ':' eq substr($str, $MATCH->to, 1) }
0 0 7 do { $MATCH->{'to'} = 1 + $MATCH->to if ']' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ')' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '>' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ':' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '?' eq substr($str, $MATCH->to, 1) }
0 0 7 do { $MATCH->{'to'} = 1 + $MATCH->to if ']' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ')' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '>' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ':' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '?' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '+' eq substr($str, $MATCH->to, 1) }
0 0 7 do { $MATCH->{'to'} = 1 + $MATCH->to if ']' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ')' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '>' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ':' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '?' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '+' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '*' eq substr($str, $MATCH->to, 1) }
0 0 7 do { $MATCH->{'to'} = 1 + $MATCH->to if ']' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ')' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '>' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ':' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '?' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '+' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '*' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '|' eq substr($str, $MATCH->to, 1) }
7 0 0 do { $MATCH->{'to'} = 1 + $MATCH->to if ']' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ')' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '>' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if ':' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '?' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '+' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '*' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '|' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '&' eq substr($str, $MATCH->to, 1) }
1102 0 0 15 do { $MATCH->{'to'} = 1 + $MATCH->to if '?' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '*' eq substr($str, $MATCH->to, 1) }
1124 0 0 4 do { $MATCH->{'to'} = 1 + $MATCH->to if '?' eq substr($str, $MATCH->to, 1) } or do { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '+' eq substr($str, $MATCH->to, 1) }