Branch Coverage

blib/lib/Perlito6/Grammar.pm
Criterion Covered Total %
branch 287 556 51.6


line true false branch
31 1100 12063 if ("\n" eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
33 1100 0 unless (do { $MATCH->{'to'} = 1 + $MATCH->to if "\r" eq substr($str, $MATCH->to, 1) })
34 0 1100 if "\r" eq substr($str, $MATCH->to, 1)
40 12063 1100 unless (do { if ("\n" eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) { my($last_pos) = $MATCH->to; unless (do { $MATCH->{'to'} = 1 + $MATCH->to if "\r" eq substr($str, $MATCH->to, 1) }) { $MATCH->{'to'} = $last_pos; } ; 1; } })
42 0 12063 if ("\r" eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
44 0 0 unless (do { $MATCH->{'to'} = 1 + $MATCH->to if "\n" eq substr($str, $MATCH->to, 1) })
45 0 0 if "\n" eq substr($str, $MATCH->to, 1)
71 12 323 if ($m2) { }
83 323 12 if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { my($m2) = $grammar->is_newline($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } }; $tmp->{'bool'} = !$MATCH; $MATCH = $tmp; not !$MATCH }
104 981 8715 if ($m2) { }
116 8715 981 if (do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { my($m2) = $grammar->digit($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } }; $tmp->{'bool'} = !$MATCH; $MATCH = $tmp; not !$MATCH })
122 8133 8715 if ($m2) { }
130 0 8133 if ($last_pos == $MATCH->to) { }
157 578 107 if ($m2) { }
164 578 107 if (do { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } })
170 1 578 if ('::' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to)
172 1 0 if ($m2) { }
182 0 1 if ($last_pos == $MATCH->to) { }
208 879 2361 if ($m2) { }
221 14 865 if '::' eq substr($str, $MATCH->to, 2)
227 14 865 if (do { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } } and do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { $MATCH->{'to'} = 2 + $MATCH->to if '::' eq substr($str, $MATCH->to, 2) } }; $tmp->{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH })
235 16 0 if ($m2) { }
242 16 0 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; } })
248 2 14 if '::' eq substr($str, $MATCH->to, 2)
257 0 2 if ($last_pos == $MATCH->to) { }
283 14 3226 if ($m2) { }
291 14 0 if 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)
294 3226 14 unless (do { do { $MATCH->{'capture'} = '' . $MATCH->{'namespace_before_ident'} } or 1 if 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) })
296 3226 0 unless do { $MATCH->{'capture'} = '' }
314 0 0 if ($m2) { }
321 0 0 if (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))
326 0 0 if ($m2) { }
334 0 0 if ($last_pos == $MATCH->to) { }
345 0 0 unless (do { if (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)) { 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; } })
352 0 0 if ($m2) { }
360 0 0 if ($last_pos == $MATCH->to) { }
370 0 0 if ('' 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 })
372 0 0 if ($m2) { }
399 12 12572 if ('#' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
404 323 12 if ($m2) { }
412 0 323 if ($last_pos == $MATCH->to) { }
427 973 11599 if ($m2) { }
434 973 11599 if (do { my($m2) = $grammar->is_newline($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } })
437 0 973 if ('=begin' eq substr($str, $MATCH->to, 6) and $MATCH->{'to'} = 6 + $MATCH->to)
439 0 0 if ($m2) { }
449 0 973 if ('=for' eq substr($str, $MATCH->to, 4) and $MATCH->{'to'} = 4 + $MATCH->to)
451 0 0 if ($m2) { }
459 973 0 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; } ; } })
464 11599 973 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; } ; } })
468 6285 5314 if ($m2) { }
478 0 7270 if ($last_pos == $MATCH->to) { }
503 269 182 unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } })
505 182 269 if ($m2) { }
530 4 11 unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } })
532 11 4 if ($m2) { }
557 0 4 unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } })
559 4 0 if ($m2) { }
585 36 0 if ($m2) { }
595 0 36 unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } })
597 36 0 if ($m2) { }
610 0 36 unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } })
612 36 0 if ($m2) { }
625 36 0 if ($m2) { }
635 36 0 unless (do { my($m2) = $grammar->ws($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } })
637 0 36 if ($m2) { }
648 36 0 if 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)
664 81 2785 if 'my' eq substr($str, $MATCH->to, 2)
667 0 2785 if 'state' eq substr($str, $MATCH->to, 5)
668 2785 0 unless (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) })
670 2 2783 if 'has' eq substr($str, $MATCH->to, 3)
686 0 0 if ($m2) { }
694 0 0 if do { my($m2) = $grammar->exp_stmts($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'exp_stmts'} = $m2; 1; } else { 0; } }
712 90 0 if ($m2) { }
720 90 0 if do { my($m2) = 'Perlito6::Expression'->exp_parse($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Expression.exp_parse'} = $m2; 1; } else { 0; } }
738 14 0 if ($m2) { }
746 14 0 if do { my($m2) = 'Perlito6::Expression'->exp_parse($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Expression.exp_parse'} = $m2; 1; } else { 0; } }
764 0 0 if ($m2) { }
772 0 0 if do { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'ident'} = $m2; 1; } else { 0; } }
775 0 0 unless (do { do { $MATCH->{'capture'} = ${$MATCH->{'ident'};} } or 1 if do { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'ident'} = $m2; 1; } else { 0; } } })
777 0 0 unless do { $MATCH->{'capture'} = 'postcircumfix:<( )>' }
795 83 0 unless (do { $MATCH->{'to'} = 2 + $MATCH->to if '::' eq substr($str, $MATCH->to, 2) })
796 0 83 if '::' eq substr($str, $MATCH->to, 2)
803 0 83 if ($m2) { }
811 0 83 if 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; } }
814 83 0 unless (do { do { $MATCH->{'capture'} = ${$MATCH->{'full_ident'};} } or 1 if 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; } } })
816 83 0 unless do { $MATCH->{'capture'} = '' }
832 476 5152 if '$' eq substr($str, $MATCH->to, 1)
835 23 5129 if '%' eq substr($str, $MATCH->to, 1)
838 50 5079 if '@' eq substr($str, $MATCH->to, 1)
839 5079 50 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) })
841 16 5063 if '&' eq substr($str, $MATCH->to, 1)
856 562 5 unless (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) }) { $MATCH->{'to'} = $pos1; $MATCH->{'to'} = 1 + $MATCH->to if '*' eq substr($str, $MATCH->to, 1); } })
859 5 562 if '.' eq substr($str, $MATCH->to, 1)
862 0 562 if '!' eq substr($str, $MATCH->to, 1)
865 0 562 if '^' eq substr($str, $MATCH->to, 1)
866 562 0 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) })
868 0 562 if '*' eq substr($str, $MATCH->to, 1)
888 541 24 if ($m2) { }
898 0 24 if '/' eq substr($str, $MATCH->to, 1)
899 24 0 unless (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) })
903 0 24 if ($m2) { }
927 565 4999 if ($m2) { }
937 565 0 if ($m2) { }
947 565 0 if ($m2) { }
957 541 24 if ($m2) { }
965 541 24 if 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; } }
984 0 336 if 'e' eq substr($str, $MATCH->to, 1)
985 336 0 unless (do { $MATCH->{'to'} = 1 + $MATCH->to if 'e' eq substr($str, $MATCH->to, 1) })
987 0 336 if 'E' eq substr($str, $MATCH->to, 1)
992 0 0 if '+' eq substr($str, $MATCH->to, 1)
995 0 0 if '-' eq substr($str, $MATCH->to, 1)
996 0 0 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) })
1000 0 0 if (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; } })
1006 0 0 if ($m2) { }
1014 0 0 if ($last_pos == $MATCH->to) { }
1048 0 0 if ($m2) { }
1056 0 0 if ($last_pos == $MATCH->to) { }
1067 0 0 if ('.' 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 })
1069 0 0 unless (do { my($m2) = $grammar->exponent($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } })
1071 0 0 if ($m2) { }
1083 2337 0 unless (do { if ('.' 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 }) { my($last_pos) = $MATCH->to; unless (do { my($m2) = $grammar->exponent($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }) { $MATCH->{'to'} = $last_pos; } ; 1; } })
1091 352 2337 if ($m2) { }
1099 0 352 if ($last_pos == $MATCH->to) { }
1110 327 2010 if (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 })
1114 0 327 if ($m2) { }
1121 327 0 unless (do { my($m2) = $grammar->exponent($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } })
1129 16 9 if ($m2) { }
1137 0 16 if ($last_pos == $MATCH->to) { }
1148 9 0 if ('.' 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 })
1150 9 0 unless (do { my($m2) = $grammar->exponent($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } })
1152 0 9 if ($m2) { }
1167 9 2328 if do { my($pos1) = $MATCH->to; unless (do { if ('.' 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 }) { my($last_pos) = $MATCH->to; unless (do { my($m2) = $grammar->exponent($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }) { $MATCH->{'to'} = $last_pos; } ; 1; } }) { $MATCH->{'to'} = $pos1; if (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 }) { my($pos1) = $MATCH->to; unless (do { my($m2) = $grammar->exponent($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }) { $MATCH->{'to'} = $pos1; if ('.' 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 }) { my($last_pos) = $MATCH->to; unless (do { my($m2) = $grammar->exponent($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; 1; } else { 0; } }) { $MATCH->{'to'} = $last_pos; } ; 1; } ; } ; } ; } }
1183 0 0 if '' ne substr($str, $MATCH->to, 1)
1203 275 274 if q['] eq substr($str, $MATCH->to, 1)
1209 274 0 if (do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { $MATCH->{'to'} = 1 + $MATCH->to if q['] eq substr($str, $MATCH->to, 1) } }; $tmp->{'bool'} = !$MATCH; $MATCH = $tmp; not !$MATCH } and ('' ne substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to))
1223 274 1681 if q['] eq substr($str, $MATCH->to, 1)
1224 1681 274 unless (do { $MATCH->{'to'} = 1 + $MATCH->to if q['] eq substr($str, $MATCH->to, 1) })
1226 0 1681 if '\\' eq substr($str, $MATCH->to, 1)
1233 1681 274 if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { 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 }
1236 0 1681 if ($last_pos == $MATCH->to) { }
1262 0 0 if ($m2) { }
1270 0 0 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; } }
1277 0 0 if ($m2) { }
1285 0 0 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; } }
1292 0 0 if ($m2) { }
1300 0 0 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; } }
1307 274 275 if ($m2) { }
1317 274 0 if ($m2) { }
1325 274 0 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; } }
1328 275 274 unless (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; } } })
1352 159 124 if '"' eq substr($str, $MATCH->to, 1)
1355 0 124 if '$' eq substr($str, $MATCH->to, 1)
1358 0 124 if '@' eq substr($str, $MATCH->to, 1)
1361 0 124 if '%' eq substr($str, $MATCH->to, 1)
1362 124 0 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) })
1364 0 124 if '{' eq substr($str, $MATCH->to, 1)
1371 124 0 if (do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { 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))
1385 117 774 if '"' eq substr($str, $MATCH->to, 1)
1388 2 772 if '$' eq substr($str, $MATCH->to, 1)
1391 0 772 if '@' eq substr($str, $MATCH->to, 1)
1394 0 772 if '%' eq substr($str, $MATCH->to, 1)
1397 3 769 if '{' eq substr($str, $MATCH->to, 1)
1398 769 3 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) })
1400 2 767 if '\\' eq substr($str, $MATCH->to, 1)
1407 767 124 if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { 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 }
1410 0 767 if ($last_pos == $MATCH->to) { }
1434 2 283 if ('\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
1437 0 2 if ('c' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)
1442 0 0 if ($m2) { }
1450 0 0 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)
1453 0 0 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) })
1457 0 0 if ($m2) { }
1465 0 0 if do { my($m2) = $grammar->digits($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'digits'} = $m2; 1; } else { 0; } }
1472 0 2 if 'e' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
1477 2 0 if 'n' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
1482 0 0 if 't' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to
1485 0 0 unless (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 })
1489 0 0 if ($m2) { }
1497 0 0 if do { my($m2) = $grammar->char_any($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_any'} = $m2; 1; } else { 0; } }
1502 283 2 unless (do { if ('\\' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to) { my($pos1) = $MATCH->to; unless (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 }) { $MATCH->{'to'} = $pos1; do { $MATCH->{'capture'} = '' . $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; } }; } ; } })
1506 124 159 if ($m2) { }
1514 124 159 if do { my($m2) = $grammar->char_any_double_quote($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_any_double_quote'} = $m2; 1; } else { 0; } }
1536 2 288 if '$' eq substr($str, $MATCH->to, 1)
1542 2 288 if (do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { $MATCH->{'to'} = 1 + $MATCH->to if '$' eq substr($str, $MATCH->to, 1) } }; $tmp->{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH })
1553 2 0 if ($m2) { }
1560 2 0 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; } })
1562 2 0 if ($m2) { }
1577 2 0 if ($m2) { }
1585 2 0 if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { 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) = 'Perlito6::Expression'->operator($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Expression.operator'} = $m2; 1; } else { 0; } }
1588 0 2 unless (do { do { $MATCH->{'capture'} = ${$$MATCH{'Perlito6::Expression.operator'};}->[1] } or 1 if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { 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) = 'Perlito6::Expression'->operator($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Expression.operator'} = $m2; 1; } else { 0; } } })
1592 0 0 if ($m2) { }
1600 0 0 if do { my($m2) = $grammar->char_any($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_any'} = $m2; 1; } else { 0; } }
1613 0 288 if '@' eq substr($str, $MATCH->to, 1)
1619 0 288 if (do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { $MATCH->{'to'} = 1 + $MATCH->to if '@' eq substr($str, $MATCH->to, 1) } }; $tmp->{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH })
1630 0 0 if ($m2) { }
1637 0 0 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; } })
1639 0 0 if ($m2) { }
1654 0 0 if ($m2) { }
1662 0 0 if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { 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) = 'Perlito6::Expression'->operator($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Expression.operator'} = $m2; 1; } else { 0; } } and ('[]' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to)
1665 0 0 unless (do { do { $MATCH->{'capture'} = ${$$MATCH{'Perlito6::Expression.operator'};}->[1] } or 1 if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { 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) = 'Perlito6::Expression'->operator($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Expression.operator'} = $m2; 1; } else { 0; } } and ('[]' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) })
1669 0 0 if ($m2) { }
1677 0 0 if do { my($m2) = $grammar->char_any($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_any'} = $m2; 1; } else { 0; } }
1690 0 288 if '%' eq substr($str, $MATCH->to, 1)
1696 0 288 if (do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { $MATCH->{'to'} = 1 + $MATCH->to if '%' eq substr($str, $MATCH->to, 1) } }; $tmp->{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH })
1707 0 0 if ($m2) { }
1714 0 0 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; } })
1716 0 0 if ($m2) { }
1731 0 0 if ($m2) { }
1739 0 0 if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { 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) = 'Perlito6::Expression'->operator($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Expression.operator'} = $m2; 1; } else { 0; } } and ('{}' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to)
1742 0 0 unless (do { do { $MATCH->{'capture'} = ${$$MATCH{'Perlito6::Expression.operator'};}->[1] } or 1 if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { 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) = 'Perlito6::Expression'->operator($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Expression.operator'} = $m2; 1; } else { 0; } } and ('{}' eq substr($str, $MATCH->to, 2) and $MATCH->{'to'} = 2 + $MATCH->to) })
1746 0 0 if ($m2) { }
1754 0 0 if do { my($m2) = $grammar->char_any($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'char_any'} = $m2; 1; } else { 0; } }
1763 3 0 if ($m2) { }
1771 3 0 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)
1774 285 3 unless (do { if (do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { $MATCH->{'to'} = 1 + $MATCH->to if '$' eq substr($str, $MATCH->to, 1) } }; $tmp->{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH }) { my($pos1) = $MATCH->to; unless (do { do { $MATCH->{'capture'} = ${$$MATCH{'Perlito6::Expression.operator'};}->[1] } or 1 if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { 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) = 'Perlito6::Expression'->operator($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::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 = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { $MATCH->{'to'} = 1 + $MATCH->to if '@' eq substr($str, $MATCH->to, 1) } }; $tmp->{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH }) { my($pos1) = $MATCH->to; unless (do { do { $MATCH->{'capture'} = ${$$MATCH{'Perlito6::Expression.operator'};}->[1] } or 1 if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { 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) = 'Perlito6::Expression'->operator($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::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 = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { $MATCH->{'to'} = 1 + $MATCH->to if '%' eq substr($str, $MATCH->to, 1) } }; $tmp->{'bool'} = !!$MATCH; $MATCH = $tmp; not !$MATCH }) { my($pos1) = $MATCH->to; unless (do { do { $MATCH->{'capture'} = ${$$MATCH{'Perlito6::Expression.operator'};}->[1] } or 1 if do { my($tmp) = $MATCH; $MATCH = 'Perlito6::Match'->new(('str', $str), ('from', $tmp->to), ('to', $tmp->to), ('bool', 1)); $MATCH->{'bool'} = do { my($pos1) = $MATCH->to; do { 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) = 'Perlito6::Expression'->operator($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::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) })
1778 126 159 if ($m2) { }
1786 126 159 if do { my($m2) = $grammar->double_quoted_unescape($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'double_quoted_unescape'} = $m2; 1; } else { 0; } }
1807 131 159 if ($m2) { }
1809 10 121 if (exists $MATCH->{'double_quoted_buf'}) { }
1826 0 131 if ($last_pos == $MATCH->to) { }
1836 159 0 if '"' 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)
1838 38 121 if (not $args) { }
1845 1851 159 unless (do { 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 if '"' 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) })
1849 275 0 if ($m2) { }
1857 275 0 if 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)
1878 0 0 if ($m2) { }
1886 0 0 if ($last_pos == $MATCH->to) { }
1916 343 2328 if ($m2) { }
1924 0 343 if ($last_pos == $MATCH->to) { }
1935 318 2010 if 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 }
1956 705 270 if ($m2) { }
1958 436 269 if (exists $MATCH->{'Perlito6::Expression.delimited_statement'}) { }
1975 0 705 if ($last_pos == $MATCH->to) { }
1985 270 0 if do { my($last_match_null) = 0; my($last_pos) = $MATCH->to; while (do { my($m2) = 'Perlito6::Expression'->delimited_statement($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; if (exists $MATCH->{'Perlito6::Expression.delimited_statement'}) { push @{$$MATCH{'Perlito6::Expression.delimited_statement'};}, $m2; } else { $MATCH->{'Perlito6::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) { 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 }
2002 7 21 unless (do { my($m2) = $grammar->ident($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; if (exists $MATCH->{'ident'}) { push @{$$MATCH{'ident'};}, $m2; } else { $MATCH->{'ident'} = do { my $List_a = bless([], 'ARRAY'); my $List_v = bless([], 'ARRAY'); push @{$List_a;}, $m2; $List_a }; } ; 1; } else { 0; } })
2004 21 7 if ($m2) { }
2006 0 21 if (exists $MATCH->{'ident'}) { }
2041 15 9 if ($m2) { }
2049 4 11 if 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)
2052 20 4 unless (do { do { $MATCH->{'capture'} = ${$MATCH->{'var_ident'};} } or 1 if 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) })
2054 0 20 unless do { $MATCH->{'capture'} = 'Var'->new(('sigil', '$'), ('twigil', ''), ('name', 'self')) }
2072 24 0 if ($m2) { }
2082 24 0 if ($m2) { }
2091 24 0 if ($m2) { }
2099 24 0 if 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) = 'Perlito6::Expression'->list_parse($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Expression.list_parse'} = $m2; 1; } else { 0; } }
2120 24 0 if ($m2) { }
2129 24 0 if ($m2) { }
2138 24 0 if ($m2) { }
2148 24 0 if ($m2) { }
2155 24 0 if 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)
2158 0 24 unless (do { do { $MATCH->{'capture'} = ${$MATCH->{'args_sig'};} } or 1 if 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) })
2160 0 0 unless do { $MATCH->{'capture'} = 'Sig'->new(('invocant', 'Var'->new(('sigil', '$'), ('twigil', ''), ('name', 'self'))), ('positional', do { my $List_a = bless([], 'ARRAY'); my $List_v = bless([], 'ARRAY'); $List_a }), ('named', do { my $Hash_a = bless({}, 'HASH'); $Hash_a })) }
2185 12 0 if ($m2) { }
2195 12 0 if ($m2) { }
2204 12 0 if ($m2) { }
2214 12 0 if ($m2) { }
2223 12 0 if ($m2) { }
2232 12 0 if ($m2) { }
2242 12 0 if ($m2) { }
2252 12 0 if '}' eq substr($str, $MATCH->to, 1)
2253 0 12 unless (do { $MATCH->{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) })
2255 0 0 unless do { die q[Syntax Error in method '.], ${$MATCH->{'name'};}, q[' near pos=], $MATCH->to }
2259 12 0 if 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 }; } }
2277 12 0 if ($m2) { }
2287 12 0 if ($m2) { }
2296 12 0 if ($m2) { }
2306 12 0 if ($m2) { }
2315 12 0 if ($m2) { }
2324 12 0 if ($m2) { }
2334 12 0 if ($m2) { }
2344 12 0 if '}' eq substr($str, $MATCH->to, 1)
2345 0 12 unless (do { $MATCH->{'to'} = 1 + $MATCH->to if '}' eq substr($str, $MATCH->to, 1) })
2347 0 0 unless do { die q[Syntax Error in sub '], ${$MATCH->{'name'};}, q['] }
2351 12 0 if 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['] }; } }
2369 4 0 if ($m2) { }
2379 4 0 if ($m2) { }
2388 4 0 if ($m2) { }
2396 4 0 if 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) = 'Perlito6::Grammar::Regex'->rule($str, $MATCH->to); if ($m2) { $MATCH->{'to'} = $m2->to; $MATCH->{'Perlito6::Grammar::Regex.rule'} = $m2; 1; } else { 0; } } and ('}' eq substr($str, $MATCH->to, 1) and $MATCH->{'to'} = 1 + $MATCH->to)