Condition Coverage

blib/lib/Perlito/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 = 'Perlito::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
106	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 = 'Perlito::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
153	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; } }
165	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; } }
177	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; } }
189	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 = 'Perlito::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
237	0	0	0	'' ne substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
286	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 = 'Perlito::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
318	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; } }
330	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; } }
342	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) = 'Perlito::Grammar'->var_sigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Grammar.var_sigil'} = $m2; 1; } else { 0; } } and do { my($m2) = 'Perlito::Grammar'->val_int($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Grammar.val_int'} = $m2; 1; } else { 0; } }
541	32	0	0	do { my($m2) = 'Perlito::Grammar'->var_sigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Grammar.var_sigil'} = $m2; 1; } else { 0; } } and do { my($m2) = 'Perlito::Grammar'->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Grammar.var_twigil'} = $m2; 1; } else { 0; } }
	0	0	0	do { my($m2) = 'Perlito::Grammar'->var_sigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Grammar.var_sigil'} = $m2; 1; } else { 0; } } and do { my($m2) = 'Perlito::Grammar'->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Grammar.var_twigil'} = $m2; 1; } else { 0; } } and do { my($m2) = 'Perlito::Grammar'->full_ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::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) = 'Perlito::Grammar'->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::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) = 'Perlito::Grammar'->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::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) = 'Perlito::Grammar'->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::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 = 'Perlito::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) = 'Perlito::Grammar'->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
1168	0	30	0	do { my($m2) = 'Perlito::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) = 'Perlito::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) = 'Perlito::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) = 'Perlito::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; } }
1390	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	condition
390	0	do { $$MATCH{'capture'} = '' . $MATCH } or 1
416	0	do { $$MATCH{'capture'} = do { my $Hash_a = bless({}, 'HASH'); $$Hash_a{'capturing_group'} = ${$$MATCH{'rule'};}; $Hash_a } } or 1
435	0	do { $$MATCH{'capture'} = ${$$MATCH{'rule'};} } or 1
450	0	do { $$MATCH{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 1)) } or 1
481	0	do { $$MATCH{'capture'} = q[$/{'] . $$MATCH{'rule_ident'} . q['] . '}' } or 1
506	0	do { $$MATCH{'capture'} = $$MATCH{'Perlito::Grammar.var_sigil'} . '/' . '[' . $$MATCH{'Perlito::Grammar.val_int'} . ']' } or 1
541	0	do { $$MATCH{'capture'} = 'Rul::Var'->new(('sigil', '' . $$MATCH{'Perlito::Grammar.var_sigil'}), ('twigil', '' . $$MATCH{'Perlito::Grammar.var_twigil'}), ('name', '' . $$MATCH{'Perlito::Grammar.full_ident'})) } or 1
567	0	do { $$MATCH{'capture'} = 'Rul::Capture'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1
582	0	do { $$MATCH{'capture'} = 'Rul::CaptureResult'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1
606	0	do { $$MATCH{'capture'} = 'Rul::After'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1
630	0	do { $$MATCH{'capture'} = 'Rul::Before'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1
654	0	do { $$MATCH{'capture'} = 'Rul::NotBefore'->new('rule_exp', ${$$MATCH{'rule'};}) } or 1
669	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	do { $$MATCH{'capture'} = 'Rul::CharClass'->new('chars', '' . $$MATCH{'char_class'}) } or 1
707	0	do { $$MATCH{'capture'} = 'Rul::NegateCharClass'->new('chars', '' . $$MATCH{'char_class'}) } or 1
722	9	do { $$MATCH{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1
737	0	do { $$MATCH{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'literal'};}) } or 1
755	0	do { $$MATCH{'capture'} = 'Rul::InterpolateVar'->new('var', ${$$MATCH{'variables'};}) } or 1
770	0	do { $$MATCH{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1
785	2	do { $$MATCH{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 0)) } or 1
800	0	do { $$MATCH{'capture'} = 'Rul::Subrule'->new(('metasyntax', ${$$MATCH{'metasyntax_exp'};}), ('captures', 1)) } or 1
817	0	do { $$MATCH{'capture'} = 'Rul::Block'->new('closure', ${$$MATCH{'parsed_code'};}) } or 1
835	0	do { $$MATCH{'capture'} = 'Rul::Constant'->new('constant', chr $$MATCH{'Perlito::Grammar.digits'}) } or 1
850	0	do { $$MATCH{'capture'} = 'Rul::Constant'->new('constant', chr $$MATCH{'Perlito::Grammar.digits'}) } or 1
865	0	do { $$MATCH{'capture'} = 'Rul::SpecialChar'->new('char', ${$$MATCH{'any'};}) } or 1
872	0	do { $$MATCH{'capture'} = 'Rul::Dot'->new } or 1
887	4	do { $$MATCH{'capture'} = ${$$MATCH{'rule'};} } or 1
956	0	do { $$MATCH{'capture'} = 'Rul::NamedCapture'->new(('rule_exp', ${$$MATCH{'named_capture_body'};}), ('capture_ident', ${$$MATCH{'variables'};})) } or 1
978	15	do { $$MATCH{'capture'} = ${$$MATCH{'rule_terms'};} } or 1
1035	0	do { $$MATCH{'capture'} = 'Rul::Constant'->new('constant', ${$$MATCH{'any'};}) } or 1
1073	0	do { $$MATCH{'capture'} = ${$$MATCH{'Perlito::Grammar.val_int'};} } or 1
1088	0	do { $$MATCH{'capture'} = ${$$MATCH{'rule_term'};} } or 1
1200	4	do { $$MATCH{'capture'} = 'Rul::Quantifier'->new(('term', ${$$MATCH{'rule_term'};}), ('quant', ${$$MATCH{'quant_exp'};}), ('greedy', ${$$MATCH{'greedy_exp'};}), ('ws1', ${$$MATCH{'Perlito::Grammar.opt_ws'};}), ('ws2', ${$$MATCH{'Perlito::Grammar.opt_ws2'};}), ('ws3', ${$$MATCH{'Perlito::Grammar.opt_ws3'};})) } or 1
1246	15	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	do { $$MATCH{'capture'} = 'Rul::Concat'->new('concat', ${$$MATCH{'concat_list'};}) } or 1
1341	7	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	do { $$MATCH{'capture'} = 'Rul::Or'->new('or_list', ${$$MATCH{'or_list_exp'};}) } or 1

or 3 conditions

line	l	!l&&!r	condition
187	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	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	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	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	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	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	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	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{'Perlito::Grammar.var_sigil'} . '/' . '[' . $$MATCH{'Perlito::Grammar.val_int'} . ']' } or 1 if do { my($m2) = 'Perlito::Grammar'->var_sigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Grammar.var_sigil'} = $m2; 1; } else { 0; } } and do { my($m2) = 'Perlito::Grammar'->val_int($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Grammar.val_int'} = $m2; 1; } else { 0; } } }
788	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	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	do { do { $$MATCH{'capture'} = 'Rul::Constant'->new('constant', chr $$MATCH{'Perlito::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) = 'Perlito::Grammar'->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::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{'Perlito::Grammar.digits'}) } or 1 if 'c' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = 'Perlito::Grammar'->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Grammar.digits'} = $m2; 1; } else { 0; } } }
875	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	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	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	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	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	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	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	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	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	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	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	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{'Perlito::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) = 'Perlito::Grammar'->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::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{'Perlito::Grammar.digits'}) } or 1 if 'c' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = 'Perlito::Grammar'->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::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	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{'Perlito::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) = 'Perlito::Grammar'->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::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{'Perlito::Grammar.digits'}) } or 1 if 'c' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = 'Perlito::Grammar'->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::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	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	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	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	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	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	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	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	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	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	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	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	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) }