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