Branch Coverage

blib/lib/Petal/CodePerl/Parser.pm
Criterion Covered Total %
branch 852 1996 42.6


line true false branch
34 0 43 if defined $main::RD_TRACE
53 43 0 defined $_[4] ? :
54 43 0 $#arg & 1 ? :
68 0 43 if defined $main::RD_TRACE
81 0 43 if defined $main::RD_TRACE
88 29 14 unless (defined($_tok = separator($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
91 0 29 if defined $main::RD_TRACE
99 0 14 if defined $main::RD_TRACE
111 0 14 if defined $main::RD_TRACE
118 0 14 unless (defined($_tok = url_segment($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
121 0 0 if defined $main::RD_TRACE
129 0 14 if defined $main::RD_TRACE
141 0 14 if defined $main::RD_TRACE
150 0 14 if $lastsep = $1
12 2 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\(\)//)
154 0 12 if defined $main::RD_TRACE
159 0 2 if defined $main::RD_TRACE
166 0 2 if defined $main::RD_TRACE
173 0 2 $_noactions ? :
174 0 2 unless (defined $_tok)
176 0 0 if defined $main::RD_TRACE
180 0 2 if defined $main::RD_TRACE
189 0 2 if defined $main::RD_TRACE
199 41 0 unless ($_matched or defined $return or defined $score)
204 0 41 if defined $main::RD_TRACE
211 0 2 if (not defined $return and defined $score)
213 0 0 if defined $main::RD_TRACE
220 2 0 unless defined $return
221 0 2 if (defined $main::RD_TRACE)
246 0 9 if defined $main::RD_TRACE
265 9 0 defined $_[4] ? :
266 9 0 $#arg & 1 ? :
280 0 9 if defined $main::RD_TRACE
293 0 9 if defined $main::RD_TRACE
300 0 9 unless (defined($_tok = mod_name($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
303 0 0 if defined $main::RD_TRACE
311 0 9 if defined $main::RD_TRACE
323 0 9 if defined $main::RD_TRACE
331 0 9 if $lastsep = $1
0 9 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:\s*)//)
335 0 0 if defined $main::RD_TRACE
341 0 9 if defined $main::RD_TRACE
348 0 9 if defined $main::RD_TRACE
357 0 9 if $lastsep = $1
8 1 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\://)
361 0 8 if defined $main::RD_TRACE
366 0 1 if defined $main::RD_TRACE
373 0 1 if defined $main::RD_TRACE
381 0 1 if $lastsep = $1
0 1 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:.*)//)
385 0 0 if defined $main::RD_TRACE
391 0 1 if defined $main::RD_TRACE
398 0 1 if defined $main::RD_TRACE
405 0 1 $_noactions ? :
416 0 1 unless (defined $_tok)
418 0 0 if defined $main::RD_TRACE
422 0 1 if defined $main::RD_TRACE
431 0 1 if defined $main::RD_TRACE
441 8 0 unless ($_matched or defined $return or defined $score)
446 0 8 if defined $main::RD_TRACE
453 0 1 if (not defined $return and defined $score)
455 0 0 if defined $main::RD_TRACE
462 1 0 unless defined $return
463 0 1 if (defined $main::RD_TRACE)
488 0 7 if defined $main::RD_TRACE
507 7 0 defined $_[4] ? :
508 7 0 $#arg & 1 ? :
522 0 7 if defined $main::RD_TRACE
535 0 7 if defined $main::RD_TRACE
542 0 7 unless (defined($_tok = $thisparser->_parserepeat($text, \&string_piece, 0, 100000000, $_noactions, $expectation, undef)))
544 0 0 if defined $main::RD_TRACE
551 0 7 if defined $main::RD_TRACE
563 0 7 if defined $main::RD_TRACE
570 0 7 $_noactions ? :
573 0 7 unless (defined $_tok)
575 0 0 if defined $main::RD_TRACE
579 0 7 if defined $main::RD_TRACE
588 0 7 if defined $main::RD_TRACE
598 0 0 unless ($_matched or defined $return or defined $score)
603 0 0 if defined $main::RD_TRACE
610 0 7 if (not defined $return and defined $score)
612 0 0 if defined $main::RD_TRACE
619 7 0 unless defined $return
620 0 7 if (defined $main::RD_TRACE)
645 0 11 if defined $main::RD_TRACE
664 11 0 defined $_[4] ? :
665 11 0 $#arg & 1 ? :
679 0 11 if defined $main::RD_TRACE
692 0 11 if defined $main::RD_TRACE
701 0 11 if $lastsep = $1
11 0 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and do { $_tok = 'path:'; 1 } and substr($text, 0, length $_tok) eq $_tok and do { substr($text, 0, length $_tok) = ''; 1 })
708 0 11 if defined $main::RD_TRACE
713 0 0 if defined $main::RD_TRACE
722 0 0 if defined $main::RD_TRACE
728 0 0 if (defined $_tok) { }
730 0 0 if defined $main::RD_TRACE
737 0 0 if defined $main::RD_TRACE
742 0 0 unless defined $_tok
746 0 0 if defined $main::RD_TRACE
753 0 0 unless (defined($_tok = single_path($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
756 0 0 if defined $main::RD_TRACE
764 0 0 if defined $main::RD_TRACE
776 0 0 if defined $main::RD_TRACE
783 0 0 $_noactions ? :
784 0 0 unless (defined $_tok)
786 0 0 if defined $main::RD_TRACE
790 0 0 if defined $main::RD_TRACE
799 0 0 if defined $main::RD_TRACE
809 11 0 unless ($_matched or defined $return or defined $score)
814 0 11 if defined $main::RD_TRACE
821 0 0 if (not defined $return and defined $score)
823 0 0 if defined $main::RD_TRACE
830 0 0 unless defined $return
831 0 0 if (defined $main::RD_TRACE)
856 0 42 if defined $main::RD_TRACE
875 0 42 defined $_[4] ? :
876 42 0 $#arg & 1 ? :
890 0 42 if defined $main::RD_TRACE
903 0 42 if defined $main::RD_TRACE
910 41 1 unless (defined($_tok = dollar($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
913 0 41 if defined $main::RD_TRACE
921 0 1 if defined $main::RD_TRACE
934 0 1 if defined $main::RD_TRACE
947 0 41 if defined $main::RD_TRACE
960 0 41 if defined $main::RD_TRACE
967 27 14 unless (defined($_tok = non_dollar($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
970 0 27 if defined $main::RD_TRACE
978 0 14 if defined $main::RD_TRACE
991 0 14 if defined $main::RD_TRACE
1001 27 0 unless ($_matched or defined $return or defined $score)
1006 0 27 if defined $main::RD_TRACE
1013 0 15 if (not defined $return and defined $score)
1015 0 0 if defined $main::RD_TRACE
1022 15 0 unless defined $return
1023 0 15 if (defined $main::RD_TRACE)
1048 0 10 if defined $main::RD_TRACE
1067 10 0 defined $_[4] ? :
1068 10 0 $#arg & 1 ? :
1082 0 10 if defined $main::RD_TRACE
1095 0 10 if defined $main::RD_TRACE
1102 8 2 unless (defined($_tok = qual_expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
1105 0 8 if defined $main::RD_TRACE
1113 0 2 if defined $main::RD_TRACE
1126 0 2 if defined $main::RD_TRACE
1139 0 8 if defined $main::RD_TRACE
1152 0 8 if defined $main::RD_TRACE
1159 0 8 unless (defined($_tok = single_path($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
1162 0 0 if defined $main::RD_TRACE
1170 0 8 if defined $main::RD_TRACE
1183 0 8 if defined $main::RD_TRACE
1193 0 0 unless ($_matched or defined $return or defined $score)
1198 0 0 if defined $main::RD_TRACE
1205 0 10 if (not defined $return and defined $score)
1207 0 0 if defined $main::RD_TRACE
1214 10 0 unless defined $return
1215 0 10 if (defined $main::RD_TRACE)
1240 0 2 if defined $main::RD_TRACE
1259 2 0 defined $_[4] ? :
1260 2 0 $#arg & 1 ? :
1274 0 2 if defined $main::RD_TRACE
1287 0 2 if defined $main::RD_TRACE
1295 0 2 if $lastsep = $1
0 2 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:[0-9]+)//)
1299 0 0 if defined $main::RD_TRACE
1305 0 2 if defined $main::RD_TRACE
1313 0 2 if defined $main::RD_TRACE
1323 0 0 unless ($_matched or defined $return or defined $score)
1328 0 0 if defined $main::RD_TRACE
1335 0 2 if (not defined $return and defined $score)
1337 0 0 if defined $main::RD_TRACE
1344 2 0 unless defined $return
1345 0 2 if (defined $main::RD_TRACE)
1370 0 6 if defined $main::RD_TRACE
1389 6 0 defined $_[4] ? :
1390 6 0 $#arg & 1 ? :
1404 0 6 if defined $main::RD_TRACE
1417 0 6 if defined $main::RD_TRACE
1426 0 6 if $lastsep = $1
5 1 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\-\-//)
1430 0 5 if defined $main::RD_TRACE
1435 0 1 if defined $main::RD_TRACE
1442 0 1 if defined $main::RD_TRACE
1450 0 1 if $lastsep = $1
0 1 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:\S+)//)
1454 0 0 if defined $main::RD_TRACE
1460 0 1 if defined $main::RD_TRACE
1468 0 1 if defined $main::RD_TRACE
1478 5 0 unless ($_matched or defined $return or defined $score)
1483 0 5 if defined $main::RD_TRACE
1490 0 1 if (not defined $return and defined $score)
1492 0 0 if defined $main::RD_TRACE
1499 1 0 unless defined $return
1500 0 1 if (defined $main::RD_TRACE)
1525 0 11 if defined $main::RD_TRACE
1544 11 0 defined $_[4] ? :
1545 11 0 $#arg & 1 ? :
1559 0 11 if defined $main::RD_TRACE
1572 0 11 if defined $main::RD_TRACE
1579 11 0 unless (defined($_tok = path_expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
1582 0 11 if defined $main::RD_TRACE
1590 0 0 if defined $main::RD_TRACE
1603 0 0 if defined $main::RD_TRACE
1616 0 11 if defined $main::RD_TRACE
1629 0 11 if defined $main::RD_TRACE
1636 11 0 unless (defined($_tok = not_expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
1639 0 11 if defined $main::RD_TRACE
1647 0 0 if defined $main::RD_TRACE
1660 0 0 if defined $main::RD_TRACE
1673 0 11 if defined $main::RD_TRACE
1686 0 11 if defined $main::RD_TRACE
1693 8 3 unless (defined($_tok = string_expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
1696 0 8 if defined $main::RD_TRACE
1704 0 3 if defined $main::RD_TRACE
1717 0 3 if defined $main::RD_TRACE
1730 0 8 if defined $main::RD_TRACE
1743 0 8 if defined $main::RD_TRACE
1750 8 0 unless (defined($_tok = exists_expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
1753 0 8 if defined $main::RD_TRACE
1761 0 0 if defined $main::RD_TRACE
1774 0 0 if defined $main::RD_TRACE
1787 0 8 if defined $main::RD_TRACE
1800 0 8 if defined $main::RD_TRACE
1807 8 0 unless (defined($_tok = perl_expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
1810 0 8 if defined $main::RD_TRACE
1818 0 0 if defined $main::RD_TRACE
1831 0 0 if defined $main::RD_TRACE
1844 0 8 if defined $main::RD_TRACE
1857 0 8 if defined $main::RD_TRACE
1864 8 0 unless (defined($_tok = mod_expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
1867 0 8 if defined $main::RD_TRACE
1875 0 0 if defined $main::RD_TRACE
1888 0 0 if defined $main::RD_TRACE
1898 8 0 unless ($_matched or defined $return or defined $score)
1903 0 8 if defined $main::RD_TRACE
1910 0 3 if (not defined $return and defined $score)
1912 0 0 if defined $main::RD_TRACE
1919 3 0 unless defined $return
1920 0 3 if (defined $main::RD_TRACE)
1945 0 29 if defined $main::RD_TRACE
1964 29 0 defined $_[4] ? :
1965 29 0 $#arg & 1 ? :
1979 0 29 if defined $main::RD_TRACE
1992 0 29 if defined $main::RD_TRACE
2001 0 29 if $lastsep = $1
27 2 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\{//)
2005 0 27 if defined $main::RD_TRACE
2010 0 2 if defined $main::RD_TRACE
2017 0 2 if defined $main::RD_TRACE
2024 0 2 unless (defined($_tok = url_segment($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
2027 0 0 if defined $main::RD_TRACE
2035 0 2 if defined $main::RD_TRACE
2047 0 2 if defined $main::RD_TRACE
2056 0 2 if $lastsep = $1
0 2 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\}//)
2060 0 0 if defined $main::RD_TRACE
2065 0 2 if defined $main::RD_TRACE
2072 0 2 if defined $main::RD_TRACE
2079 0 2 $_noactions ? :
2080 0 2 unless (defined $_tok)
2082 0 0 if defined $main::RD_TRACE
2086 0 2 if defined $main::RD_TRACE
2095 0 2 if defined $main::RD_TRACE
2105 27 0 unless ($_matched or defined $return or defined $score)
2110 0 27 if defined $main::RD_TRACE
2117 0 2 if (not defined $return and defined $score)
2119 0 0 if defined $main::RD_TRACE
2126 2 0 unless defined $return
2127 0 2 if (defined $main::RD_TRACE)
2152 0 8 if defined $main::RD_TRACE
2171 8 0 defined $_[4] ? :
2172 8 0 $#arg & 1 ? :
2186 0 8 if defined $main::RD_TRACE
2199 0 8 if defined $main::RD_TRACE
2208 0 8 if $lastsep = $1
8 0 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and do { $_tok = 'exists:'; 1 } and substr($text, 0, length $_tok) eq $_tok and do { substr($text, 0, length $_tok) = ''; 1 })
2215 0 8 if defined $main::RD_TRACE
2220 0 0 if defined $main::RD_TRACE
2229 0 0 if defined $main::RD_TRACE
2235 0 0 if (defined $_tok) { }
2237 0 0 if defined $main::RD_TRACE
2244 0 0 if defined $main::RD_TRACE
2249 0 0 unless defined $_tok
2253 0 0 if defined $main::RD_TRACE
2260 0 0 unless (defined($_tok = path_expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
2263 0 0 if defined $main::RD_TRACE
2271 0 0 if defined $main::RD_TRACE
2283 0 0 if defined $main::RD_TRACE
2290 0 0 $_noactions ? :
2291 0 0 unless (defined $_tok)
2293 0 0 if defined $main::RD_TRACE
2297 0 0 if defined $main::RD_TRACE
2306 0 0 if defined $main::RD_TRACE
2316 8 0 unless ($_matched or defined $return or defined $score)
2321 0 8 if defined $main::RD_TRACE
2328 0 0 if (not defined $return and defined $score)
2330 0 0 if defined $main::RD_TRACE
2337 0 0 unless defined $return
2338 0 0 if (defined $main::RD_TRACE)
2363 0 42 if defined $main::RD_TRACE
2382 42 0 defined $_[4] ? :
2383 42 0 $#arg & 1 ? :
2397 0 42 if defined $main::RD_TRACE
2410 0 42 if defined $main::RD_TRACE
2419 0 42 if $lastsep = $1
41 1 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\$\$//)
2423 0 41 if defined $main::RD_TRACE
2428 0 1 if defined $main::RD_TRACE
2435 0 1 if defined $main::RD_TRACE
2442 0 1 $_noactions ? :
2443 0 1 unless (defined $_tok)
2445 0 0 if defined $main::RD_TRACE
2449 0 1 if defined $main::RD_TRACE
2458 0 1 if defined $main::RD_TRACE
2468 41 0 unless ($_matched or defined $return or defined $score)
2473 0 41 if defined $main::RD_TRACE
2480 0 1 if (not defined $return and defined $score)
2482 0 0 if defined $main::RD_TRACE
2489 1 0 unless defined $return
2490 0 1 if (defined $main::RD_TRACE)
2515 0 43 if defined $main::RD_TRACE
2534 0 43 defined $_[4] ? :
2535 43 0 $#arg & 1 ? :
2549 0 43 if defined $main::RD_TRACE
2562 0 43 if defined $main::RD_TRACE
2569 36 7 unless (defined($_tok = method_call($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
2572 0 36 if defined $main::RD_TRACE
2580 0 7 if defined $main::RD_TRACE
2593 0 7 if defined $main::RD_TRACE
2606 0 36 if defined $main::RD_TRACE
2619 0 36 if defined $main::RD_TRACE
2626 29 7 unless (defined($_tok = tal_deref($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
2629 0 29 if defined $main::RD_TRACE
2637 0 7 if defined $main::RD_TRACE
2650 0 7 if defined $main::RD_TRACE
2663 0 29 if defined $main::RD_TRACE
2676 0 29 if defined $main::RD_TRACE
2683 27 2 unless (defined($_tok = hash_deref($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
2686 0 27 if defined $main::RD_TRACE
2694 0 2 if defined $main::RD_TRACE
2707 0 2 if defined $main::RD_TRACE
2720 0 27 if defined $main::RD_TRACE
2733 0 27 if defined $main::RD_TRACE
2740 25 2 unless (defined($_tok = array_deref($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
2743 0 25 if defined $main::RD_TRACE
2751 0 2 if defined $main::RD_TRACE
2764 0 2 if defined $main::RD_TRACE
2774 25 0 unless ($_matched or defined $return or defined $score)
2779 0 25 if defined $main::RD_TRACE
2786 0 18 if (not defined $return and defined $score)
2788 0 0 if defined $main::RD_TRACE
2795 18 0 unless defined $return
2796 0 18 if (defined $main::RD_TRACE)
2821 0 11 if defined $main::RD_TRACE
2840 11 0 defined $_[4] ? :
2841 11 0 $#arg & 1 ? :
2855 0 11 if defined $main::RD_TRACE
2868 0 11 if defined $main::RD_TRACE
2875 9 2 unless (defined($_tok = mod_expr_compile($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
2878 0 9 if defined $main::RD_TRACE
2886 0 2 if defined $main::RD_TRACE
2899 0 2 if defined $main::RD_TRACE
2912 0 9 if defined $main::RD_TRACE
2925 0 9 if defined $main::RD_TRACE
2932 8 1 unless (defined($_tok = mod_expr_revert($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
2935 0 8 if defined $main::RD_TRACE
2943 0 1 if defined $main::RD_TRACE
2956 0 1 if defined $main::RD_TRACE
2966 8 0 unless ($_matched or defined $return or defined $score)
2971 0 8 if defined $main::RD_TRACE
2978 0 3 if (not defined $return and defined $score)
2980 0 0 if defined $main::RD_TRACE
2987 3 0 unless defined $return
2988 0 3 if (defined $main::RD_TRACE)
3013 0 6 if defined $main::RD_TRACE
3032 6 0 defined $_[4] ? :
3033 6 0 $#arg & 1 ? :
3047 0 6 if defined $main::RD_TRACE
3060 0 6 if defined $main::RD_TRACE
3067 3 3 unless (defined($_tok = _alternation_1_of_production_1_of_rule_string_argument($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
3070 0 3 if defined $main::RD_TRACE
3078 0 3 if defined $main::RD_TRACE
3090 0 3 if defined $main::RD_TRACE
3097 0 3 $_noactions ? :
3100 0 3 unless (defined $_tok)
3102 0 0 if defined $main::RD_TRACE
3106 0 3 if defined $main::RD_TRACE
3115 0 3 if defined $main::RD_TRACE
3125 3 0 unless ($_matched or defined $return or defined $score)
3130 0 3 if defined $main::RD_TRACE
3137 0 3 if (not defined $return and defined $score)
3139 0 0 if defined $main::RD_TRACE
3146 3 0 unless defined $return
3147 0 3 if (defined $main::RD_TRACE)
3172 0 41 if defined $main::RD_TRACE
3191 41 0 defined $_[4] ? :
3192 41 0 $#arg & 1 ? :
3206 0 41 if defined $main::RD_TRACE
3219 0 41 if defined $main::RD_TRACE
3226 29 12 unless (defined($_tok = separator($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
3229 0 29 if defined $main::RD_TRACE
3237 0 12 if defined $main::RD_TRACE
3249 0 12 if defined $main::RD_TRACE
3256 0 12 unless (defined($_tok = url_segment($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
3259 0 0 if defined $main::RD_TRACE
3267 0 12 if defined $main::RD_TRACE
3279 0 12 if defined $main::RD_TRACE
3287 0 12 if $lastsep = $1
7 5 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:\s+)//)
3291 0 7 if defined $main::RD_TRACE
3297 0 5 if defined $main::RD_TRACE
3304 0 5 if defined $main::RD_TRACE
3319 0 5 if defined $main::RD_TRACE
3326 0 5 unless (defined($_tok = argument($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
3329 0 0 if defined $main::RD_TRACE
3337 0 5 if defined $main::RD_TRACE
3360 0 6 if defined $main::RD_TRACE
3368 0 6 if $lastsep = $1
5 1 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:\s+)//)
3372 0 5 if defined $main::RD_TRACE
3378 0 1 if defined $main::RD_TRACE
3386 0 1 if (defined $1)
3388 0 1 if defined $main::RD_TRACE
3395 0 1 unless (defined($_tok = argument($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
3398 0 0 if defined $main::RD_TRACE
3406 0 1 if defined $main::RD_TRACE
3422 0 5 if $backtrack
3424 0 5 unless (@item)
3429 0 5 unless ($repcount >= 1)
3431 0 0 if defined $main::RD_TRACE
3439 0 5 if defined $main::RD_TRACE
3440 0 0 unless $_tok
3449 0 5 if defined $main::RD_TRACE
3456 0 5 $_noactions ? :
3459 0 5 unless (defined $_tok)
3461 0 0 if defined $main::RD_TRACE
3465 0 5 if defined $main::RD_TRACE
3474 0 5 if defined $main::RD_TRACE
3484 36 0 unless ($_matched or defined $return or defined $score)
3489 0 36 if defined $main::RD_TRACE
3496 0 5 if (not defined $return and defined $score)
3498 0 0 if defined $main::RD_TRACE
3505 5 0 unless defined $return
3506 0 5 if (defined $main::RD_TRACE)
3531 0 41 if defined $main::RD_TRACE
3550 41 0 defined $_[4] ? :
3551 41 0 $#arg & 1 ? :
3565 0 41 if defined $main::RD_TRACE
3578 0 41 if defined $main::RD_TRACE
3586 0 41 if $lastsep = $1
27 14 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:[^\$]+)//)
3590 0 27 if defined $main::RD_TRACE
3596 0 14 if defined $main::RD_TRACE
3604 0 14 if defined $main::RD_TRACE
3614 27 0 unless ($_matched or defined $return or defined $score)
3619 0 27 if defined $main::RD_TRACE
3626 0 14 if (not defined $return and defined $score)
3628 0 0 if defined $main::RD_TRACE
3635 14 0 unless defined $return
3636 0 14 if (defined $main::RD_TRACE)
3661 0 4 if defined $main::RD_TRACE
3680 4 0 defined $_[4] ? :
3681 4 0 $#arg & 1 ? :
3695 0 4 if defined $main::RD_TRACE
3708 0 4 if defined $main::RD_TRACE
3717 0 4 if $lastsep = $1
3 1 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and do { $_tok = q[']; 1 } and substr($text, 0, length $_tok) eq $_tok and do { substr($text, 0, length $_tok) = ''; 1 })
3724 0 3 if defined $main::RD_TRACE
3729 0 1 if defined $main::RD_TRACE
3736 0 1 if defined $main::RD_TRACE
3744 0 1 if $lastsep = $1
0 1 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:[^']*)//)
3748 0 0 if defined $main::RD_TRACE
3754 0 1 if defined $main::RD_TRACE
3761 0 1 if defined $main::RD_TRACE
3770 0 1 if $lastsep = $1
0 1 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and do { $_tok = q[']; 1 } and substr($text, 0, length $_tok) eq $_tok and do { substr($text, 0, length $_tok) = ''; 1 })
3777 0 0 if defined $main::RD_TRACE
3782 0 1 if defined $main::RD_TRACE
3789 0 1 if defined $main::RD_TRACE
3796 0 1 $_noactions ? :
3797 0 1 unless (defined $_tok)
3799 0 0 if defined $main::RD_TRACE
3803 0 1 if defined $main::RD_TRACE
3812 0 1 if defined $main::RD_TRACE
3822 3 0 unless ($_matched or defined $return or defined $score)
3827 0 3 if defined $main::RD_TRACE
3834 0 1 if (not defined $return and defined $score)
3836 0 0 if defined $main::RD_TRACE
3843 1 0 unless defined $return
3844 0 1 if (defined $main::RD_TRACE)
3869 0 27 if defined $main::RD_TRACE
3888 27 0 defined $_[4] ? :
3889 27 0 $#arg & 1 ? :
3903 0 27 if defined $main::RD_TRACE
3916 0 27 if defined $main::RD_TRACE
3923 14 13 unless (defined($_tok = $thisparser->_parserepeat($text, \&_alternation_1_of_production_1_of_rule_plain_string, 1, 100000000, $_noactions, $expectation, undef)))
3925 0 14 if defined $main::RD_TRACE
3932 0 13 if defined $main::RD_TRACE
3944 0 13 if defined $main::RD_TRACE
3951 0 13 $_noactions ? :
3954 0 13 unless (defined $_tok)
3956 0 0 if defined $main::RD_TRACE
3960 0 13 if defined $main::RD_TRACE
3969 0 13 if defined $main::RD_TRACE
3979 14 0 unless ($_matched or defined $return or defined $score)
3984 0 14 if defined $main::RD_TRACE
3991 0 13 if (not defined $return and defined $score)
3993 0 0 if defined $main::RD_TRACE
4000 13 0 unless defined $return
4001 0 13 if (defined $main::RD_TRACE)
4026 0 11 if defined $main::RD_TRACE
4045 11 0 defined $_[4] ? :
4046 11 0 $#arg & 1 ? :
4060 0 11 if defined $main::RD_TRACE
4073 0 11 if defined $main::RD_TRACE
4082 0 11 if $lastsep = $1
11 0 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and do { $_tok = 'not:'; 1 } and substr($text, 0, length $_tok) eq $_tok and do { substr($text, 0, length $_tok) = ''; 1 })
4089 0 11 if defined $main::RD_TRACE
4094 0 0 if defined $main::RD_TRACE
4103 0 0 if defined $main::RD_TRACE
4109 0 0 if (defined $_tok) { }
4111 0 0 if defined $main::RD_TRACE
4118 0 0 if defined $main::RD_TRACE
4123 0 0 unless defined $_tok
4127 0 0 if defined $main::RD_TRACE
4134 0 0 unless (defined($_tok = expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
4137 0 0 if defined $main::RD_TRACE
4145 0 0 if defined $main::RD_TRACE
4157 0 0 if defined $main::RD_TRACE
4164 0 0 $_noactions ? :
4167 0 0 unless (defined $_tok)
4169 0 0 if defined $main::RD_TRACE
4173 0 0 if defined $main::RD_TRACE
4182 0 0 if defined $main::RD_TRACE
4192 11 0 unless ($_matched or defined $return or defined $score)
4197 0 11 if defined $main::RD_TRACE
4204 0 0 if (not defined $return and defined $score)
4206 0 0 if defined $main::RD_TRACE
4213 0 0 unless defined $return
4214 0 0 if (defined $main::RD_TRACE)
4239 0 27 if defined $main::RD_TRACE
4258 27 0 defined $_[4] ? :
4259 27 0 $#arg & 1 ? :
4273 0 27 if defined $main::RD_TRACE
4286 0 27 if defined $main::RD_TRACE
4295 0 27 if $lastsep = $1
25 2 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\[//)
4299 0 25 if defined $main::RD_TRACE
4304 0 2 if defined $main::RD_TRACE
4311 0 2 if defined $main::RD_TRACE
4318 0 2 unless (defined($_tok = integer($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
4321 0 0 if defined $main::RD_TRACE
4329 0 2 if defined $main::RD_TRACE
4341 0 2 if defined $main::RD_TRACE
4350 0 2 if $lastsep = $1
0 2 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\]//)
4354 0 0 if defined $main::RD_TRACE
4359 0 2 if defined $main::RD_TRACE
4366 0 2 if defined $main::RD_TRACE
4373 0 2 $_noactions ? :
4374 0 2 unless (defined $_tok)
4376 0 0 if defined $main::RD_TRACE
4380 0 2 if defined $main::RD_TRACE
4389 0 2 if defined $main::RD_TRACE
4399 25 0 unless ($_matched or defined $return or defined $score)
4404 0 25 if defined $main::RD_TRACE
4411 0 2 if (not defined $return and defined $score)
4413 0 0 if defined $main::RD_TRACE
4420 2 0 unless defined $return
4421 0 2 if (defined $main::RD_TRACE)
4446 0 8 if defined $main::RD_TRACE
4465 8 0 defined $_[4] ? :
4466 8 0 $#arg & 1 ? :
4479 8 0 defined $Parse::RecDescent::Petal::CodePerl::Parser::skip ? :
4480 0 8 if defined $main::RD_TRACE
4493 0 8 if defined $main::RD_TRACE
4502 0 8 if $lastsep = $1
8 0 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and do { $_tok = 'perl:'; 1 } and substr($text, 0, length $_tok) eq $_tok and do { substr($text, 0, length $_tok) = ''; 1 })
4509 0 8 if defined $main::RD_TRACE
4514 0 0 if defined $main::RD_TRACE
4523 0 0 if defined $main::RD_TRACE
4529 0 0 if (defined $_tok) { }
4531 0 0 if defined $main::RD_TRACE
4538 0 0 if defined $main::RD_TRACE
4543 0 0 unless defined $_tok
4549 0 0 if defined $main::RD_TRACE
4556 0 0 if (defined $_tok) { }
4558 0 0 if defined $main::RD_TRACE
4565 0 0 if defined $main::RD_TRACE
4570 0 0 unless defined $_tok
4574 0 0 if defined $main::RD_TRACE
4581 0 0 $_noactions ? :
4582 0 0 unless (defined $_tok)
4584 0 0 if defined $main::RD_TRACE
4588 0 0 if defined $main::RD_TRACE
4597 0 0 if defined $main::RD_TRACE
4607 8 0 unless ($_matched or defined $return or defined $score)
4612 0 8 if defined $main::RD_TRACE
4619 0 0 if (not defined $return and defined $score)
4621 0 0 if defined $main::RD_TRACE
4628 0 0 unless defined $return
4629 0 0 if (defined $main::RD_TRACE)
4654 0 6 if defined $main::RD_TRACE
4673 6 0 defined $_[4] ? :
4674 6 0 $#arg & 1 ? :
4688 0 6 if defined $main::RD_TRACE
4701 0 6 if defined $main::RD_TRACE
4708 3 3 unless (defined($_tok = string_argument($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
4711 0 3 if defined $main::RD_TRACE
4719 0 3 if defined $main::RD_TRACE
4732 0 3 if defined $main::RD_TRACE
4745 0 3 if defined $main::RD_TRACE
4758 0 3 if defined $main::RD_TRACE
4765 0 3 unless (defined($_tok = expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
4768 0 0 if defined $main::RD_TRACE
4776 0 3 if defined $main::RD_TRACE
4789 0 3 if defined $main::RD_TRACE
4799 0 0 unless ($_matched or defined $return or defined $score)
4804 0 0 if defined $main::RD_TRACE
4811 0 6 if (not defined $return and defined $score)
4813 0 0 if defined $main::RD_TRACE
4820 6 0 unless defined $return
4821 0 6 if (defined $main::RD_TRACE)
4846 0 5 if defined $main::RD_TRACE
4865 5 0 defined $_[4] ? :
4866 5 0 $#arg & 1 ? :
4880 0 5 if defined $main::RD_TRACE
4893 0 5 if defined $main::RD_TRACE
4902 0 5 if $lastsep = $1
4 1 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\"//)
4906 0 4 if defined $main::RD_TRACE
4911 0 1 if defined $main::RD_TRACE
4918 0 1 if defined $main::RD_TRACE
4926 0 1 if $lastsep = $1
0 1 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:[^"]*)//)
4930 0 0 if defined $main::RD_TRACE
4936 0 1 if defined $main::RD_TRACE
4943 0 1 if defined $main::RD_TRACE
4952 0 1 if $lastsep = $1
0 1 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\"//)
4956 0 0 if defined $main::RD_TRACE
4961 0 1 if defined $main::RD_TRACE
4968 0 1 if defined $main::RD_TRACE
4975 0 1 $_noactions ? :
4976 0 1 unless (defined $_tok)
4978 0 0 if defined $main::RD_TRACE
4982 0 1 if defined $main::RD_TRACE
4991 0 1 if defined $main::RD_TRACE
5001 4 0 unless ($_matched or defined $return or defined $score)
5006 0 4 if defined $main::RD_TRACE
5013 0 1 if (not defined $return and defined $score)
5015 0 0 if defined $main::RD_TRACE
5022 1 0 unless defined $return
5023 0 1 if (defined $main::RD_TRACE)
5048 0 8 if defined $main::RD_TRACE
5067 8 0 defined $_[4] ? :
5068 8 0 $#arg & 1 ? :
5082 0 8 if defined $main::RD_TRACE
5095 0 8 if defined $main::RD_TRACE
5110 0 8 if defined $main::RD_TRACE
5117 0 8 unless (defined($_tok = single_expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
5120 0 0 if defined $main::RD_TRACE
5128 0 8 if defined $main::RD_TRACE
5151 0 10 if defined $main::RD_TRACE
5159 0 10 if $lastsep = $1
8 2 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:\|)//)
5163 0 8 if defined $main::RD_TRACE
5169 0 2 if defined $main::RD_TRACE
5177 0 2 if (defined $1)
5179 0 2 if defined $main::RD_TRACE
5186 0 2 unless (defined($_tok = single_expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
5189 0 0 if defined $main::RD_TRACE
5197 0 2 if defined $main::RD_TRACE
5213 0 8 if $backtrack
5220 0 8 unless ($repcount >= 0)
5222 0 0 if defined $main::RD_TRACE
5230 0 8 if defined $main::RD_TRACE
5231 0 0 unless $_tok
5240 0 8 if defined $main::RD_TRACE
5247 0 8 $_noactions ? :
5250 0 8 unless (defined $_tok)
5252 0 0 if defined $main::RD_TRACE
5256 0 8 if defined $main::RD_TRACE
5265 0 8 if defined $main::RD_TRACE
5275 0 0 unless ($_matched or defined $return or defined $score)
5280 0 0 if defined $main::RD_TRACE
5287 0 8 if (not defined $return and defined $score)
5289 0 0 if defined $main::RD_TRACE
5296 8 0 unless defined $return
5297 0 8 if (defined $main::RD_TRACE)
5322 0 27 if defined $main::RD_TRACE
5341 27 0 defined $_[4] ? :
5342 27 0 $#arg & 1 ? :
5356 0 27 if defined $main::RD_TRACE
5369 0 27 if defined $main::RD_TRACE
5376 2 25 unless (defined($_tok = url_segment($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
5379 0 2 if defined $main::RD_TRACE
5387 0 25 if defined $main::RD_TRACE
5399 0 25 if defined $main::RD_TRACE
5406 0 25 unless (defined($_tok = $thisparser->_parserepeat($text, \&deref, 0, 100000000, $_noactions, $expectation, undef)))
5408 0 0 if defined $main::RD_TRACE
5415 0 25 if defined $main::RD_TRACE
5427 0 25 if defined $main::RD_TRACE
5434 0 25 $_noactions ? :
5442 7 11 if ($type eq 'tal') { }
2 9 elsif ($type eq 'hash') { }
2 7 elsif ($type eq 'array') { }
7 0 elsif ($type eq 'method') { }
5466 0 25 unless (defined $_tok)
5468 0 0 if defined $main::RD_TRACE
5472 0 25 if defined $main::RD_TRACE
5481 0 25 if defined $main::RD_TRACE
5491 2 0 unless ($_matched or defined $return or defined $score)
5496 0 2 if defined $main::RD_TRACE
5503 0 25 if (not defined $return and defined $score)
5505 0 0 if defined $main::RD_TRACE
5512 25 0 unless defined $return
5513 0 25 if (defined $main::RD_TRACE)
5538 0 11 if defined $main::RD_TRACE
5557 11 0 defined $_[4] ? :
5558 11 0 $#arg & 1 ? :
5572 0 11 if defined $main::RD_TRACE
5585 0 11 if defined $main::RD_TRACE
5594 0 11 if $lastsep = $1
8 3 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and do { $_tok = 'string:'; 1 } and substr($text, 0, length $_tok) eq $_tok and do { substr($text, 0, length $_tok) = ''; 1 })
5601 0 8 if defined $main::RD_TRACE
5606 0 3 if defined $main::RD_TRACE
5615 0 3 if defined $main::RD_TRACE
5621 3 0 if (defined $_tok) { }
5623 0 3 if defined $main::RD_TRACE
5630 0 0 if defined $main::RD_TRACE
5635 0 3 unless defined $_tok
5639 0 3 if defined $main::RD_TRACE
5646 0 3 unless (defined($_tok = string($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
5649 0 0 if defined $main::RD_TRACE
5657 0 3 if defined $main::RD_TRACE
5669 0 3 if defined $main::RD_TRACE
5676 0 3 $_noactions ? :
5677 0 3 unless (defined $_tok)
5679 0 0 if defined $main::RD_TRACE
5683 0 3 if defined $main::RD_TRACE
5692 0 3 if defined $main::RD_TRACE
5702 8 0 unless ($_matched or defined $return or defined $score)
5707 0 8 if defined $main::RD_TRACE
5714 0 3 if (not defined $return and defined $score)
5716 0 0 if defined $main::RD_TRACE
5723 3 0 unless defined $return
5724 0 3 if (defined $main::RD_TRACE)
5749 0 14 if defined $main::RD_TRACE
5768 14 0 defined $_[4] ? :
5769 14 0 $#arg & 1 ? :
5783 0 14 if defined $main::RD_TRACE
5796 0 14 if defined $main::RD_TRACE
5805 0 14 if $lastsep = $1
7 7 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\$//)
5809 0 7 if defined $main::RD_TRACE
5814 0 7 if defined $main::RD_TRACE
5821 0 7 if defined $main::RD_TRACE
5828 2 5 unless (defined($_tok = single_path($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
5831 0 2 if defined $main::RD_TRACE
5839 0 5 if defined $main::RD_TRACE
5852 0 5 if defined $main::RD_TRACE
5865 0 9 if defined $main::RD_TRACE
5878 0 9 if defined $main::RD_TRACE
5887 0 9 if $lastsep = $1
7 2 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\$\{//)
5891 0 7 if defined $main::RD_TRACE
5896 0 2 if defined $main::RD_TRACE
5903 0 2 if defined $main::RD_TRACE
5910 0 2 unless (defined($_tok = single_path($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
5913 0 0 if defined $main::RD_TRACE
5921 0 2 if defined $main::RD_TRACE
5933 0 2 if defined $main::RD_TRACE
5942 0 2 if $lastsep = $1
0 2 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\}//)
5946 0 0 if defined $main::RD_TRACE
5951 0 2 if defined $main::RD_TRACE
5958 0 2 if defined $main::RD_TRACE
5965 0 2 $_noactions ? :
5966 0 2 unless (defined $_tok)
5968 0 0 if defined $main::RD_TRACE
5972 0 2 if defined $main::RD_TRACE
5981 0 2 if defined $main::RD_TRACE
5991 7 0 unless ($_matched or defined $return or defined $score)
5996 0 7 if defined $main::RD_TRACE
6003 0 7 if (not defined $return and defined $score)
6005 0 0 if defined $main::RD_TRACE
6012 7 0 unless defined $return
6013 0 7 if (defined $main::RD_TRACE)
6038 0 43 if defined $main::RD_TRACE
6057 43 0 defined $_[4] ? :
6058 43 0 $#arg & 1 ? :
6072 0 43 if defined $main::RD_TRACE
6085 0 43 if defined $main::RD_TRACE
6092 41 2 unless (defined($_tok = empty_method($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
6095 0 41 if defined $main::RD_TRACE
6103 0 2 if defined $main::RD_TRACE
6116 0 2 if defined $main::RD_TRACE
6129 0 41 if defined $main::RD_TRACE
6142 0 41 if defined $main::RD_TRACE
6149 36 5 unless (defined($_tok = arg_method($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
6152 0 36 if defined $main::RD_TRACE
6160 0 5 if defined $main::RD_TRACE
6173 0 5 if defined $main::RD_TRACE
6183 36 0 unless ($_matched or defined $return or defined $score)
6188 0 36 if defined $main::RD_TRACE
6195 0 7 if (not defined $return and defined $score)
6197 0 0 if defined $main::RD_TRACE
6204 7 0 unless defined $return
6205 0 7 if (defined $main::RD_TRACE)
6230 0 62 if defined $main::RD_TRACE
6249 62 0 defined $_[4] ? :
6250 62 0 $#arg & 1 ? :
6264 0 62 if defined $main::RD_TRACE
6277 0 62 if defined $main::RD_TRACE
6285 0 62 if $lastsep = $1
2 60 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:[a-z0-9_\-\~]+)//i)
6289 0 2 if defined $main::RD_TRACE
6295 0 60 if defined $main::RD_TRACE
6303 0 60 if defined $main::RD_TRACE
6313 2 0 unless ($_matched or defined $return or defined $score)
6318 0 2 if defined $main::RD_TRACE
6325 0 60 if (not defined $return and defined $score)
6327 0 0 if defined $main::RD_TRACE
6334 60 0 unless defined $return
6335 0 60 if (defined $main::RD_TRACE)
6360 0 6 if defined $main::RD_TRACE
6379 6 0 defined $_[4] ? :
6380 6 0 $#arg & 1 ? :
6394 0 6 if defined $main::RD_TRACE
6407 0 6 if defined $main::RD_TRACE
6414 5 1 unless (defined($_tok = mm_string($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
6417 0 5 if defined $main::RD_TRACE
6425 0 1 if defined $main::RD_TRACE
6438 0 1 if defined $main::RD_TRACE
6451 0 5 if defined $main::RD_TRACE
6464 0 5 if defined $main::RD_TRACE
6471 4 1 unless (defined($_tok = qq_string($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
6474 0 4 if defined $main::RD_TRACE
6482 0 1 if defined $main::RD_TRACE
6495 0 1 if defined $main::RD_TRACE
6508 0 4 if defined $main::RD_TRACE
6521 0 4 if defined $main::RD_TRACE
6528 3 1 unless (defined($_tok = q_string($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
6531 0 3 if defined $main::RD_TRACE
6539 0 1 if defined $main::RD_TRACE
6552 0 1 if defined $main::RD_TRACE
6562 3 0 unless ($_matched or defined $return or defined $score)
6567 0 3 if defined $main::RD_TRACE
6574 0 3 if (not defined $return and defined $score)
6576 0 0 if defined $main::RD_TRACE
6583 3 0 unless defined $return
6584 0 3 if (defined $main::RD_TRACE)
6609 0 20 if defined $main::RD_TRACE
6628 20 0 defined $_[4] ? :
6629 20 0 $#arg & 1 ? :
6643 0 20 if defined $main::RD_TRACE
6656 0 20 if defined $main::RD_TRACE
6664 0 20 if $lastsep = $1
0 20 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:\w+)//)
6668 0 0 if defined $main::RD_TRACE
6674 0 20 if defined $main::RD_TRACE
6682 0 20 if defined $main::RD_TRACE
6692 0 0 unless ($_matched or defined $return or defined $score)
6697 0 0 if defined $main::RD_TRACE
6704 0 20 if (not defined $return and defined $score)
6706 0 0 if defined $main::RD_TRACE
6713 20 0 unless defined $return
6714 0 20 if (defined $main::RD_TRACE)
6739 0 2 if defined $main::RD_TRACE
6758 2 0 defined $_[4] ? :
6759 2 0 $#arg & 1 ? :
6773 0 2 if defined $main::RD_TRACE
6786 0 2 if defined $main::RD_TRACE
6793 0 2 unless (defined($_tok = expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
6796 0 0 if defined $main::RD_TRACE
6804 0 2 if defined $main::RD_TRACE
6816 0 2 if defined $main::RD_TRACE
6824 0 2 if $lastsep = $1
0 2 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:^\z)//)
6828 0 0 if defined $main::RD_TRACE
6834 0 2 if defined $main::RD_TRACE
6841 0 2 if defined $main::RD_TRACE
6848 0 2 $_noactions ? :
6849 0 2 unless (defined $_tok)
6851 0 0 if defined $main::RD_TRACE
6855 0 2 if defined $main::RD_TRACE
6864 0 2 if defined $main::RD_TRACE
6874 0 0 unless ($_matched or defined $return or defined $score)
6879 0 0 if defined $main::RD_TRACE
6886 0 2 if (not defined $return and defined $score)
6888 0 0 if defined $main::RD_TRACE
6895 2 0 unless defined $return
6896 0 2 if (defined $main::RD_TRACE)
6921 0 36 if defined $main::RD_TRACE
6940 36 0 defined $_[4] ? :
6941 36 0 $#arg & 1 ? :
6955 0 36 if defined $main::RD_TRACE
6968 0 36 if defined $main::RD_TRACE
6975 29 7 unless (defined($_tok = separator($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
6978 0 29 if defined $main::RD_TRACE
6986 0 7 if defined $main::RD_TRACE
6998 0 7 if defined $main::RD_TRACE
7005 0 7 unless (defined($_tok = url_segment($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
7008 0 0 if defined $main::RD_TRACE
7016 0 7 if defined $main::RD_TRACE
7028 0 7 if defined $main::RD_TRACE
7035 0 7 $_noactions ? :
7036 0 7 unless (defined $_tok)
7038 0 0 if defined $main::RD_TRACE
7042 0 7 if defined $main::RD_TRACE
7051 0 7 if defined $main::RD_TRACE
7061 29 0 unless ($_matched or defined $return or defined $score)
7066 0 29 if defined $main::RD_TRACE
7073 0 7 if (not defined $return and defined $score)
7075 0 0 if defined $main::RD_TRACE
7082 7 0 unless defined $return
7083 0 7 if (defined $main::RD_TRACE)
7108 0 120 if defined $main::RD_TRACE
7127 120 0 defined $_[4] ? :
7128 120 0 $#arg & 1 ? :
7142 0 120 if defined $main::RD_TRACE
7155 0 120 if defined $main::RD_TRACE
7164 0 120 if $lastsep = $1
87 33 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s[\A/][])
7168 0 87 if defined $main::RD_TRACE
7173 0 33 if defined $main::RD_TRACE
7181 0 33 if defined $main::RD_TRACE
7194 0 87 if defined $main::RD_TRACE
7207 0 87 if defined $main::RD_TRACE
7216 0 87 if $lastsep = $1
87 0 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\.//)
7220 0 87 if defined $main::RD_TRACE
7225 0 0 if defined $main::RD_TRACE
7233 0 0 if defined $main::RD_TRACE
7243 87 0 unless ($_matched or defined $return or defined $score)
7248 0 87 if defined $main::RD_TRACE
7255 0 33 if (not defined $return and defined $score)
7257 0 0 if defined $main::RD_TRACE
7264 33 0 unless defined $return
7265 0 33 if (defined $main::RD_TRACE)
7290 0 11 if defined $main::RD_TRACE
7309 11 0 defined $_[4] ? :
7310 11 0 $#arg & 1 ? :
7324 0 11 if defined $main::RD_TRACE
7337 0 11 if defined $main::RD_TRACE
7344 0 11 unless (defined($_tok = mod_name($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
7347 0 0 if defined $main::RD_TRACE
7355 0 11 if defined $main::RD_TRACE
7367 0 11 if defined $main::RD_TRACE
7375 0 11 if $lastsep = $1
0 11 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A(?:\s*)//)
7379 0 0 if defined $main::RD_TRACE
7385 0 11 if defined $main::RD_TRACE
7392 0 11 if defined $main::RD_TRACE
7401 0 11 if $lastsep = $1
8 3 unless ($text =~ s/\A($Parse::RecDescent::Petal::CodePerl::Parser::skip)/'' if $lastsep = $1;/e and $text =~ s/\A\://)
7405 0 8 if defined $main::RD_TRACE
7410 0 3 if defined $main::RD_TRACE
7417 0 3 if defined $main::RD_TRACE
7424 0 3 unless (defined($_tok = expr($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
7427 0 0 if defined $main::RD_TRACE
7435 0 3 if defined $main::RD_TRACE
7447 0 3 if defined $main::RD_TRACE
7454 0 3 $_noactions ? :
7461 1 2 if (UNIVERSAL::can($mod, 'inline') and $Petal::CodePerl::InlineMod) { }
1 1 elsif (UNIVERSAL::can($mod, 'process_value')) { }
7476 1 2 unless (defined $_tok)
7478 0 1 if defined $main::RD_TRACE
7482 0 2 if defined $main::RD_TRACE
7491 0 2 if defined $main::RD_TRACE
7501 9 0 unless ($_matched or defined $return or defined $score)
7506 0 9 if defined $main::RD_TRACE
7513 0 2 if (not defined $return and defined $score)
7515 0 0 if defined $main::RD_TRACE
7522 2 0 unless defined $return
7523 0 2 if (defined $main::RD_TRACE)
7548 0 27 if defined $main::RD_TRACE
7567 0 27 defined $_[4] ? :
7568 27 0 $#arg & 1 ? :
7582 0 27 if defined $main::RD_TRACE
7595 0 27 if defined $main::RD_TRACE
7602 14 13 unless (defined($_tok = plain_string($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
7605 0 14 if defined $main::RD_TRACE
7613 0 13 if defined $main::RD_TRACE
7626 0 13 if defined $main::RD_TRACE
7639 0 14 if defined $main::RD_TRACE
7652 0 14 if defined $main::RD_TRACE
7659 7 7 unless (defined($_tok = varsub($thisparser, $text, $repeating, $_noactions, sub { \@arg; } )))
7662 0 7 if defined $main::RD_TRACE
7670 0 7 if defined $main::RD_TRACE
7683 0 7 if defined $main::RD_TRACE
7693 7 0 unless ($_matched or defined $return or defined $score)
7698 0 7 if defined $main::RD_TRACE
7705 0 20 if (not defined $return and defined $score)
7707 0 0 if defined $main::RD_TRACE
7714 20 0 unless defined $return
7715 0 20 if (defined $main::RD_TRACE)