Condition Coverage

blib/lib/Perlito/Grammar.pm
Criterion Covered Total %
condition 197 559 35.2


and 3 conditions

line !l l&&!r l&&r condition
31 12063 0 1100 "\n" eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
42 12063 0 0 "\r" eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
64 0 0 323 '' ne substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
120 8715 0 8112 do { my($m2) = $grammar->word($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2
167 578 0 1 do { my($pos1) = $MATCH->to; do { if ('::' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } } and $last_match_null < 2
170 578 0 1 '::' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to
227 2361 879 0 do { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and 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'} = 2 + $MATCH->to if '::' eq substr($str, $MATCH->to, 2) } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH }
230 14 0 2 do { my($pos1) = $MATCH->to; do { if ('::' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { 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'} = 2 + $MATCH->to if '::' eq substr($str, $MATCH->to, 2) } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH; } } } and $last_match_null < 2
242 0 0 16 '::' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to
0 16 0 '::' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to and do { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
291 0 0 14 '::' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to
3226 14 0 do { my($m2) = $grammar->namespace_before_ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'namespace_before_ident'} = $m2; 1; } else { 0; } } and ('::' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to)
321 0 0 0 '=end' eq substr($str, $MATCH->to, 4) and $$MATCH{'to'} = 4 + $MATCH->to
0 0 0 do { my($m2) = $grammar->is_newline($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('=end' eq substr($str, $MATCH->to, 4) and $$MATCH{'to'} = 4 + $MATCH->to)
324 0 0 0 do { my($m2) = $grammar->not_newline($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2
350 0 0 0 do { my($m2) = $grammar->not_newline($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2
370 0 0 0 '' ne substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
0 0 0 '' ne substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($last_match_null) = 0; my($last_pos) = $MATCH->to; while (do { my($m2) = $grammar->not_newline($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2) { if ($last_pos == $MATCH->to) { $last_match_null = $last_match_null + 1; } else { $last_match_null = 0; } ; $last_pos = $MATCH->to; } ; $$MATCH{'to'} = $last_pos; 1 }
396 5314 0 7270 do { my($pos1) = $MATCH->to; unless (do { if ('#' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) { my($last_match_null) = 0; my($last_pos) = $MATCH->to; while (do { my($m2) = $grammar->not_newline($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2) { if ($last_pos == $MATCH->to) { $last_match_null = $last_match_null + 1; } else { $last_match_null = 0; } ; $last_pos = $MATCH->to; } ; $$MATCH{'to'} = $last_pos; 1; } } or do { $$MATCH{'to'} = $pos1; if (do { my($m2) = $grammar->is_newline($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($pos1) = $MATCH->to; unless (do { if ('=begin' eq substr($str, $MATCH->to, 6) and $$MATCH{'to'} = 6 + $MATCH->to) { my($m2) = $grammar->pod_begin($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } or do { $$MATCH{'to'} = $pos1; if ('=for' eq substr($str, $MATCH->to, 4) and $$MATCH{'to'} = 4 + $MATCH->to) { my($m2) = $grammar->pod_begin($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } }) { $$MATCH{'to'} = $pos1; 1; } ; } }) { $$MATCH{'to'} = $pos1; do { my($m2) = $grammar->space($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }; } } and $last_match_null < 2
399 12572 0 12 '#' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
402 12 0 323 do { my($m2) = $grammar->not_newline($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2
437 973 0 0 '=begin' eq substr($str, $MATCH->to, 6) and $$MATCH{'to'} = 6 + $MATCH->to
449 973 0 0 '=for' eq substr($str, $MATCH->to, 4) and $$MATCH{'to'} = 4 + $MATCH->to
648 0 36 0 do { my($m2) = $grammar->full_ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'full_ident'} = $m2; 1; } else { 0; } } 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 36 '{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
0 36 0 do { my($m2) = $grammar->full_ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'full_ident'} = $m2; 1; } else { 0; } } 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 ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
0 36 0 do { my($m2) = $grammar->full_ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'full_ident'} = $m2; 1; } else { 0; } } 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 ('{' 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 36 0 do { my($m2) = $grammar->full_ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'full_ident'} = $m2; 1; } else { 0; } } 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 ('{' 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->exp_stmts($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'exp_stmts'} = $m2; 1; } else { 0; } }
0 36 0 do { my($m2) = $grammar->full_ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'full_ident'} = $m2; 1; } else { 0; } } 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 ('{' 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->exp_stmts($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'exp_stmts'} = $m2; 1; } else { 0; } } 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 36 '}' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
0 36 0 do { my($m2) = $grammar->full_ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'full_ident'} = $m2; 1; } else { 0; } } 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 ('{' 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->exp_stmts($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'exp_stmts'} = $m2; 1; } else { 0; } } 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 ('}' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
811 0 83 0 do { my($last_pos) = $MATCH->to; unless (do { $$MATCH{'to'} = 2 + $MATCH->to if '::' eq substr($str, $MATCH->to, 2) }) { $$MATCH{'to'} = $last_pos; } ; 1 } and do { my($m2) = $grammar->full_ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'full_ident'} = $m2; 1; } else { 0; } }
965 4999 565 0 do { my($m2) = $grammar->var_sigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'var_sigil'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'var_twigil'} = $m2; 1; } else { 0; } }
0 565 0 do { my($m2) = $grammar->var_sigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'var_sigil'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'var_twigil'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->optional_namespace_before_ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'optional_namespace_before_ident'} = $m2; 1; } else { 0; } }
0 565 0 do { my($m2) = $grammar->var_sigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'var_sigil'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'var_twigil'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->optional_namespace_before_ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'optional_namespace_before_ident'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->var_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'var_name'} = $m2; 1; } else { 0; } }
1000 336 0 0 do { my($pos1) = $MATCH->to; unless (do { $$MATCH{'to'} = 1 + $MATCH->to if 'e' eq substr($str, $MATCH->to, 1) }) { $$MATCH{'to'} = $pos1; $$MATCH{'to'} = 1 + $MATCH->to if 'E' eq substr($str, $MATCH->to, 1); } } and 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) }) { $$MATCH{'to'} = $pos1; 1; } }
1004 0 0 0 do { my($m2) = $grammar->digit($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2
1046 0 0 0 do { my($m2) = $grammar->digit($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2
1067 2337 0 0 '.' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
2337 0 0 '.' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($last_match_null) = 0; my($last_pos) = $MATCH->to; my($count) = 0; while (do { my($m2) = $grammar->digit($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2) { if ($last_pos == $MATCH->to) { $last_match_null = $last_match_null + 1; } else { $last_match_null = 0; } ; $last_pos = $MATCH->to; $count = $count + 1; } ; $$MATCH{'to'} = $last_pos; $count > 0 }
1089 2337 0 352 do { my($m2) = $grammar->digit($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2
1127 9 0 16 do { my($m2) = $grammar->digit($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2
1148 318 0 9 '.' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
318 9 0 '.' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($last_match_null) = 0; my($last_pos) = $MATCH->to; my($count) = 0; while (do { my($m2) = $grammar->digit($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2) { if ($last_pos == $MATCH->to) { $last_match_null = $last_match_null + 1; } else { $last_match_null = 0; } ; $last_pos = $MATCH->to; $count = $count + 1; } ; $$MATCH{'to'} = $last_pos; $count > 0 }
1209 0 0 274 '' ne substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
275 274 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; do { $$MATCH{'to'} = 1 + $MATCH->to if q['] eq substr($str, $MATCH->to, 1) } }; $$tmp{'bool'} = !$MATCH; $MATCH = $tmp; not !$MATCH } and ('' ne substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
1212 274 0 1681 do { my($pos1) = $MATCH->to; do { '' 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 { my($pos1) = $MATCH->to; unless (do { $$MATCH{'to'} = 1 + $MATCH->to if q['] 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 $last_match_null < 2
1215 0 0 1681 '' ne substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
1270 549 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
549 0 0 '\\' 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 '\\' 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) = $grammar->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } }
1285 549 0 0 '\\' 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
549 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)
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->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } }
1300 549 0 0 '\\' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
549 0 0 '\\' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } }
1325 275 274 0 do { my($m2) = $grammar->char_any_single_quote($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'char_any_single_quote'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } }
1371 0 0 124 '' ne substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
159 124 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; 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) }) { $$MATCH{'to'} = $pos1; $$MATCH{'to'} = 1 + $MATCH->to if '{' eq substr($str, $MATCH->to, 1); } } }; $$tmp{'bool'} = !$MATCH; $MATCH = $tmp; not !$MATCH } and ('' ne substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
1374 124 0 766 do { my($pos1) = $MATCH->to; do { '' 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 { 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) }) { $$MATCH{'to'} = $pos1; $$MATCH{'to'} = 1 + $MATCH->to if '\\' eq substr($str, $MATCH->to, 1); } } }; $$tmp{'bool'} = !$MATCH; $MATCH = $tmp; not !$MATCH } } } and $last_match_null < 2
1377 0 0 766 '' ne substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
1434 283 0 2 '\\' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
1437 2 0 0 'c' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
1450 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->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'digits'} = $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->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'digits'} = $m2; 1; } else { 0; } } and (']' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
1472 2 0 0 'e' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
1477 0 0 2 'n' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
1482 0 0 0 't' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
1560 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->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
1585 0 2 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; do { if ('$' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = 'Perlito::Expression'->operator($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.operator'} = $m2; 1; } else { 0; } }
1637 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->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
1662 0 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; do { if ('@' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = 'Perlito::Expression'->operator($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.operator'} = $m2; 1; } else { 0; } }
0 0 0 '[]' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to
0 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; do { if ('@' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = 'Perlito::Expression'->operator($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.operator'} = $m2; 1; } else { 0; } } and ('[]' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to)
1714 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->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
1739 0 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; do { if ('%' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = 'Perlito::Expression'->operator($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.operator'} = $m2; 1; } else { 0; } }
0 0 0 '{}' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to
0 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; do { if ('%' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = 'Perlito::Expression'->operator($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.operator'} = $m2; 1; } else { 0; } } and ('{}' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to)
1771 285 0 3 '{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
285 3 0 '{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->exp_stmts($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'exp_stmts'} = $m2; 1; } else { 0; } }
0 0 3 '}' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
0 3 0 '{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->exp_stmts($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'exp_stmts'} = $m2; 1; } else { 0; } } and ('}' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
1805 159 0 131 do { my($m2) = $grammar->double_quoted_buf($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; if (exists $$MATCH{'double_quoted_buf'}) { push @{$$MATCH{'double_quoted_buf'};}, $m2; } else { $$MATCH{'double_quoted_buf'} = do { my $List_a = bless([], 'ARRAY'); my $List_v = bless([], 'ARRAY'); push @{$List_a;}, $m2; $List_a }; } ; 1; } else { 0; } } and $last_match_null < 2
1836 1851 0 159 '"' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
1851 159 0 '"' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($last_match_null) = 0; my($last_pos) = $MATCH->to; while (do { my($m2) = $grammar->double_quoted_buf($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; if (exists $$MATCH{'double_quoted_buf'}) { push @{$$MATCH{'double_quoted_buf'};}, $m2; } else { $$MATCH{'double_quoted_buf'} = do { my $List_a = bless([], 'ARRAY'); my $List_v = bless([], 'ARRAY'); push @{$List_a;}, $m2; $List_a }; } ; 1; } else { 0; } } and $last_match_null < 2) { if ($last_pos == $MATCH->to) { $last_match_null = $last_match_null + 1; } else { $last_match_null = 0; } ; $last_pos = $MATCH->to; } ; $$MATCH{'to'} = $last_pos; 1 }
0 0 159 '"' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
0 159 0 '"' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($last_match_null) = 0; my($last_pos) = $MATCH->to; while (do { my($m2) = $grammar->double_quoted_buf($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; if (exists $$MATCH{'double_quoted_buf'}) { push @{$$MATCH{'double_quoted_buf'};}, $m2; } else { $$MATCH{'double_quoted_buf'} = do { my $List_a = bless([], 'ARRAY'); my $List_v = bless([], 'ARRAY'); push @{$List_a;}, $m2; $List_a }; } ; 1; } else { 0; } } and $last_match_null < 2) { if ($last_pos == $MATCH->to) { $last_match_null = $last_match_null + 1; } else { $last_match_null = 0; } ; $last_pos = $MATCH->to; } ; $$MATCH{'to'} = $last_pos; 1 } and ('"' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
1857 1576 0 275 q['] eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
1576 275 0 q['] eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } }
0 0 275 q['] eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
0 275 0 q['] eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } } and (q['] eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
1876 0 0 0 do { my($m2) = $grammar->digit($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2
1914 2328 0 343 do { my($m2) = $grammar->digit($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2
1954 270 0 705 do { my($m2) = 'Perlito::Expression'->delimited_statement($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; if (exists $$MATCH{'Perlito::Expression.delimited_statement'}) { push @{$$MATCH{'Perlito::Expression.delimited_statement'};}, $m2; } else { $$MATCH{'Perlito::Expression.delimited_statement'} = do { my $List_a = bless([], 'ARRAY'); my $List_v = bless([], 'ARRAY'); push @{$List_a;}, $m2; $List_a }; } ; 1; } else { 0; } } and $last_match_null < 2
2049 11 0 4 ':' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
9 15 0 do { my($m2) = $grammar->var_ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'var_ident'} = $m2; 1; } else { 0; } } and (':' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
2099 0 24 0 do { my($m2) = $grammar->var_invocant($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'var_invocant'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
0 24 0 do { my($m2) = $grammar->var_invocant($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'var_invocant'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = 'Perlito::Expression'->list_parse($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.list_parse'} = $m2; 1; } else { 0; } }
2155 0 0 24 '(' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
0 24 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('(' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
0 24 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('(' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
0 24 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('(' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->args_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'args_sig'} = $m2; 1; } else { 0; } }
0 24 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('(' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->args_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'args_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
0 0 24 ')' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
0 24 0 do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('(' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->args_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'args_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and (')' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
2259 0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } }
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
0 0 12 '{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->exp_stmts($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'exp_stmts'} = $m2; 1; } else { 0; } }
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->exp_stmts($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'exp_stmts'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->exp_stmts($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'exp_stmts'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($pos1) = $MATCH->to; unless (do { $$MATCH{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) }) { $$MATCH{'to'} = $pos1; 1 unless do { die q[Syntax Error in method '.], ${$$MATCH{'name'};}, q[' near pos=], $MATCH->to }; } }
2351 0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } }
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
0 0 12 '{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->exp_stmts($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'exp_stmts'} = $m2; 1; } else { 0; } }
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->exp_stmts($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'exp_stmts'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
0 12 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->method_sig($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'method_sig'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($m2) = $grammar->exp_stmts($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'exp_stmts'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and do { my($pos1) = $MATCH->to; unless (do { $$MATCH{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) }) { $$MATCH{'to'} = $pos1; 1 unless do { die q[Syntax Error in sub '], ${$$MATCH{'name'};}, q['] }; } }
2396 0 4 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }
0 0 4 '{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
0 4 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)
0 4 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = 'Perlito::Grammar::Regex'->rule($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Grammar::Regex.rule'} = $m2; 1; } else { 0; } }
0 0 4 '}' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to
0 4 0 do { my($m2) = $grammar->opt_name($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'opt_name'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->opt_ws($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and ('{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) and do { my($m2) = 'Perlito::Grammar::Regex'->rule($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Grammar::Regex.rule'} = $m2; 1; } else { 0; } } and ('}' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to)

or 2 conditions

line l !l condition
291 14 0 do { $$MATCH{'capture'} = '' . $$MATCH{'namespace_before_ident'} } or 1
648 36 0 do { $$MATCH{'capture'} = 'CompUnit'->new(('name', ${$$MATCH{'full_ident'};}), ('body', ${$$MATCH{'exp_stmts'};})) } or 1
694 0 0 do { $$MATCH{'capture'} = ${$$MATCH{'exp_stmts'};} } or 1
720 90 0 do { $$MATCH{'capture'} = ${$$MATCH{'Perlito::Expression.exp_parse'};} } or 1
746 14 0 do { $$MATCH{'capture'} = ${$$MATCH{'Perlito::Expression.exp_parse'};} } or 1
772 0 0 do { $$MATCH{'capture'} = ${$$MATCH{'ident'};} } or 1
811 0 0 do { $$MATCH{'capture'} = ${$$MATCH{'full_ident'};} } or 1
965 541 0 do { $$MATCH{'capture'} = 'Var'->new(('sigil', '' . $$MATCH{'var_sigil'}), ('twigil', '' . $$MATCH{'var_twigil'}), ('namespace', ${$$MATCH{'optional_namespace_before_ident'};}), ('name', '' . $$MATCH{'var_name'})) } or 1
1167 9 0 do { $$MATCH{'capture'} = 'Val::Num'->new('num', '' . $MATCH) } or 1
1270 0 0 do { $$MATCH{'capture'} = '\\' . $$MATCH{'single_quoted_unescape'} } or 1
1285 0 0 do { $$MATCH{'capture'} = q['] . $$MATCH{'single_quoted_unescape'} } or 1
1300 0 0 do { $$MATCH{'capture'} = '\\' . $$MATCH{'single_quoted_unescape'} } or 1
1325 274 0 do { $$MATCH{'capture'} = $$MATCH{'char_any_single_quote'} . $$MATCH{'single_quoted_unescape'} } or 1
1450 0 0 do { $$MATCH{'capture'} = chr $$MATCH{'digits'} } or 1
1465 0 0 do { $$MATCH{'capture'} = chr $$MATCH{'digits'} } or 1
1472 0 0 do { $$MATCH{'capture'} = "\e" } or 1
1477 2 0 do { $$MATCH{'capture'} = "\n" } or 1
1482 0 0 do { $$MATCH{'capture'} = "\t" } or 1
1497 0 0 do { $$MATCH{'capture'} = '' . $$MATCH{'char_any'} } or 1
1514 123 1 do { $$MATCH{'capture'} = '' . $$MATCH{'char_any_double_quote'} } or 1
1585 2 0 do { $$MATCH{'capture'} = $${$$MATCH{'Perlito::Expression.operator'};}[1] } or 1
1600 0 0 do { $$MATCH{'capture'} = 'Val::Buf'->new('buf', '' . $$MATCH{'char_any'}) } or 1
1662 0 0 do { $$MATCH{'capture'} = $${$$MATCH{'Perlito::Expression.operator'};}[1] } or 1
1677 0 0 do { $$MATCH{'capture'} = 'Val::Buf'->new('buf', '' . $$MATCH{'char_any'}) } or 1
1739 0 0 do { $$MATCH{'capture'} = $${$$MATCH{'Perlito::Expression.operator'};}[1] } or 1
1754 0 0 do { $$MATCH{'capture'} = 'Val::Buf'->new('buf', '' . $$MATCH{'char_any'}) } or 1
1771 3 0 do { $$MATCH{'capture'} = 'Do'->new('block', 'Lit::Block'->new('stmts', ${$$MATCH{'exp_stmts'};})) } or 1
1786 126 0 do { $$MATCH{'capture'} = 'Val::Buf'->new('buf', ${$$MATCH{'double_quoted_unescape'};}) } or 1
1836 159 0 do { my($args) = $$MATCH{'double_quoted_buf'}; if (not $args) { $$MATCH{'capture'} = 'Val::Buf'->new('buf', ''); } else { $$MATCH{'capture'} = 'Apply'->new(('namespace', ''), ('code', 'list:<~>'), ('arguments', [map({$_->capture;} @{$$MATCH{'double_quoted_buf'};})])); } } or 1
1857 275 0 do { $$MATCH{'capture'} = 'Val::Buf'->new('buf', ${$$MATCH{'single_quoted_unescape'};}) } or 1
1935 318 0 do { $$MATCH{'capture'} = 'Val::Int'->new('int', '' . $MATCH) } or 1
1985 270 0 do { $$MATCH{'capture'} = [map({$_->capture;} @{$$MATCH{'Perlito::Expression.delimited_statement'};})] } or 1
2049 4 0 do { $$MATCH{'capture'} = ${$$MATCH{'var_ident'};} } or 1
2099 24 0 do { $$MATCH{'capture'} = 'Sig'->new(('invocant', ${$$MATCH{'var_invocant'};}), ('positional', Perlito::Expression::expand_list($${$$MATCH{'Perlito::Expression.list_parse'};}{'exp'})), ('named', do { my $Hash_a = bless({}, 'HASH'); $Hash_a })) } or 1
2155 24 0 do { $$MATCH{'capture'} = ${$$MATCH{'args_sig'};} } or 1
2259 12 0 do { $$MATCH{'capture'} = 'Method'->new(('name', ${$$MATCH{'opt_name'};}), ('sig', ${$$MATCH{'method_sig'};}), ('block', ${$$MATCH{'exp_stmts'};})) } or 1
2351 12 0 do { $$MATCH{'capture'} = 'Sub'->new(('name', ${$$MATCH{'opt_name'};}), ('sig', ${$$MATCH{'method_sig'};}), ('block', ${$$MATCH{'exp_stmts'};})) } or 1
2396 4 0 do { my($source) = $$MATCH{'opt_name'} . ' ( ' . '$' . 'grammar: ' . '$' . 'str, ' . '$' . 'pos ) ' . '{' . ' ' . 'my ' . '$' . 'MATCH' . ';' . ' ' . '$' . 'MATCH ' . '=' . ' Perlito::Match.new( str ' . '=' . '> ' . '$' . 'str, from ' . '=' . '> ' . '$' . 'pos, to ' . '=' . '> ' . '$' . 'pos, bool ' . '=' . '> 1 )' . ';' . ' ' . '$' . 'MATCH.bool ' . '=' . ' ( ' . ${$$MATCH{'Perlito::Grammar::Regex.rule'};}->emit_perl6 . ')' . ';' . ' ' . '$' . 'MATCH ' . '}'; my($ast) = 'Perlito::Grammar'->method_def($source, 0); $$MATCH{'capture'} = ${$ast;} } or 1

or 3 conditions

line l !l&&r !l&&!r condition
459 0 0 973 do { if ('=begin' eq substr($str, $MATCH->to, 6) and $$MATCH{'to'} = 6 + $MATCH->to) { my($m2) = $grammar->pod_begin($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } or do { $$MATCH{'to'} = $pos1; if ('=for' eq substr($str, $MATCH->to, 4) and $$MATCH{'to'} = 4 + $MATCH->to) { my($m2) = $grammar->pod_begin($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } }
464 12 0 12572 do { if ('#' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) { my($last_match_null) = 0; my($last_pos) = $MATCH->to; while (do { my($m2) = $grammar->not_newline($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } } and $last_match_null < 2) { if ($last_pos == $MATCH->to) { $last_match_null = $last_match_null + 1; } else { $last_match_null = 0; } ; $last_pos = $MATCH->to; } ; $$MATCH{'to'} = $last_pos; 1; } } or do { $$MATCH{'to'} = $pos1; if (do { my($m2) = $grammar->is_newline($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($pos1) = $MATCH->to; unless (do { if ('=begin' eq substr($str, $MATCH->to, 6) and $$MATCH{'to'} = 6 + $MATCH->to) { my($m2) = $grammar->pod_begin($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } or do { $$MATCH{'to'} = $pos1; if ('=for' eq substr($str, $MATCH->to, 4) and $$MATCH{'to'} = 4 + $MATCH->to) { my($m2) = $grammar->pod_begin($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } }) { $$MATCH{'to'} = $pos1; 1; } ; } }
668 81 0 2785 do { $$MATCH{'to'} = 2 + $MATCH->to if 'my' eq substr($str, $MATCH->to, 2) } or do { $$MATCH{'to'} = $pos1; $$MATCH{'to'} = 5 + $MATCH->to if 'state' eq substr($str, $MATCH->to, 5) }
839 476 0 5152 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) }
23 0 5129 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) }
866 5 0 562 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) }
0 0 562 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) }
899 541 0 24 do { my($m2) = $grammar->full_ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'full_ident'} = $m2; 1; } else { 0; } } or do { $$MATCH{'to'} = $pos1; $$MATCH{'to'} = 1 + $MATCH->to if '/' eq substr($str, $MATCH->to, 1) }
996 0 0 0 do { $$MATCH{'to'} = 1 + $MATCH->to if '+' eq substr($str, $MATCH->to, 1) } or do { $$MATCH{'to'} = $pos1; $$MATCH{'to'} = 1 + $MATCH->to if '-' eq substr($str, $MATCH->to, 1) }
1328 0 0 549 do { do { $$MATCH{'capture'} = '\\' . $$MATCH{'single_quoted_unescape'} } or 1 if '\\' 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) = $grammar->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } } } or do { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = q['] . $$MATCH{'single_quoted_unescape'} } 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->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } } }
0 0 549 do { do { $$MATCH{'capture'} = '\\' . $$MATCH{'single_quoted_unescape'} } or 1 if '\\' 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) = $grammar->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } } } or do { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = q['] . $$MATCH{'single_quoted_unescape'} } 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->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } } } or do { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = '\\' . $$MATCH{'single_quoted_unescape'} } or 1 if '\\' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } } }
0 0 549 do { do { $$MATCH{'capture'} = '\\' . $$MATCH{'single_quoted_unescape'} } or 1 if '\\' 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) = $grammar->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } } } or do { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = q['] . $$MATCH{'single_quoted_unescape'} } 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->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } } } or do { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = '\\' . $$MATCH{'single_quoted_unescape'} } or 1 if '\\' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } } } or do { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = $$MATCH{'char_any_single_quote'} . $$MATCH{'single_quoted_unescape'} } or 1 if do { my($m2) = $grammar->char_any_single_quote($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'char_any_single_quote'} = $m2; 1; } else { 0; } } and do { my($m2) = $grammar->single_quoted_unescape($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'single_quoted_unescape'} = $m2; 1; } else { 0; } } }
1362 159 0 124 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) }
0 0 124 do { $$MATCH{'to'} = 1 + $MATCH->to if '"' eq substr($str, $MATCH->to, 1) } or do { $$MATCH{'to'} = $pos1; $$MATCH{'to'} = 1 + $MATCH->to if '$' eq substr($str, $MATCH->to, 1) } or do { $$MATCH{'to'} = $pos1; $$MATCH{'to'} = 1 + $MATCH->to if '@' eq substr($str, $MATCH->to, 1) }
0 0 124 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) }
1398 117 0 773 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) }
2 0 771 do { $$MATCH{'to'} = 1 + $MATCH->to if '"' eq substr($str, $MATCH->to, 1) } or do { $$MATCH{'to'} = $pos1; $$MATCH{'to'} = 1 + $MATCH->to if '$' eq substr($str, $MATCH->to, 1) } or do { $$MATCH{'to'} = $pos1; $$MATCH{'to'} = 1 + $MATCH->to if '@' eq substr($str, $MATCH->to, 1) }
0 0 771 do { $$MATCH{'to'} = 1 + $MATCH->to if '"' eq substr($str, $MATCH->to, 1) } or do { $$MATCH{'to'} = $pos1; $$MATCH{'to'} = 1 + $MATCH->to if '$' eq substr($str, $MATCH->to, 1) } or do { $$MATCH{'to'} = $pos1; $$MATCH{'to'} = 1 + $MATCH->to if '@' eq substr($str, $MATCH->to, 1) } or do { $$MATCH{'to'} = $pos1; $$MATCH{'to'} = 1 + $MATCH->to if '%' eq substr($str, $MATCH->to, 1) }
0 0 771 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) }
1485 0 0 2 do { if ('c' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) { my($pos1) = $MATCH->to; unless (do { do { $$MATCH{'capture'} = chr $$MATCH{'digits'} } or 1 if '[' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'digits'} = $m2; 1; } else { 0; } } and (']' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) }) { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = chr $$MATCH{'digits'} } or 1 if do { my($m2) = $grammar->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'digits'} = $m2; 1; } else { 0; } }; } ; } } or do { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = "\e" } or 1 if 'e' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to }
0 0 2 do { if ('c' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) { my($pos1) = $MATCH->to; unless (do { do { $$MATCH{'capture'} = chr $$MATCH{'digits'} } or 1 if '[' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'digits'} = $m2; 1; } else { 0; } } and (']' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) }) { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = chr $$MATCH{'digits'} } or 1 if do { my($m2) = $grammar->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'digits'} = $m2; 1; } else { 0; } }; } ; } } or do { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = "\e" } or 1 if 'e' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to } or do { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = "\n" } or 1 if 'n' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to }
2 0 0 do { if ('c' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) { my($pos1) = $MATCH->to; unless (do { do { $$MATCH{'capture'} = chr $$MATCH{'digits'} } or 1 if '[' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'digits'} = $m2; 1; } else { 0; } } and (']' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) }) { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = chr $$MATCH{'digits'} } or 1 if do { my($m2) = $grammar->digits($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'digits'} = $m2; 1; } else { 0; } }; } ; } } or do { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = "\e" } or 1 if 'e' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to } or do { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = "\n" } or 1 if 'n' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to } or do { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = "\t" } or 1 if 't' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to }
1774 2 0 288 do { 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 }) { my($pos1) = $MATCH->to; unless (do { do { $$MATCH{'capture'} = $${$$MATCH{'Perlito::Expression.operator'};}[1] } or 1 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 { if ('$' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = 'Perlito::Expression'->operator($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.operator'} = $m2; 1; } else { 0; } } }) { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = 'Val::Buf'->new('buf', '' . $$MATCH{'char_any'}) } or 1 if do { my($m2) = $grammar->char_any($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'char_any'} = $m2; 1; } else { 0; } }; } ; } } or do { $$MATCH{'to'} = $pos1; 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 }) { my($pos1) = $MATCH->to; unless (do { do { $$MATCH{'capture'} = $${$$MATCH{'Perlito::Expression.operator'};}[1] } or 1 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 { if ('@' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = 'Perlito::Expression'->operator($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.operator'} = $m2; 1; } else { 0; } } and ('[]' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to) }) { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = 'Val::Buf'->new('buf', '' . $$MATCH{'char_any'}) } or 1 if do { my($m2) = $grammar->char_any($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'char_any'} = $m2; 1; } else { 0; } }; } ; } }
0 0 288 do { 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 }) { my($pos1) = $MATCH->to; unless (do { do { $$MATCH{'capture'} = $${$$MATCH{'Perlito::Expression.operator'};}[1] } or 1 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 { if ('$' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = 'Perlito::Expression'->operator($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.operator'} = $m2; 1; } else { 0; } } }) { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = 'Val::Buf'->new('buf', '' . $$MATCH{'char_any'}) } or 1 if do { my($m2) = $grammar->char_any($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'char_any'} = $m2; 1; } else { 0; } }; } ; } } or do { $$MATCH{'to'} = $pos1; 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 }) { my($pos1) = $MATCH->to; unless (do { do { $$MATCH{'capture'} = $${$$MATCH{'Perlito::Expression.operator'};}[1] } or 1 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 { if ('@' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = 'Perlito::Expression'->operator($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.operator'} = $m2; 1; } else { 0; } } and ('[]' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to) }) { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = 'Val::Buf'->new('buf', '' . $$MATCH{'char_any'}) } or 1 if do { my($m2) = $grammar->char_any($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'char_any'} = $m2; 1; } else { 0; } }; } ; } } or do { $$MATCH{'to'} = $pos1; 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 }) { my($pos1) = $MATCH->to; unless (do { do { $$MATCH{'capture'} = $${$$MATCH{'Perlito::Expression.operator'};}[1] } or 1 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 { if ('%' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = 'Perlito::Expression'->operator($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.operator'} = $m2; 1; } else { 0; } } and ('{}' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to) }) { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = 'Val::Buf'->new('buf', '' . $$MATCH{'char_any'}) } or 1 if do { my($m2) = $grammar->char_any($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'char_any'} = $m2; 1; } else { 0; } }; } ; } }
0 0 288 do { 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 }) { my($pos1) = $MATCH->to; unless (do { do { $$MATCH{'capture'} = $${$$MATCH{'Perlito::Expression.operator'};}[1] } or 1 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 { if ('$' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = 'Perlito::Expression'->operator($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.operator'} = $m2; 1; } else { 0; } } }) { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = 'Val::Buf'->new('buf', '' . $$MATCH{'char_any'}) } or 1 if do { my($m2) = $grammar->char_any($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'char_any'} = $m2; 1; } else { 0; } }; } ; } } or do { $$MATCH{'to'} = $pos1; 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 }) { my($pos1) = $MATCH->to; unless (do { do { $$MATCH{'capture'} = $${$$MATCH{'Perlito::Expression.operator'};}[1] } or 1 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 { if ('@' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = 'Perlito::Expression'->operator($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.operator'} = $m2; 1; } else { 0; } } and ('[]' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to) }) { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = 'Val::Buf'->new('buf', '' . $$MATCH{'char_any'}) } or 1 if do { my($m2) = $grammar->char_any($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'char_any'} = $m2; 1; } else { 0; } }; } ; } } or do { $$MATCH{'to'} = $pos1; 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 }) { my($pos1) = $MATCH->to; unless (do { do { $$MATCH{'capture'} = $${$$MATCH{'Perlito::Expression.operator'};}[1] } or 1 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 { if ('%' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->var_twigil($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } }) { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; 1; } else { 0; } ; } } }; $$tmp{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH } and do { my($m2) = 'Perlito::Expression'->operator($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'Perlito::Expression.operator'} = $m2; 1; } else { 0; } } and ('{}' eq substr($str, $MATCH->to, 2) and $$MATCH{'to'} = 2 + $MATCH->to) }) { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = 'Val::Buf'->new('buf', '' . $$MATCH{'char_any'}) } or 1 if do { my($m2) = $grammar->char_any($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'char_any'} = $m2; 1; } else { 0; } }; } ; } } or do { $$MATCH{'to'} = $pos1; do { $$MATCH{'capture'} = 'Do'->new('block', 'Lit::Block'->new('stmts', ${$$MATCH{'exp_stmts'};})) } or 1 if '{' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to and do { my($m2) = $grammar->exp_stmts($str, $MATCH->to); if ($m2) { $$MATCH{'to'} = $m2->to; $$MATCH{'exp_stmts'} = $m2; 1; } else { 0; } } and ('}' eq substr($str, $MATCH->to, 1) and $$MATCH{'to'} = 1 + $MATCH->to) }