| line |
true |
false |
branch |
|
39
|
0 |
0 |
unless defined $_[3] |
|
46
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
58
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
137
|
0 |
0 |
substr($s, $pos) =~ /^((?!\n\r?|\r\n?).)/ ? : |
|
172
|
0 |
0 |
substr($s, $pos) =~ /^((?!\n\r?|\r\n?).)/ ? : |
|
190
|
0 |
0 |
substr($s, $pos, 1) eq '=' ? : |
|
|
0 |
0 |
substr($s, $pos, 1) eq 'e' ? : |
|
|
0 |
0 |
substr($s, $pos, 1) eq 'n' ? : |
|
|
0 |
0 |
unless ($pad{'I1955'} = $pos) || 1 and ((($pad{'I1956'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:\n\r?|\r\n?))/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I1956'}) && 0 and substr($s, $pos, 1) eq '=' ? ($pos += 1) || 1 : 0 and substr($s, $pos, 1) eq 'e' ? ($pos += 1) || 1 : 0 and substr($s, $pos, 1) eq 'n' ? ($pos += 1) || 1 : 0 and (($pad{'I1957'} = $pos) || 1) && (substr($s, $pos, 1) eq 'd' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1957'}) && 0 and do {
while (($pad{'I1958'} = $pos) || 1 and substr($s, $pos) =~ /^((?!\n\r?|\r\n?).)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I1958'} and 0) {
();
} ;
$bool = 1
}) or ($bool = 1) && ($pos = $pad{'I1955'}) || 1 and ((($pad{'I1959'} = $pos) || 1) && substr($s, $pos++, 1) ne '' || ($pos = $pad{'I1959'}) && 0 and do {
while (($pad{'I1960'} = $pos) || 1 and substr($s, $pos) =~ /^((?!\n\r?|\r\n?).)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I1960'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I1961'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->pod_begin($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1961'}) && 0) |
|
211
|
0 |
0 |
if ($bool) |
|
218
|
0 |
0 |
if $_[3]{'continue'} |
|
236
|
0 |
0 |
unless defined $_[3] |
|
243
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
255
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
334
|
0 |
0 |
substr($s, $pos) =~ /^((?!\n\r?|\r\n?).)/ ? : |
|
369
|
0 |
0 |
substr($s, $pos) =~ /^((?!\n\r?|\r\n?).)/ ? : |
|
387
|
0 |
0 |
substr($s, $pos, 1) eq '=' ? : |
|
|
0 |
0 |
substr($s, $pos, 1) eq 'c' ? : |
|
|
0 |
0 |
substr($s, $pos, 1) eq 'u' ? : |
|
|
0 |
0 |
unless ($pad{'I1962'} = $pos) || 1 and ((($pad{'I1963'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:\n\r?|\r\n?))/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I1963'}) && 0 and substr($s, $pos, 1) eq '=' ? ($pos += 1) || 1 : 0 and substr($s, $pos, 1) eq 'c' ? ($pos += 1) || 1 : 0 and substr($s, $pos, 1) eq 'u' ? ($pos += 1) || 1 : 0 and (($pad{'I1964'} = $pos) || 1) && (substr($s, $pos, 1) eq 't' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1964'}) && 0 and do {
while (($pad{'I1965'} = $pos) || 1 and substr($s, $pos) =~ /^((?!\n\r?|\r\n?).)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I1965'} and 0) {
();
} ;
$bool = 1
}) or ($bool = 1) && ($pos = $pad{'I1962'}) || 1 and ((($pad{'I1966'} = $pos) || 1) && substr($s, $pos++, 1) ne '' || ($pos = $pad{'I1966'}) && 0 and do {
while (($pad{'I1967'} = $pos) || 1 and substr($s, $pos) =~ /^((?!\n\r?|\r\n?).)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I1967'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I1968'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->pod_other($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1968'}) && 0) |
|
408
|
0 |
0 |
if ($bool) |
|
415
|
0 |
0 |
if $_[3]{'continue'} |
|
433
|
15 |
0 |
unless defined $_[3] |
|
440
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
452
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
1145
|
0 |
0 |
unless (($pad{'I1969'} = $pos) || 1) && ((($pad{'I1970'} = $pos) || 1) && (((($pad{'I1971'} = $pos) || 1) && (substr($s, $pos, 1) eq '#' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1971'}) && 0) && do {
while (($pad{'I1972'} = $pos) || 1 and substr($s, $pos) =~ /^((?!\n\r?|\r\n?).)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I1972'} and 0) {
();
} ;
$bool = 1
}) || (($bool = 1) && ($pos = $pad{'I1970'}) || 1) && (((($pad{'I1973'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:\n\r?|\r\n?))/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I1973'}) && 0) && ((($pad{'I1974'} = $pos) || 1) && (((($pad{'I1975'} = $pos) || 1) && (substr($s, $pos, 1) eq '=' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1975'}) && 0) && ((($pad{'I1976'} = $pos) || 1) && ((($pad{'I1977'} = $pos) || 1) && (((($pad{'I1978'} = $pos) || 1) && (substr($s, $pos, 1) eq 'b' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1978'}) && 0) && (substr($s, $pos, 1) eq 'e' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'g' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'i' ? ($pos += 1) || 1 : 0) && ((($pad{'I1979'} = $pos) || 1) && (substr($s, $pos, 1) eq 'n' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1979'}) && 0) && ((($pad{'I1980'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1980'}) && 0) && (substr($s, $pos, 1) eq 'E' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'N' ? ($pos += 1) || 1 : 0) && ((($pad{'I1981'} = $pos) || 1) && (substr($s, $pos, 1) eq 'D' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1981'}) && 0) && do {
while (($pad{'I1982'} = $pos) || 1 and substr($s, $pos) =~ /^((?!\n\r?|\r\n?).)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I1982'} and 0) {
();
} ;
$bool = 1
} && do {
while (($pad{'I1983'} = $pos) || 1 and substr($s, $pos++, 1) ne '' or $pos = $pad{'I1983'} and 0) {
();
} ;
$bool = 1
}) || (($bool = 1) && ($pos = $pad{'I1977'}) || 1) && (((($pad{'I1984'} = $pos) || 1) && (substr($s, $pos, 1) eq 'b' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1984'}) && 0) && (substr($s, $pos, 1) eq 'e' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'g' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'i' ? ($pos += 1) || 1 : 0) && ((($pad{'I1985'} = $pos) || 1) && (substr($s, $pos, 1) eq 'n' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1985'}) && 0) && ((($pad{'I1986'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->pod_begin($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1986'}) && 0)) || (($bool = 1) && ($pos = $pad{'I1977'}) || 1) && (((($pad{'I1987'} = $pos) || 1) && (substr($s, $pos, 1) eq 'k' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1987'}) && 0) && (substr($s, $pos, 1) eq 'w' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'i' ? ($pos += 1) || 1 : 0) && ((($pad{'I1988'} = $pos) || 1) && (substr($s, $pos, 1) eq 'd' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1988'}) && 0) && ((($pad{'I1989'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->pod_other($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1989'}) && 0)) || (($bool = 1) && ($pos = $pad{'I1977'}) || 1) && (((($pad{'I1990'} = $pos) || 1) && (substr($s, $pos, 1) eq 'p' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1990'}) && 0) && (substr($s, $pos, 1) eq 'o' ? ($pos += 1) || 1 : 0) && ((($pad{'I1991'} = $pos) || 1) && (substr($s, $pos, 1) eq 'd' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1991'}) && 0) && ((($pad{'I1992'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->pod_other($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1992'}) && 0)) || (($bool = 1) && ($pos = $pad{'I1977'}) || 1) && (((($pad{'I1993'} = $pos) || 1) && (substr($s, $pos, 1) eq 'f' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1993'}) && 0) && (substr($s, $pos, 1) eq 'o' ? ($pos += 1) || 1 : 0) && ((($pad{'I1994'} = $pos) || 1) && (substr($s, $pos, 1) eq 'r' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1994'}) && 0) && ((($pad{'I1995'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->pod_other($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1995'}) && 0)) || (($bool = 1) && ($pos = $pad{'I1977'}) || 1) && (((($pad{'I1996'} = $pos) || 1) && (substr($s, $pos, 1) eq 'h' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1996'}) && 0) && (substr($s, $pos, 1) eq 'e' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'a' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'd' ? ($pos += 1) || 1 : 0) && ((($pad{'I1997'} = $pos) || 1) && (substr($s, $pos, 1) eq '1' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1997'}) && 0) && ((($pad{'I1998'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->pod_other($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1998'}) && 0))) || ($pos = $pad{'I1976'}) && 0 || ($bool = 1))) || ($pos = $pad{'I1974'}) && 0 || ($bool = 1))) || (($bool = 1) && ($pos = $pad{'I1970'}) || 1) && ((($pad{'I1999'} = $pos) || 1) && (substr($s, $pos) =~ /^(\s)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I1999'}) && 0)) || ($pos = $pad{'I1969'}) && 0 and do {
while (($pad{'I1969'} = $pos) || 1 and (($pad{'I1970'} = $pos) || 1) && (((($pad{'I1971'} = $pos) || 1) && (substr($s, $pos, 1) eq '#' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1971'}) && 0) && do {
while (($pad{'I1972'} = $pos) || 1 and substr($s, $pos) =~ /^((?!\n\r?|\r\n?).)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I1972'} and 0) {
();
} ;
$bool = 1
}) || (($bool = 1) && ($pos = $pad{'I1970'}) || 1) && (((($pad{'I1973'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:\n\r?|\r\n?))/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I1973'}) && 0) && ((($pad{'I1974'} = $pos) || 1) && (((($pad{'I1975'} = $pos) || 1) && (substr($s, $pos, 1) eq '=' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1975'}) && 0) && ((($pad{'I1976'} = $pos) || 1) && ((($pad{'I1977'} = $pos) || 1) && (((($pad{'I1978'} = $pos) || 1) && (substr($s, $pos, 1) eq 'b' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1978'}) && 0) && (substr($s, $pos, 1) eq 'e' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'g' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'i' ? ($pos += 1) || 1 : 0) && ((($pad{'I1979'} = $pos) || 1) && (substr($s, $pos, 1) eq 'n' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1979'}) && 0) && ((($pad{'I1980'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1980'}) && 0) && (substr($s, $pos, 1) eq 'E' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'N' ? ($pos += 1) || 1 : 0) && ((($pad{'I1981'} = $pos) || 1) && (substr($s, $pos, 1) eq 'D' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1981'}) && 0) && do {
while (($pad{'I1982'} = $pos) || 1 and substr($s, $pos) =~ /^((?!\n\r?|\r\n?).)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I1982'} and 0) {
();
} ;
$bool = 1
} && do {
while (($pad{'I1983'} = $pos) || 1 and substr($s, $pos++, 1) ne '' or $pos = $pad{'I1983'} and 0) {
();
} ;
$bool = 1
}) || (($bool = 1) && ($pos = $pad{'I1977'}) || 1) && (((($pad{'I1984'} = $pos) || 1) && (substr($s, $pos, 1) eq 'b' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1984'}) && 0) && (substr($s, $pos, 1) eq 'e' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'g' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'i' ? ($pos += 1) || 1 : 0) && ((($pad{'I1985'} = $pos) || 1) && (substr($s, $pos, 1) eq 'n' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1985'}) && 0) && ((($pad{'I1986'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->pod_begin($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1986'}) && 0)) || (($bool = 1) && ($pos = $pad{'I1977'}) || 1) && (((($pad{'I1987'} = $pos) || 1) && (substr($s, $pos, 1) eq 'k' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1987'}) && 0) && (substr($s, $pos, 1) eq 'w' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'i' ? ($pos += 1) || 1 : 0) && ((($pad{'I1988'} = $pos) || 1) && (substr($s, $pos, 1) eq 'd' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1988'}) && 0) && ((($pad{'I1989'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->pod_other($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1989'}) && 0)) || (($bool = 1) && ($pos = $pad{'I1977'}) || 1) && (((($pad{'I1990'} = $pos) || 1) && (substr($s, $pos, 1) eq 'p' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1990'}) && 0) && (substr($s, $pos, 1) eq 'o' ? ($pos += 1) || 1 : 0) && ((($pad{'I1991'} = $pos) || 1) && (substr($s, $pos, 1) eq 'd' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1991'}) && 0) && ((($pad{'I1992'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->pod_other($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1992'}) && 0)) || (($bool = 1) && ($pos = $pad{'I1977'}) || 1) && (((($pad{'I1993'} = $pos) || 1) && (substr($s, $pos, 1) eq 'f' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1993'}) && 0) && (substr($s, $pos, 1) eq 'o' ? ($pos += 1) || 1 : 0) && ((($pad{'I1994'} = $pos) || 1) && (substr($s, $pos, 1) eq 'r' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1994'}) && 0) && ((($pad{'I1995'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->pod_other($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1995'}) && 0)) || (($bool = 1) && ($pos = $pad{'I1977'}) || 1) && (((($pad{'I1996'} = $pos) || 1) && (substr($s, $pos, 1) eq 'h' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1996'}) && 0) && (substr($s, $pos, 1) eq 'e' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'a' ? ($pos += 1) || 1 : 0) && (substr($s, $pos, 1) eq 'd' ? ($pos += 1) || 1 : 0) && ((($pad{'I1997'} = $pos) || 1) && (substr($s, $pos, 1) eq '1' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I1997'}) && 0) && ((($pad{'I1998'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->pod_other($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I1998'}) && 0))) || ($pos = $pad{'I1976'}) && 0 || ($bool = 1))) || ($pos = $pad{'I1974'}) && 0 || ($bool = 1))) || (($bool = 1) && ($pos = $pad{'I1970'}) || 1) && ((($pad{'I1999'} = $pos) || 1) && (substr($s, $pos) =~ /^(\s)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I1999'}) && 0) or $pos = $pad{'I1969'} and 0) {
();
} ;
$bool = 1
} |
|
1831
|
0 |
0 |
if ($bool) |
|
1838
|
0 |
0 |
if $_[3]{'continue'} |
|
1856
|
0 |
0 |
unless defined $_[3] |
|
1863
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
1875
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
1952
|
0 |
0 |
unless (($pad{'I2000'} = $pos) || 1) && ((($pad{'I2001'} = $pos) || 1) && ((($pad{'I2002'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->alnum($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2002'}) && 0) || (($bool = 1) && ($pos = $pad{'I2001'}) || 1) && ((($pad{'I2003'} = $pos) || 1) && (substr($s, $pos, 1) eq '_' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2003'}) && 0) || (($bool = 1) && ($pos = $pad{'I2001'}) || 1) && ((($pad{'I2004'} = $pos) || 1) && (substr($s, $pos, 2) eq '::' ? ($pos += 2) || 1 : 0) || ($pos = $pad{'I2004'}) && 0)) || ($pos = $pad{'I2000'}) && 0 and do {
while (($pad{'I2000'} = $pos) || 1 and (($pad{'I2001'} = $pos) || 1) && ((($pad{'I2002'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->alnum($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2002'}) && 0) || (($bool = 1) && ($pos = $pad{'I2001'}) || 1) && ((($pad{'I2003'} = $pos) || 1) && (substr($s, $pos, 1) eq '_' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2003'}) && 0) || (($bool = 1) && ($pos = $pad{'I2001'}) || 1) && ((($pad{'I2004'} = $pos) || 1) && (substr($s, $pos, 2) eq '::' ? ($pos += 2) || 1 : 0) || ($pos = $pad{'I2004'}) && 0) or $pos = $pad{'I2000'} and 0) {
();
} ;
$bool = 1
} |
|
2022
|
0 |
0 |
if ($bool) |
|
2029
|
0 |
0 |
if $_[3]{'continue'} |
|
2047
|
0 |
0 |
unless defined $_[3] |
|
2054
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
2066
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
2074
|
0 |
0 |
substr($s, $pos) =~ /^((?:(?=[0-9a-zA-Z]))\X)/ ? : |
|
|
0 |
0 |
unless ($pad{'I2005'} = $pos) || 1 and substr($s, $pos) =~ /^((?:(?=[0-9a-zA-Z]))\X)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I2005'} and 0 |
|
2089
|
0 |
0 |
if ($bool) |
|
2096
|
0 |
0 |
if $_[3]{'continue'} |
|
2114
|
0 |
0 |
unless defined $_[3] |
|
2121
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
2133
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
2141
|
0 |
0 |
substr($s, $pos) =~ /^((?:(?=[a-zA-Z]))\X)/ ? : |
|
|
0 |
0 |
unless ($pad{'I2006'} = $pos) || 1 and substr($s, $pos) =~ /^((?:(?=[a-zA-Z]))\X)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I2006'} and 0 |
|
2156
|
0 |
0 |
if ($bool) |
|
2163
|
0 |
0 |
if $_[3]{'continue'} |
|
2181
|
0 |
0 |
unless defined $_[3] |
|
2188
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
2200
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
2208
|
0 |
0 |
substr($s, $pos) =~ /^((?:(?=[0-9]))\X)/ ? : |
|
|
0 |
0 |
unless ($pad{'I2007'} = $pos) || 1 and substr($s, $pos) =~ /^((?:(?=[0-9]))\X)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I2007'} and 0 |
|
2223
|
0 |
0 |
if ($bool) |
|
2230
|
0 |
0 |
if $_[3]{'continue'} |
|
2248
|
0 |
0 |
unless defined $_[3] |
|
2255
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
2267
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
2731
|
0 |
0 |
if ($match) { } |
|
3018
|
0 |
0 |
substr($s, $pos) =~ /^(\d)/ ? : |
|
3249
|
0 |
0 |
unless ($pad{'I2008'} = $pos) || 1 and ((($pad{'I2009'} = $pos) || 1) && do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless ($pad{'I2010'} = $pos) || 1 and (($pad{'I2011'} = $pos) || 1) && (substr($s, $pos, 1) eq 'c' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2011'}) && 0 or ($bool = 1) && ($pos = $pad{'I2010'}) || 1 and (($pad{'I2012'} = $pos) || 1) && (substr($s, $pos, 1) eq 'C' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2012'}) && 0;
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
$match[0] = 'Pugs::Runtime::Match'->new($hash);
$bool
} || ($pos = $pad{'I2009'}) && 0 and (($pad{'I2013'} = $pos) || 1) && (substr($s, $pos, 1) eq '[' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2013'}) && 0 and (($pad{'I2014'} = $pos) || 1) && do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless (($pad{'I2015'} = $pos) || 1) && ((($pad{'I2016'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->alnum($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'alnum'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || (($bool = 1) && ($pos = $pad{'I2016'}) || 1) && (substr($s, $pos) =~ /^(\s)/ ? ($pos += length $1) || 1 : 0) || (($bool = 1) && ($pos = $pad{'I2016'}) || 1) && ((($pad{'I2017'} = $pos) || 1) && (substr($s, $pos, 1) eq ';' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2017'}) && 0) || (($bool = 1) && ($pos = $pad{'I2016'}) || 1) && ((($pad{'I2018'} = $pos) || 1) && (substr($s, $pos, 1) eq '(' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2018'}) && 0) || (($bool = 1) && ($pos = $pad{'I2016'}) || 1) && ((($pad{'I2019'} = $pos) || 1) && (substr($s, $pos, 1) eq ')' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2019'}) && 0) || (($bool = 1) && ($pos = $pad{'I2016'}) || 1) && ((($pad{'I2020'} = $pos) || 1) && (substr($s, $pos, 1) eq '-' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2020'}) && 0)) || ($pos = $pad{'I2015'}) && 0 and do {
while (($pad{'I2015'} = $pos) || 1 and (($pad{'I2016'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->alnum($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'alnum'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || (($bool = 1) && ($pos = $pad{'I2016'}) || 1) && (substr($s, $pos) =~ /^(\s)/ ? ($pos += length $1) || 1 : 0) || (($bool = 1) && ($pos = $pad{'I2016'}) || 1) && ((($pad{'I2017'} = $pos) || 1) && (substr($s, $pos, 1) eq ';' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2017'}) && 0) || (($bool = 1) && ($pos = $pad{'I2016'}) || 1) && ((($pad{'I2018'} = $pos) || 1) && (substr($s, $pos, 1) eq '(' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2018'}) && 0) || (($bool = 1) && ($pos = $pad{'I2016'}) || 1) && ((($pad{'I2019'} = $pos) || 1) && (substr($s, $pos, 1) eq ')' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2019'}) && 0) || (($bool = 1) && ($pos = $pad{'I2016'}) || 1) && ((($pad{'I2020'} = $pos) || 1) && (substr($s, $pos, 1) eq '-' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2020'}) && 0) or $pos = $pad{'I2015'} and 0) {
();
} ;
$bool = 1
};
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
$match[1] = 'Pugs::Runtime::Match'->new($hash);
$bool
} || ($pos = $pad{'I2014'}) && 0 and (($pad{'I2021'} = $pos) || 1) && (substr($s, $pos, 1) eq ']' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2021'}) && 0 and (($pad{'I2022'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'special_char', '\\' . $_[0][0] . $_[0][1], '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2022'}) && 0) or ($bool = 1) && ($pos = $pad{'I2008'}) || 1 and ((($pad{'I2023'} = $pos) || 1) && ((($pad{'I2024'} = $pos) || 1) && ((($pad{'I2025'} = $pos) || 1) && (substr($s, $pos, 1) eq 'x' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2025'}) && 0) || (($bool = 1) && ($pos = $pad{'I2024'}) || 1) && ((($pad{'I2026'} = $pos) || 1) && (substr($s, $pos, 1) eq 'X' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2026'}) && 0)) || ($pos = $pad{'I2023'}) && 0 and ((($pad{'I2027'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->xdigit($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'xdigit'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2027'}) && 0 and do {
while (($pad{'I2027'} = $pos) || 1 and do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->xdigit($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'xdigit'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} or $pos = $pad{'I2027'} and 0) {
();
} ;
$bool = 1
}) and (($pad{'I2028'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'special_char', '\\' . $_[0], '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2028'}) && 0) or ($bool = 1) && ($pos = $pad{'I2008'}) || 1 and ((($pad{'I2029'} = $pos) || 1) && do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless ($pad{'I2030'} = $pos) || 1 and (($pad{'I2031'} = $pos) || 1) && (substr($s, $pos, 1) eq 'x' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2031'}) && 0 or ($bool = 1) && ($pos = $pad{'I2030'}) || 1 and (($pad{'I2032'} = $pos) || 1) && (substr($s, $pos, 1) eq 'X' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2032'}) && 0;
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
$match[0] = 'Pugs::Runtime::Match'->new($hash);
$bool
} || ($pos = $pad{'I2029'}) && 0 and (($pad{'I2033'} = $pos) || 1) && (substr($s, $pos, 1) eq '[' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2033'}) && 0 and (($pad{'I2034'} = $pos) || 1) && do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless (($pad{'I2035'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->xdigit($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'xdigit'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2035'}) && 0 and do {
while (($pad{'I2035'} = $pos) || 1 and do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->xdigit($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'xdigit'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} or $pos = $pad{'I2035'} and 0) {
();
} ;
$bool = 1
};
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
$match[1] = 'Pugs::Runtime::Match'->new($hash);
$bool
} || ($pos = $pad{'I2034'}) && 0 and (($pad{'I2036'} = $pos) || 1) && (substr($s, $pos, 1) eq ']' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2036'}) && 0 and (($pad{'I2037'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'special_char', '\\' . $_[0][0] . $_[0][1], '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2037'}) && 0) or ($bool = 1) && ($pos = $pad{'I2008'}) || 1 and ((($pad{'I2038'} = $pos) || 1) && ((($pad{'I2039'} = $pos) || 1) && ((($pad{'I2040'} = $pos) || 1) && (substr($s, $pos, 1) eq 'o' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2040'}) && 0) || (($bool = 1) && ($pos = $pad{'I2039'}) || 1) && ((($pad{'I2041'} = $pos) || 1) && (substr($s, $pos, 1) eq 'O' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2041'}) && 0)) || ($pos = $pad{'I2038'}) && 0 and ((($pad{'I2042'} = $pos) || 1) && (substr($s, $pos) =~ /^(\d)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2042'}) && 0 and do {
while (($pad{'I2042'} = $pos) || 1 and substr($s, $pos) =~ /^(\d)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I2042'} and 0) {
();
} ;
$bool = 1
}) and (($pad{'I2043'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'special_char', '\\' . $_[0], '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2043'}) && 0) or ($bool = 1) && ($pos = $pad{'I2008'}) || 1 and ((($pad{'I2044'} = $pos) || 1) && do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless ($pad{'I2045'} = $pos) || 1 and (($pad{'I2046'} = $pos) || 1) && (substr($s, $pos, 1) eq 'o' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2046'}) && 0 or ($bool = 1) && ($pos = $pad{'I2045'}) || 1 and (($pad{'I2047'} = $pos) || 1) && (substr($s, $pos, 1) eq 'O' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2047'}) && 0;
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
$match[0] = 'Pugs::Runtime::Match'->new($hash);
$bool
} || ($pos = $pad{'I2044'}) && 0 and (($pad{'I2048'} = $pos) || 1) && (substr($s, $pos, 1) eq '[' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2048'}) && 0 and (($pad{'I2049'} = $pos) || 1) && do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless (($pad{'I2050'} = $pos) || 1) && (substr($s, $pos) =~ /^(\d)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2050'}) && 0 and do {
while (($pad{'I2050'} = $pos) || 1 and substr($s, $pos) =~ /^(\d)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I2050'} and 0) {
();
} ;
$bool = 1
};
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
$match[1] = 'Pugs::Runtime::Match'->new($hash);
$bool
} || ($pos = $pad{'I2049'}) && 0 and (($pad{'I2051'} = $pos) || 1) && (substr($s, $pos, 1) eq ']' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2051'}) && 0 and (($pad{'I2052'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'special_char', '\\' . $_[0][0] . $_[0][1], '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2052'}) && 0) or ($bool = 1) && ($pos = $pad{'I2008'}) || 1 and ((($pad{'I2053'} = $pos) || 1) && substr($s, $pos++, 1) ne '' || ($pos = $pad{'I2053'}) && 0 and (($pad{'I2054'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'special_char', '\\' . $_[0], '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2054'}) && 0) |
|
3269
|
0 |
0 |
if ($bool) |
|
3276
|
0 |
0 |
if $_[3]{'continue'} |
|
3294
|
0 |
0 |
unless defined $_[3] |
|
3301
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
3313
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
3324
|
0 |
0 |
unless do {
while (($pad{'I2055'} = $pos) || 1 and (($pad{'I2056'} = $pos) || 1) && (((($pad{'I2057'} = $pos) || 1) && (substr($s, $pos, 1) eq '\\' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2057'}) && 0) && ((($pad{'I2058'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->special_char($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'special_char'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2058'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2056'}) || 1) && ((($pad{'I2059'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?![\']))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2059'}) && 0) or $pos = $pad{'I2055'} and 0) {
();
} ;
$bool = 1
} |
|
3397
|
0 |
0 |
if ($bool) |
|
3404
|
0 |
0 |
if $_[3]{'continue'} |
|
3422
|
0 |
0 |
unless defined $_[3] |
|
3429
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
3441
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
3452
|
0 |
0 |
unless do {
while (($pad{'I2060'} = $pos) || 1 and (($pad{'I2061'} = $pos) || 1) && (((($pad{'I2062'} = $pos) || 1) && (substr($s, $pos, 1) eq '\\' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2062'}) && 0) && ((($pad{'I2063'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->special_char($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'special_char'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2063'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2061'}) || 1) && ((($pad{'I2064'} = $pos) || 1) && do {
my $match = do {
our $I2065;
our $I2065_sizes;
unless ($I2065) {
my $hash = \%variables;
my(%sizes) = map({length $_, 1;} keys %$hash);
$I2065_sizes = [(sort {$b <=> $a;} keys %sizes)];
$I2065 = $hash;
} ;
my $match = 0;
my $key;
foreach $_ (@$I2065_sizes) {
$key = $pos <= length $s ? substr($s, $pos, $_) : '';
if (exists $$I2065{$key}) {
$match = Pugs::Runtime::Regex::preprocess_hash($I2065, $key)->($s, $grammar, {'p', $pos + $_, 'positionals', [], 'args', {'KEY', $key}}, undef);
last if $match;
} ;
} ;
if ($match) {
$pos = $match->to;
$bool = 1;
} ;
$match
};
if ($match) {
push @{$named{'Pugs::Grammar::Rule::variables'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2064'}) && 0) || (($bool = 1) && ($pos = $pad{'I2061'}) || 1) && ((($pad{'I2066'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?![\"]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2066'}) && 0) or $pos = $pad{'I2060'} and 0) {
();
} ;
$bool = 1
} |
|
3581
|
0 |
0 |
if ($bool) |
|
3588
|
0 |
0 |
if $_[3]{'continue'} |
|
3606
|
0 |
0 |
unless defined $_[3] |
|
3613
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
3625
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
3946
|
0 |
0 |
unless (($pad{'I2067'} = $pos) || 1) && ((($pad{'I2068'} = $pos) || 1) && (((($pad{'I2069'} = $pos) || 1) && (substr($s, $pos, 1) eq '\\' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2069'}) && 0) && ((($pad{'I2070'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->special_char($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'special_char'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2070'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2068'}) || 1) && (((($pad{'I2071'} = $pos) || 1) && (substr($s, $pos, 1) eq q['] ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2071'}) && 0) && ((($pad{'I2072'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->literal($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2072'}) && 0) && ((($pad{'I2073'} = $pos) || 1) && (substr($s, $pos, 1) eq q['] ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2073'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2068'}) || 1) && (((($pad{'I2074'} = $pos) || 1) && (substr($s, $pos, 1) eq '"' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2074'}) && 0) && ((($pad{'I2075'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->double_quoted($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2075'}) && 0) && ((($pad{'I2076'} = $pos) || 1) && (substr($s, $pos, 1) eq '"' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2076'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2068'}) || 1) && (((($pad{'I2077'} = $pos) || 1) && (substr($s, $pos, 1) eq '{' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2077'}) && 0) && ((($pad{'I2078'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->string_code($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2078'}) && 0) && ((($pad{'I2079'} = $pos) || 1) && (substr($s, $pos, 1) eq '}' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2079'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2068'}) || 1) && (((($pad{'I2080'} = $pos) || 1) && (substr($s, $pos, 1) eq '<' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2080'}) && 0) && ((($pad{'I2081'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->metasyntax($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2081'}) && 0) && ((($pad{'I2082'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2082'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2068'}) || 1) && ((($pad{'I2083'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?![\>]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2083'}) && 0)) || ($pos = $pad{'I2067'}) && 0 and do {
while (($pad{'I2067'} = $pos) || 1 and (($pad{'I2068'} = $pos) || 1) && (((($pad{'I2069'} = $pos) || 1) && (substr($s, $pos, 1) eq '\\' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2069'}) && 0) && ((($pad{'I2070'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->special_char($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'special_char'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2070'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2068'}) || 1) && (((($pad{'I2071'} = $pos) || 1) && (substr($s, $pos, 1) eq q['] ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2071'}) && 0) && ((($pad{'I2072'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->literal($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2072'}) && 0) && ((($pad{'I2073'} = $pos) || 1) && (substr($s, $pos, 1) eq q['] ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2073'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2068'}) || 1) && (((($pad{'I2074'} = $pos) || 1) && (substr($s, $pos, 1) eq '"' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2074'}) && 0) && ((($pad{'I2075'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->double_quoted($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2075'}) && 0) && ((($pad{'I2076'} = $pos) || 1) && (substr($s, $pos, 1) eq '"' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2076'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2068'}) || 1) && (((($pad{'I2077'} = $pos) || 1) && (substr($s, $pos, 1) eq '{' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2077'}) && 0) && ((($pad{'I2078'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->string_code($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2078'}) && 0) && ((($pad{'I2079'} = $pos) || 1) && (substr($s, $pos, 1) eq '}' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2079'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2068'}) || 1) && (((($pad{'I2080'} = $pos) || 1) && (substr($s, $pos, 1) eq '<' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2080'}) && 0) && ((($pad{'I2081'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->metasyntax($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2081'}) && 0) && ((($pad{'I2082'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2082'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2068'}) || 1) && ((($pad{'I2083'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?![\>]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2083'}) && 0) or $pos = $pad{'I2067'} and 0) {
();
} ;
$bool = 1
} |
|
4260
|
0 |
0 |
if ($bool) |
|
4267
|
0 |
0 |
if $_[3]{'continue'} |
|
4285
|
0 |
0 |
unless defined $_[3] |
|
4292
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
4304
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
4385
|
0 |
0 |
unless (($pad{'I2084'} = $pos) || 1) && ((($pad{'I2085'} = $pos) || 1) && (((($pad{'I2086'} = $pos) || 1) && (substr($s, $pos, 1) eq '\\' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2086'}) && 0) && ((($pad{'I2087'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->special_char($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'special_char'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2087'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2085'}) || 1) && ((($pad{'I2088'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?![\]]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2088'}) && 0)) || ($pos = $pad{'I2084'}) && 0 and do {
while (($pad{'I2084'} = $pos) || 1 and (($pad{'I2085'} = $pos) || 1) && (((($pad{'I2086'} = $pos) || 1) && (substr($s, $pos, 1) eq '\\' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2086'}) && 0) && ((($pad{'I2087'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->special_char($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'special_char'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2087'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2085'}) || 1) && ((($pad{'I2088'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?![\]]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2088'}) && 0) or $pos = $pad{'I2084'} and 0) {
();
} ;
$bool = 1
} |
|
4459
|
0 |
0 |
if ($bool) |
|
4466
|
0 |
0 |
if $_[3]{'continue'} |
|
4484
|
0 |
0 |
unless defined $_[3] |
|
4491
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
4503
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
4623
|
0 |
0 |
unless ($pad{'I2089'} = $pos) || 1 and ((($pad{'I2090'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->alpha($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2090'}) && 0 and do {
while (($pad{'I2091'} = $pos) || 1 and (($pad{'I2092'} = $pos) || 1) && ((($pad{'I2093'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->alnum($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2093'}) && 0) || (($bool = 1) && ($pos = $pad{'I2092'}) || 1) && ((($pad{'I2094'} = $pos) || 1) && (substr($s, $pos, 1) eq '_' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2094'}) && 0) or $pos = $pad{'I2091'} and 0) {
();
} ;
$bool = 1
}) or ($bool = 1) && ($pos = $pad{'I2089'}) || 1 and ((($pad{'I2095'} = $pos) || 1) && (substr($s, $pos, 1) eq '[' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2095'}) && 0 and (($pad{'I2096'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->char_range($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2096'}) && 0 and (($pad{'I2097'} = $pos) || 1) && (substr($s, $pos, 1) eq ']' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2097'}) && 0) |
|
4660
|
0 |
0 |
if ($bool) |
|
4667
|
0 |
0 |
if $_[3]{'continue'} |
|
4685
|
0 |
0 |
unless defined $_[3] |
|
4692
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
4704
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
5298
|
0 |
0 |
unless (($pad{'I2098'} = $pos) || 1) && ((($pad{'I2099'} = $pos) || 1) && (((($pad{'I2100'} = $pos) || 1) && (substr($s, $pos, 1) eq '\\' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2100'}) && 0) && ((($pad{'I2101'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->special_char($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'special_char'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2101'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && (((($pad{'I2102'} = $pos) || 1) && (substr($s, $pos, 1) eq q['] ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2102'}) && 0) && ((($pad{'I2103'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->literal($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2103'}) && 0) && ((($pad{'I2104'} = $pos) || 1) && (substr($s, $pos, 1) eq q['] ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2104'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && (((($pad{'I2105'} = $pos) || 1) && (substr($s, $pos, 1) eq '"' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2105'}) && 0) && ((($pad{'I2106'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->double_quoted($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2106'}) && 0) && ((($pad{'I2107'} = $pos) || 1) && (substr($s, $pos, 1) eq '"' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2107'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && (((($pad{'I2108'} = $pos) || 1) && (substr($s, $pos, 1) eq '{' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2108'}) && 0) && ((($pad{'I2109'} = $pos) || 1) && ((($pad{'I2110'} = $pos) || 1) && ((($pad{'I2111'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->string_code($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2111'}) && 0) || (($bool = 1) && ($pos = $pad{'I2110'}) || 1) && ((($pad{'I2112'} = $pos) || 1) && 1 || ($pos = $pad{'I2112'}) && 0)) || ($pos = $pad{'I2109'}) && 0) && ((($pad{'I2113'} = $pos) || 1) && (substr($s, $pos, 1) eq '}' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2113'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && (((($pad{'I2114'} = $pos) || 1) && (substr($s, $pos, 1) eq '(' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2114'}) && 0) && ((($pad{'I2115'} = $pos) || 1) && ((($pad{'I2116'} = $pos) || 1) && ((($pad{'I2117'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->string_code($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2117'}) && 0) || (($bool = 1) && ($pos = $pad{'I2116'}) || 1) && ((($pad{'I2118'} = $pos) || 1) && 1 || ($pos = $pad{'I2118'}) && 0)) || ($pos = $pad{'I2115'}) && 0) && ((($pad{'I2119'} = $pos) || 1) && (substr($s, $pos, 1) eq ')' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2119'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && (((($pad{'I2120'} = $pos) || 1) && (substr($s, $pos, 1) eq '<' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2120'}) && 0) && ((($pad{'I2121'} = $pos) || 1) && ((($pad{'I2122'} = $pos) || 1) && ((($pad{'I2123'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->string_code($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2123'}) && 0) || (($bool = 1) && ($pos = $pad{'I2122'}) || 1) && ((($pad{'I2124'} = $pos) || 1) && 1 || ($pos = $pad{'I2124'}) && 0)) || ($pos = $pad{'I2121'}) && 0) && ((($pad{'I2125'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2125'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && (((($pad{'I2126'} = $pos) || 1) && ((($pad{'I2127'} = $pos) || 1) && ((($pad{'I2128'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2128'}) && 0) || (($bool = 1) && ($pos = $pad{'I2127'}) || 1) && ((($pad{'I2129'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2129'}) && 0) || (($bool = 1) && ($pos = $pad{'I2127'}) || 1) && ((($pad{'I2130'} = $pos) || 1) && (substr($s, $pos, 1) eq '=' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2130'}) && 0) || (($bool = 1) && ($pos = $pad{'I2127'}) || 1) && ((($pad{'I2131'} = $pos) || 1) && (substr($s, $pos, 1) eq '-' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2131'}) && 0)) || ($pos = $pad{'I2126'}) && 0) && ((($pad{'I2132'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2132'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && ((($pad{'I2133'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2133'}) && 0) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && ((($pad{'I2134'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?![\}\)\>]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2134'}) && 0)) || ($pos = $pad{'I2098'}) && 0 and do {
while (($pad{'I2098'} = $pos) || 1 and (($pad{'I2099'} = $pos) || 1) && (((($pad{'I2100'} = $pos) || 1) && (substr($s, $pos, 1) eq '\\' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2100'}) && 0) && ((($pad{'I2101'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->special_char($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'special_char'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2101'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && (((($pad{'I2102'} = $pos) || 1) && (substr($s, $pos, 1) eq q['] ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2102'}) && 0) && ((($pad{'I2103'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->literal($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2103'}) && 0) && ((($pad{'I2104'} = $pos) || 1) && (substr($s, $pos, 1) eq q['] ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2104'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && (((($pad{'I2105'} = $pos) || 1) && (substr($s, $pos, 1) eq '"' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2105'}) && 0) && ((($pad{'I2106'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->double_quoted($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2106'}) && 0) && ((($pad{'I2107'} = $pos) || 1) && (substr($s, $pos, 1) eq '"' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2107'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && (((($pad{'I2108'} = $pos) || 1) && (substr($s, $pos, 1) eq '{' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2108'}) && 0) && ((($pad{'I2109'} = $pos) || 1) && ((($pad{'I2110'} = $pos) || 1) && ((($pad{'I2111'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->string_code($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2111'}) && 0) || (($bool = 1) && ($pos = $pad{'I2110'}) || 1) && ((($pad{'I2112'} = $pos) || 1) && 1 || ($pos = $pad{'I2112'}) && 0)) || ($pos = $pad{'I2109'}) && 0) && ((($pad{'I2113'} = $pos) || 1) && (substr($s, $pos, 1) eq '}' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2113'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && (((($pad{'I2114'} = $pos) || 1) && (substr($s, $pos, 1) eq '(' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2114'}) && 0) && ((($pad{'I2115'} = $pos) || 1) && ((($pad{'I2116'} = $pos) || 1) && ((($pad{'I2117'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->string_code($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2117'}) && 0) || (($bool = 1) && ($pos = $pad{'I2116'}) || 1) && ((($pad{'I2118'} = $pos) || 1) && 1 || ($pos = $pad{'I2118'}) && 0)) || ($pos = $pad{'I2115'}) && 0) && ((($pad{'I2119'} = $pos) || 1) && (substr($s, $pos, 1) eq ')' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2119'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && (((($pad{'I2120'} = $pos) || 1) && (substr($s, $pos, 1) eq '<' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2120'}) && 0) && ((($pad{'I2121'} = $pos) || 1) && ((($pad{'I2122'} = $pos) || 1) && ((($pad{'I2123'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->string_code($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2123'}) && 0) || (($bool = 1) && ($pos = $pad{'I2122'}) || 1) && ((($pad{'I2124'} = $pos) || 1) && 1 || ($pos = $pad{'I2124'}) && 0)) || ($pos = $pad{'I2121'}) && 0) && ((($pad{'I2125'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2125'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && (((($pad{'I2126'} = $pos) || 1) && ((($pad{'I2127'} = $pos) || 1) && ((($pad{'I2128'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2128'}) && 0) || (($bool = 1) && ($pos = $pad{'I2127'}) || 1) && ((($pad{'I2129'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2129'}) && 0) || (($bool = 1) && ($pos = $pad{'I2127'}) || 1) && ((($pad{'I2130'} = $pos) || 1) && (substr($s, $pos, 1) eq '=' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2130'}) && 0) || (($bool = 1) && ($pos = $pad{'I2127'}) || 1) && ((($pad{'I2131'} = $pos) || 1) && (substr($s, $pos, 1) eq '-' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2131'}) && 0)) || ($pos = $pad{'I2126'}) && 0) && ((($pad{'I2132'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2132'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && ((($pad{'I2133'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2133'}) && 0) || (($bool = 1) && ($pos = $pad{'I2099'}) || 1) && ((($pad{'I2134'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?![\}\)\>]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2134'}) && 0) or $pos = $pad{'I2098'} and 0) {
();
} ;
$bool = 1
} |
|
5885
|
0 |
0 |
if ($bool) |
|
5892
|
0 |
0 |
if $_[3]{'continue'} |
|
5910
|
0 |
0 |
unless defined $_[3] |
|
5917
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
5929
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
5967
|
0 |
0 |
unless (($pad{'I2135'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->string_code($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2135'}) && 0 and (($pad{'I2136'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return '{' . $_[0] . '}';
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2136'}) && 0 |
|
5983
|
0 |
0 |
if ($bool) |
|
5990
|
0 |
0 |
if $_[3]{'continue'} |
|
6008
|
0 |
0 |
unless defined $_[3] |
|
6015
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
6027
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
6359
|
0 |
0 |
unless ($pad{'I2137'} = $pos) || 1 and ((($pad{'I2138'} = $pos) || 1) && (substr($s, $pos, 1) eq '(' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2138'}) && 0 and (($pad{'I2139'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2139'}) && 0 and (($pad{'I2140'} = $pos) || 1) && (substr($s, $pos, 1) eq ')' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2140'}) && 0 and (($pad{'I2141'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'capturing_group', ${$_[0]{'rule'};}, '_pos', [$_[0]->from, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2141'}) && 0) or ($bool = 1) && ($pos = $pad{'I2137'}) || 1 and ((($pad{'I2142'} = $pos) || 1) && (substr($s, $pos, 1) eq '[' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2142'}) && 0 and (($pad{'I2143'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2143'}) && 0 and (($pad{'I2144'} = $pos) || 1) && (substr($s, $pos, 1) eq ']' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2144'}) && 0 and (($pad{'I2145'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return ${$_[0]{'rule'};};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2145'}) && 0) or ($bool = 1) && ($pos = $pad{'I2137'}) || 1 and ((($pad{'I2146'} = $pos) || 1) && (substr($s, $pos, 1) eq '<' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2146'}) && 0 and (($pad{'I2147'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->parse_metasyntax($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'parse_metasyntax'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2147'}) && 0 and (($pad{'I2148'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return ${$_[0]{'parse_metasyntax'};};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2148'}) && 0) or ($bool = 1) && ($pos = $pad{'I2137'}) || 1 and ((($pad{'I2149'} = $pos) || 1) && (substr($s, $pos, 1) eq q['] ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2149'}) && 0 and (($pad{'I2150'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->literal($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2150'}) && 0 and (($pad{'I2151'} = $pos) || 1) && (substr($s, $pos, 1) eq q['] ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2151'}) && 0 and (($pad{'I2152'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'metasyntax', {'metasyntax', "${$_[0];}"}, '_pos', [$_[0]->from, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2152'}) && 0) or ($bool = 1) && ($pos = $pad{'I2137'}) || 1 and (($pad{'I2153'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
sub {
die 'invalid alias syntax';
}
->($m);
1
} || ($pos = $pad{'I2153'}) && 0 |
|
6374
|
0 |
0 |
if ($bool) |
|
6381
|
0 |
0 |
if $_[3]{'continue'} |
|
6399
|
0 |
0 |
unless defined $_[3] |
|
6406
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
6418
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
7364
|
0 |
0 |
unless (($pad{'I2154'} = $pos) || 1) && do {
my $from = $pos;
my $bool = (($pad{'I2155'} = $pos) || 1) && ((($pad{'I2156'} = $pos) || 1) && (substr($s, $pos, 1) eq '!' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2156'}) && 0) || (($bool = 1) && ($pos = $pad{'I2155'}) || 1) && ((($pad{'I2157'} = $pos) || 1) && (substr($s, $pos, 1) eq '?' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2157'}) && 0) || (($bool = 1) && ($pos = $pad{'I2155'}) || 1) && ((($pad{'I2158'} = $pos) || 1) && (substr($s, $pos, 1) eq '.' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2158'}) && 0) || (($bool = 1) && ($pos = $pad{'I2155'}) || 1) && ((($pad{'I2159'} = $pos) || 1) && 1 || ($pos = $pad{'I2159'}) && 0);
my $match = 'Pugs::Runtime::Match'->new({'str', \$s, 'from', \$from, 'match', [], 'named', {}, 'bool', \1, 'to', \(0 + $pos), 'capture', undef});
$named{'modifier'} = $match;
$bool
} || ($pos = $pad{'I2154'}) && 0 and (($pad{'I2160'} = $pos) || 1) && ((($pad{'I2161'} = $pos) || 1) && (((($pad{'I2162'} = $pos) || 1) && (substr($s, $pos, 1) eq '{' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2162'}) && 0) && ((($pad{'I2163'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->parsed_code($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'parsed_code'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2163'}) && 0) && ((($pad{'I2164'} = $pos) || 1) && (substr($s, $pos, 2) eq '}>' ? ($pos += 2) || 1 : 0) || ($pos = $pad{'I2164'}) && 0) && ((($pad{'I2165'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'closure', {'closure', ${$_[0]{'parsed_code'};}, 'modifier', ${$_[0]{'modifier'};}}, '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2165'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2161'}) || 1) && (((($pad{'I2166'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->char_class($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'char_class'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2166'}) && 0) && (((($pad{'I2167'} = $pos) || 1) && do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless (($pad{'I2168'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?=[+-]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2168'}) && 0 and (($pad{'I2169'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->char_class($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'char_class'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2169'}) && 0;
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
if ($bool) {
push @{$match[0];}, 'Pugs::Runtime::Match'->new($hash);
} ;
$bool
} || ($pos = $pad{'I2167'}) && 0) && do {
while (($pad{'I2167'} = $pos) || 1 and do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless (($pad{'I2168'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?=[+-]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2168'}) && 0 and (($pad{'I2169'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->char_class($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'char_class'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2169'}) && 0;
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
if ($bool) {
push @{$match[0];}, 'Pugs::Runtime::Match'->new($hash);
} ;
$bool
} or $pos = $pad{'I2167'} and 0) {
();
} ;
$bool = 1
}) && ((($pad{'I2170'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2170'}) && 0) && ((($pad{'I2171'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
if (${$_[0]{'modifier'};} eq '!') {
return {'negate', {'char_class', ['+' . $_[0]{'char_class'}, @{$_[0][0];}]}};
} ;
return {'char_class', ['+' . $_[0]{'char_class'}, @{$_[0][0];}]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2171'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2161'}) || 1) && (((($pad{'I2172'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ident($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'ident'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2172'}) && 0) && ((($pad{'I2173'} = $pos) || 1) && ((($pad{'I2174'} = $pos) || 1) && (((($pad{'I2175'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2175'}) && 0) && ((($pad{'I2176'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2176'}) && 0) && ((($pad{'I2177'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2177'}) && 0) && ((($pad{'I2178'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
if (${$_[0]{'ident'};} eq 'before' or ${$_[0]{'ident'};} eq 'after') {
return {${$_[0]{'ident'};}, {'rule', ${$_[0]{'rule'};}, 'modifier', ${$_[0]{'modifier'};}}, '_pos', [$_[0]->from - 1, $_[0]->to]};
} ;
return {'metasyntax', {'metasyntax', ${$_[0]{'ident'};}, 'rule', ${$_[0]{'rule'};}, 'modifier', ${$_[0]{'modifier'};}}, '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2178'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2174'}) || 1) && (((($pad{'I2179'} = $pos) || 1) && (substr($s, $pos, 1) eq ':' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2179'}) && 0) && ((($pad{'I2180'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2180'}) && 0 || ($bool = 1)) && ((($pad{'I2181'} = $pos) || 1) && do {
my $from = $pos;
my $bool = do {
while (($pad{'I2182'} = $pos) || 1 and (($pad{'I2183'} = $pos) || 1) && (((($pad{'I2184'} = $pos) || 1) && (substr($s, $pos, 1) eq '\\' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2184'}) && 0) && ((($pad{'I2185'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->special_char($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'special_char'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2185'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2183'}) || 1) && ((($pad{'I2186'} = $pos) || 1) && do {
my $match = do {
our $I2187;
our $I2187_sizes;
unless ($I2187) {
my $hash = \%variables;
my(%sizes) = map({length $_, 1;} keys %$hash);
$I2187_sizes = [(sort {$b <=> $a;} keys %sizes)];
$I2187 = $hash;
} ;
my $match = 0;
my $key;
foreach $_ (@$I2187_sizes) {
$key = $pos <= length $s ? substr($s, $pos, $_) : '';
if (exists $$I2187{$key}) {
$match = Pugs::Runtime::Regex::preprocess_hash($I2187, $key)->($s, $grammar, {'p', $pos + $_, 'positionals', [], 'args', {'KEY', $key}}, undef);
last if $match;
} ;
} ;
if ($match) {
$pos = $match->to;
$bool = 1;
} ;
$match
};
if ($match) {
push @{$named{'Pugs::Grammar::Rule::variables'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2186'}) && 0) || (($bool = 1) && ($pos = $pad{'I2183'}) || 1) && ((($pad{'I2188'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?![\>]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2188'}) && 0) or $pos = $pad{'I2182'} and 0) {
();
} ;
$bool = 1
};
my $match = 'Pugs::Runtime::Match'->new({'str', \$s, 'from', \$from, 'match', [], 'named', {}, 'bool', \1, 'to', \(0 + $pos), 'capture', undef});
$named{'str'} = $match;
$bool
} || ($pos = $pad{'I2181'}) && 0) && ((($pad{'I2189'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2189'}) && 0) && ((($pad{'I2190'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
if (${$_[0]{'ident'};} eq 'before' or ${$_[0]{'ident'};} eq 'after') {
return {${$_[0]{'ident'};}, {'rule', {'metasyntax', {'metasyntax', q['] . ${$_[0]{'str'};} . q[']}, '_pos', [$_[0]{'str'}->from, $_[0]{'str'}->to]}, 'modifier', ${$_[0]{'modifier'};}, '_pos', [$_[0]->from - 1, $_[0]->to]}};
} ;
return {'metasyntax', {'metasyntax', ${$_[0]{'ident'};}, 'string', ${$_[0]{'str'};}, 'modifier', ${$_[0]{'modifier'};}}, '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2190'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2174'}) || 1) && (((($pad{'I2191'} = $pos) || 1) && (substr($s, $pos, 1) eq '(' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2191'}) && 0) && ((($pad{'I2192'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->parsed_code($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'parsed_code'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2192'}) && 0) && ((($pad{'I2193'} = $pos) || 1) && (substr($s, $pos, 1) eq ')' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2193'}) && 0) && ((($pad{'I2194'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2194'}) && 0) && ((($pad{'I2195'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'call', {'method', ${$_[0]{'ident'};}, 'params', ${$_[0]{'parsed_code'};}, 'modifier', ${$_[0]{'modifier'};}}, '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2195'}) && 0))) || ($pos = $pad{'I2173'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2161'}) || 1) && (((($pad{'I2196'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->metasyntax($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'metasyntax'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2196'}) && 0) && ((($pad{'I2197'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2197'}) && 0) && ((($pad{'I2198'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'metasyntax', {'metasyntax', "${$_[0]{'metasyntax'};}", 'modifier', ${$_[0]{'modifier'};}}, '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2198'}) && 0))) || ($pos = $pad{'I2160'}) && 0 |
|
7394
|
0 |
0 |
if ($bool) |
|
7401
|
0 |
0 |
if $_[3]{'continue'} |
|
7419
|
0 |
0 |
unless defined $_[3] |
|
7426
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
7438
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
7494
|
0 |
0 |
unless (($pad{'I2199'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ident($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'ident'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2199'}) && 0 and (($pad{'I2200'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2200'}) && 0 and (($pad{'I2201'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'match_variable', '$' . $_[0]{'ident'}, '_pos', [$_[0]->from - 2, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2201'}) && 0 |
|
7510
|
0 |
0 |
if ($bool) |
|
7517
|
0 |
0 |
if $_[3]{'continue'} |
|
7538
|
0 |
0 |
unless defined $_[3] |
|
7545
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
7557
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
7601
|
0 |
0 |
if $bool |
|
7843
|
0 |
0 |
unless ($pad{'I2202'} = $pos) || 1 and ((($pad{'I2203'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->digit($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2203'}) && 0 and do {
while (($pad{'I2203'} = $pos) || 1 and do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->digit($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} or $pos = $pad{'I2203'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I2204'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'match_variable', '$' . $_[0], '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2204'}) && 0) or ($bool = 1) && ($pos = $pad{'I2202'}) || 1 and ((($pad{'I2205'} = $pos) || 1) && (substr($s, $pos, 1) eq '^' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2205'}) && 0 || ($bool = 1) and ((($pad{'I2206'} = $pos) || 1) && ((($pad{'I2207'} = $pos) || 1) && ((($pad{'I2208'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->alnum($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2208'}) && 0) || (($bool = 1) && ($pos = $pad{'I2207'}) || 1) && ((($pad{'I2209'} = $pos) || 1) && (substr($s, $pos, 1) eq '_' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2209'}) && 0) || (($bool = 1) && ($pos = $pad{'I2207'}) || 1) && (((($pad{'I2210'} = $pos) || 1) && (substr($s, $pos, 1) eq ':' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2210'}) && 0) && ((($pad{'I2211'} = $pos) || 1) && (substr($s, $pos, 1) eq ':' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2211'}) && 0))) || ($pos = $pad{'I2206'}) && 0 and do {
while (($pad{'I2206'} = $pos) || 1 and (($pad{'I2207'} = $pos) || 1) && ((($pad{'I2208'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->alnum($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2208'}) && 0) || (($bool = 1) && ($pos = $pad{'I2207'}) || 1) && ((($pad{'I2209'} = $pos) || 1) && (substr($s, $pos, 1) eq '_' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2209'}) && 0) || (($bool = 1) && ($pos = $pad{'I2207'}) || 1) && (((($pad{'I2210'} = $pos) || 1) && (substr($s, $pos, 1) eq ':' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2210'}) && 0) && ((($pad{'I2211'} = $pos) || 1) && (substr($s, $pos, 1) eq ':' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2211'}) && 0)) or $pos = $pad{'I2206'} and 0) {
();
} ;
$bool = 1
}) and (($pad{'I2212'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'variable', '$' . $_[0], '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2212'}) && 0) |
|
7863
|
0 |
0 |
if ($bool) |
|
7870
|
0 |
0 |
if $_[3]{'continue'} |
|
7891
|
0 |
0 |
unless defined $_[3] |
|
7898
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
7910
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
7954
|
0 |
0 |
if $bool |
|
8196
|
0 |
0 |
unless ($pad{'I2213'} = $pos) || 1 and ((($pad{'I2214'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->digit($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2214'}) && 0 and do {
while (($pad{'I2214'} = $pos) || 1 and do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->digit($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} or $pos = $pad{'I2214'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I2215'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'match_variable', '@' . $_[0], '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2215'}) && 0) or ($bool = 1) && ($pos = $pad{'I2213'}) || 1 and ((($pad{'I2216'} = $pos) || 1) && (substr($s, $pos, 1) eq '^' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2216'}) && 0 || ($bool = 1) and ((($pad{'I2217'} = $pos) || 1) && ((($pad{'I2218'} = $pos) || 1) && ((($pad{'I2219'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->alnum($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2219'}) && 0) || (($bool = 1) && ($pos = $pad{'I2218'}) || 1) && ((($pad{'I2220'} = $pos) || 1) && (substr($s, $pos, 1) eq '_' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2220'}) && 0) || (($bool = 1) && ($pos = $pad{'I2218'}) || 1) && (((($pad{'I2221'} = $pos) || 1) && (substr($s, $pos, 1) eq ':' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2221'}) && 0) && ((($pad{'I2222'} = $pos) || 1) && (substr($s, $pos, 1) eq ':' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2222'}) && 0))) || ($pos = $pad{'I2217'}) && 0 and do {
while (($pad{'I2217'} = $pos) || 1 and (($pad{'I2218'} = $pos) || 1) && ((($pad{'I2219'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->alnum($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2219'}) && 0) || (($bool = 1) && ($pos = $pad{'I2218'}) || 1) && ((($pad{'I2220'} = $pos) || 1) && (substr($s, $pos, 1) eq '_' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2220'}) && 0) || (($bool = 1) && ($pos = $pad{'I2218'}) || 1) && (((($pad{'I2221'} = $pos) || 1) && (substr($s, $pos, 1) eq ':' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2221'}) && 0) && ((($pad{'I2222'} = $pos) || 1) && (substr($s, $pos, 1) eq ':' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2222'}) && 0)) or $pos = $pad{'I2217'} and 0) {
();
} ;
$bool = 1
}) and (($pad{'I2223'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'variable', '@' . $_[0], '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2223'}) && 0) |
|
8216
|
0 |
0 |
if ($bool) |
|
8223
|
0 |
0 |
if $_[3]{'continue'} |
|
8244
|
0 |
0 |
unless defined $_[3] |
|
8251
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
8263
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
8307
|
0 |
0 |
if $bool |
|
8549
|
0 |
0 |
unless ($pad{'I2224'} = $pos) || 1 and ((($pad{'I2225'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->digit($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2225'}) && 0 and do {
while (($pad{'I2225'} = $pos) || 1 and do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->digit($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} or $pos = $pad{'I2225'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I2226'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'match_variable', '%' . $_[0], '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2226'}) && 0) or ($bool = 1) && ($pos = $pad{'I2224'}) || 1 and ((($pad{'I2227'} = $pos) || 1) && (substr($s, $pos, 1) eq '^' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2227'}) && 0 || ($bool = 1) and ((($pad{'I2228'} = $pos) || 1) && ((($pad{'I2229'} = $pos) || 1) && ((($pad{'I2230'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->alnum($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2230'}) && 0) || (($bool = 1) && ($pos = $pad{'I2229'}) || 1) && ((($pad{'I2231'} = $pos) || 1) && (substr($s, $pos, 1) eq '_' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2231'}) && 0) || (($bool = 1) && ($pos = $pad{'I2229'}) || 1) && (((($pad{'I2232'} = $pos) || 1) && (substr($s, $pos, 1) eq ':' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2232'}) && 0) && ((($pad{'I2233'} = $pos) || 1) && (substr($s, $pos, 1) eq ':' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2233'}) && 0))) || ($pos = $pad{'I2228'}) && 0 and do {
while (($pad{'I2228'} = $pos) || 1 and (($pad{'I2229'} = $pos) || 1) && ((($pad{'I2230'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->alnum($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2230'}) && 0) || (($bool = 1) && ($pos = $pad{'I2229'}) || 1) && ((($pad{'I2231'} = $pos) || 1) && (substr($s, $pos, 1) eq '_' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2231'}) && 0) || (($bool = 1) && ($pos = $pad{'I2229'}) || 1) && (((($pad{'I2232'} = $pos) || 1) && (substr($s, $pos, 1) eq ':' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2232'}) && 0) && ((($pad{'I2233'} = $pos) || 1) && (substr($s, $pos, 1) eq ':' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2233'}) && 0)) or $pos = $pad{'I2228'} and 0) {
();
} ;
$bool = 1
}) and (($pad{'I2234'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'variable', '%' . $_[0], '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2234'}) && 0) |
|
8569
|
0 |
0 |
if ($bool) |
|
8576
|
0 |
0 |
if $_[3]{'continue'} |
|
8597
|
0 |
0 |
unless defined $_[3] |
|
8604
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
8616
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
8631
|
0 |
0 |
unless ($pad{'I2235'} = $pos) || 1 and do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'metasyntax', {'metasyntax', 'null'}, '_pos', [$_[0]->from, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} or $pos = $pad{'I2235'} and 0 |
|
8640
|
0 |
0 |
if $bool |
|
8641
|
0 |
0 |
if $bool |
|
8648
|
0 |
0 |
if ($bool) |
|
8655
|
0 |
0 |
if $_[3]{'continue'} |
|
8676
|
0 |
0 |
unless defined $_[3] |
|
8683
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
8695
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
8749
|
0 |
0 |
unless (($pad{'I2236'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->literal($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2236'}) && 0 and (($pad{'I2237'} = $pos) || 1) && (substr($s, $pos, 1) eq q['] ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2237'}) && 0 and (($pad{'I2238'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'metasyntax', {'metasyntax', q['] . ${$_[0];}}, '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2238'}) && 0 |
|
8771
|
0 |
0 |
if ($bool) |
|
8778
|
0 |
0 |
if $_[3]{'continue'} |
|
8799
|
0 |
0 |
unless defined $_[3] |
|
8806
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
8818
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
8874
|
0 |
0 |
unless (($pad{'I2239'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2239'}) && 0 and (($pad{'I2240'} = $pos) || 1) && (substr($s, $pos, 1) eq ')' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2240'}) && 0 and (($pad{'I2241'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'capturing_group', ${$_[0]{'rule'};}, '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2241'}) && 0 |
|
8891
|
0 |
0 |
if ($bool) |
|
8898
|
0 |
0 |
if $_[3]{'continue'} |
|
8919
|
0 |
0 |
unless defined $_[3] |
|
8926
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
8938
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
8994
|
0 |
0 |
unless (($pad{'I2242'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2242'}) && 0 and (($pad{'I2243'} = $pos) || 1) && (substr($s, $pos, 2) eq ')>' ? ($pos += 2) || 1 : 0) || ($pos = $pad{'I2243'}) && 0 and (($pad{'I2244'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'capture_as_result', ${$_[0]{'rule'};}, '_pos', [$_[0]->from - 2, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2244'}) && 0 |
|
9011
|
0 |
0 |
if ($bool) |
|
9018
|
0 |
0 |
if $_[3]{'continue'} |
|
9039
|
0 |
0 |
unless defined $_[3] |
|
9046
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
9058
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
9128
|
0 |
0 |
unless (($pad{'I2247'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?=[+-]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2247'}) && 0 and (($pad{'I2248'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->char_class($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'char_class'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2248'}) && 0 |
|
9149
|
0 |
0 |
if ($bool) |
|
9181
|
0 |
0 |
unless (($pad{'I2245'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->char_class($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'char_class'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2245'}) && 0 and do {
while (($pad{'I2246'} = $pos) || 1 and do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless (($pad{'I2247'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?=[+-]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2247'}) && 0 and (($pad{'I2248'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->char_class($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'char_class'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2248'}) && 0;
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
if ($bool) {
push @{$match[0];}, 'Pugs::Runtime::Match'->new($hash);
} ;
$bool
} or $pos = $pad{'I2246'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I2249'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2249'}) && 0 and (($pad{'I2250'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'_pos', [$_[0]->from - 2, $_[0]->to], 'char_class', ['+' . $_[0]{'char_class'}, @{$_[0][0];}]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2250'}) && 0 |
|
9203
|
0 |
0 |
if ($bool) |
|
9210
|
0 |
0 |
if $_[3]{'continue'} |
|
9231
|
0 |
0 |
unless defined $_[3] |
|
9238
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
9250
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
9320
|
0 |
0 |
unless (($pad{'I2253'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?=[+-]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2253'}) && 0 and (($pad{'I2254'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->char_class($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'char_class'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2254'}) && 0 |
|
9341
|
0 |
0 |
if ($bool) |
|
9373
|
0 |
0 |
unless (($pad{'I2251'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->char_class($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'char_class'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2251'}) && 0 and do {
while (($pad{'I2252'} = $pos) || 1 and do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless (($pad{'I2253'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?=[+-]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2253'}) && 0 and (($pad{'I2254'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->char_class($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'char_class'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2254'}) && 0;
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
if ($bool) {
push @{$match[0];}, 'Pugs::Runtime::Match'->new($hash);
} ;
$bool
} or $pos = $pad{'I2252'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I2255'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2255'}) && 0 and (($pad{'I2256'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'_pos', [$_[0]->from - 2, $_[0]->to], 'char_class', ['-' . $_[0]{'char_class'}, @{$_[0][0];}]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2256'}) && 0 |
|
9395
|
0 |
0 |
if ($bool) |
|
9402
|
0 |
0 |
if $_[3]{'continue'} |
|
9423
|
0 |
0 |
unless defined $_[3] |
|
9430
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
9442
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
9528
|
0 |
0 |
unless (($pad{'I2260'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?=[+-]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2260'}) && 0 and (($pad{'I2261'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->char_class($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'char_class'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2261'}) && 0 |
|
9549
|
0 |
0 |
if ($bool) |
|
9581
|
0 |
0 |
unless (($pad{'I2257'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->char_range($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'char_range'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2257'}) && 0 and (($pad{'I2258'} = $pos) || 1) && (substr($s, $pos, 1) eq ']' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2258'}) && 0 and do {
while (($pad{'I2259'} = $pos) || 1 and do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless (($pad{'I2260'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?=[+-]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2260'}) && 0 and (($pad{'I2261'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->char_class($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'char_class'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2261'}) && 0;
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
if ($bool) {
push @{$match[0];}, 'Pugs::Runtime::Match'->new($hash);
} ;
$bool
} or $pos = $pad{'I2259'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I2262'} = $pos) || 1) && (substr($s, $pos, 1) eq '>' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2262'}) && 0 and (($pad{'I2263'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'_pos', [$_[0]->from - 2, $_[0]->to], 'char_class', ['+[' . $_[0]{'char_range'} . ']', @{$_[0][0];}]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2263'}) && 0 |
|
9603
|
0 |
0 |
if ($bool) |
|
9610
|
0 |
0 |
if $_[3]{'continue'} |
|
9631
|
0 |
0 |
unless defined $_[3] |
|
9638
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
9650
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
9690
|
0 |
0 |
unless (($pad{'I2264'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->parse_metasyntax($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'parse_metasyntax'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2264'}) && 0 and (($pad{'I2265'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return ${$_[0]{'parse_metasyntax'};};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2265'}) && 0 |
|
9706
|
0 |
0 |
if ($bool) |
|
9713
|
0 |
0 |
if $_[3]{'continue'} |
|
9734
|
0 |
0 |
unless defined $_[3] |
|
9741
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
9753
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
9809
|
0 |
0 |
unless (($pad{'I2266'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->parsed_code($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'parsed_code'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2266'}) && 0 and (($pad{'I2267'} = $pos) || 1) && (substr($s, $pos, 1) eq '}' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2267'}) && 0 and (($pad{'I2268'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'closure', {'closure', ${$_[0]{'parsed_code'};}, 'modifier', 'plain'}, '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2268'}) && 0 |
|
9830
|
0 |
0 |
if ($bool) |
|
9837
|
0 |
0 |
if $_[3]{'continue'} |
|
9858
|
0 |
0 |
unless defined $_[3] |
|
9865
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
9877
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
9917
|
0 |
0 |
unless (($pad{'I2269'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->special_char($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'special_char'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2269'}) && 0 and (($pad{'I2270'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return ${$_[0]{'special_char'};};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2270'}) && 0 |
|
9933
|
0 |
0 |
if ($bool) |
|
9940
|
0 |
0 |
if $_[3]{'continue'} |
|
9961
|
0 |
0 |
unless defined $_[3] |
|
9968
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
9980
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
9995
|
0 |
0 |
unless ($pad{'I2271'} = $pos) || 1 and do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'dot', 1, '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} or $pos = $pad{'I2271'} and 0 |
|
10000
|
0 |
0 |
if $bool |
|
10001
|
0 |
0 |
if $bool |
|
10008
|
0 |
0 |
if ($bool) |
|
10015
|
0 |
0 |
if $_[3]{'continue'} |
|
10036
|
0 |
0 |
unless defined $_[3] |
|
10043
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
10055
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
10111
|
0 |
0 |
unless (($pad{'I2272'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2272'}) && 0 and (($pad{'I2273'} = $pos) || 1) && (substr($s, $pos, 1) eq ']' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2273'}) && 0 and (($pad{'I2274'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return ${$_[0]{'rule'};};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2274'}) && 0 |
|
10127
|
0 |
0 |
if ($bool) |
|
10134
|
0 |
0 |
if $_[3]{'continue'} |
|
10155
|
0 |
0 |
unless defined $_[3] |
|
10162
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
10174
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
10189
|
0 |
0 |
unless ($pad{'I2275'} = $pos) || 1 and do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'colon', ':::', '_pos', [$_[0]->from - 3, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} or $pos = $pad{'I2275'} and 0 |
|
10194
|
0 |
0 |
if $bool |
|
10195
|
0 |
0 |
if $bool |
|
10202
|
0 |
0 |
if ($bool) |
|
10209
|
0 |
0 |
if $_[3]{'continue'} |
|
10230
|
0 |
0 |
unless defined $_[3] |
|
10237
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
10249
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
10264
|
0 |
0 |
unless ($pad{'I2276'} = $pos) || 1 and do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'colon', ':?', '_pos', [$_[0]->from - 2, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} or $pos = $pad{'I2276'} and 0 |
|
10269
|
0 |
0 |
if $bool |
|
10270
|
0 |
0 |
if $bool |
|
10277
|
0 |
0 |
if ($bool) |
|
10284
|
0 |
0 |
if $_[3]{'continue'} |
|
10305
|
0 |
0 |
unless defined $_[3] |
|
10312
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
10324
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
10339
|
0 |
0 |
unless ($pad{'I2277'} = $pos) || 1 and do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'colon', ':+', '_pos', [$_[0]->from - 2, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} or $pos = $pad{'I2277'} and 0 |
|
10344
|
0 |
0 |
if $bool |
|
10345
|
0 |
0 |
if $bool |
|
10352
|
0 |
0 |
if ($bool) |
|
10359
|
0 |
0 |
if $_[3]{'continue'} |
|
10380
|
0 |
0 |
unless defined $_[3] |
|
10387
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
10399
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
10414
|
0 |
0 |
unless ($pad{'I2278'} = $pos) || 1 and do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'colon', '::', '_pos', [$_[0]->from - 2, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} or $pos = $pad{'I2278'} and 0 |
|
10419
|
0 |
0 |
if $bool |
|
10420
|
0 |
0 |
if $bool |
|
10427
|
0 |
0 |
if ($bool) |
|
10434
|
0 |
0 |
if $_[3]{'continue'} |
|
10455
|
0 |
0 |
unless defined $_[3] |
|
10462
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
10474
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
10489
|
0 |
0 |
unless ($pad{'I2279'} = $pos) || 1 and do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'colon', ':', '_pos', [$_[0]->from - 2, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} or $pos = $pad{'I2279'} and 0 |
|
10494
|
0 |
0 |
if $bool |
|
10495
|
0 |
0 |
if $bool |
|
10502
|
0 |
0 |
if ($bool) |
|
10509
|
0 |
0 |
if $_[3]{'continue'} |
|
10530
|
0 |
0 |
unless defined $_[3] |
|
10537
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
10549
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
10564
|
0 |
0 |
unless ($pad{'I2280'} = $pos) || 1 and do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'colon', '$$', '_pos', [$_[0]->from - 2, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} or $pos = $pad{'I2280'} and 0 |
|
10569
|
0 |
0 |
if $bool |
|
10570
|
0 |
0 |
if $bool |
|
10577
|
0 |
0 |
if ($bool) |
|
10584
|
0 |
0 |
if $_[3]{'continue'} |
|
10605
|
0 |
0 |
unless defined $_[3] |
|
10612
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
10624
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
10639
|
0 |
0 |
unless ($pad{'I2281'} = $pos) || 1 and do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'colon', '$', '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} or $pos = $pad{'I2281'} and 0 |
|
10644
|
0 |
0 |
if $bool |
|
10645
|
0 |
0 |
if $bool |
|
10652
|
0 |
0 |
if ($bool) |
|
10659
|
0 |
0 |
if $_[3]{'continue'} |
|
10680
|
0 |
0 |
unless defined $_[3] |
|
10687
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
10699
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
10714
|
0 |
0 |
unless ($pad{'I2282'} = $pos) || 1 and do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'colon', '^^', '_pos', [$_[0]->from - 2, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} or $pos = $pad{'I2282'} and 0 |
|
10719
|
0 |
0 |
if $bool |
|
10720
|
0 |
0 |
if $bool |
|
10727
|
0 |
0 |
if ($bool) |
|
10734
|
0 |
0 |
if $_[3]{'continue'} |
|
10755
|
0 |
0 |
unless defined $_[3] |
|
10762
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
10774
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
10789
|
0 |
0 |
unless ($pad{'I2283'} = $pos) || 1 and do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'colon', '^', '_pos', [$_[0]->from - 1, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} or $pos = $pad{'I2283'} and 0 |
|
10794
|
0 |
0 |
if $bool |
|
10795
|
0 |
0 |
if $bool |
|
10802
|
0 |
0 |
if ($bool) |
|
10809
|
0 |
0 |
if $_[3]{'continue'} |
|
10830
|
0 |
0 |
unless defined $_[3] |
|
10837
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
10849
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
10864
|
0 |
0 |
unless ($pad{'I2284'} = $pos) || 1 and do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'colon', '>>', '_pos', [$_[0]->from - 2, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} or $pos = $pad{'I2284'} and 0 |
|
10869
|
0 |
0 |
if $bool |
|
10870
|
0 |
0 |
if $bool |
|
10877
|
0 |
0 |
if ($bool) |
|
10884
|
0 |
0 |
if $_[3]{'continue'} |
|
10908
|
0 |
0 |
unless defined $_[3] |
|
10915
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
10927
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
10942
|
0 |
0 |
unless ($pad{'I2285'} = $pos) || 1 and do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'colon', '<<', '_pos', [$_[0]->from - 2, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} or $pos = $pad{'I2285'} and 0 |
|
10947
|
0 |
0 |
if $bool |
|
10948
|
0 |
0 |
if $bool |
|
10955
|
0 |
0 |
if ($bool) |
|
10962
|
0 |
0 |
if $_[3]{'continue'} |
|
10986
|
0 |
0 |
unless defined $_[3] |
|
10993
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
11005
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
11065
|
0 |
0 |
unless (($pad{'I2286'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2286'}) && 0 and (($pad{'I2287'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2287'}) && 0 and (($pad{'I2288'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'modifier', {'modifier', 'ignorecase', 'rule', ${$_[0]{'rule'};}}};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2288'}) && 0 |
|
11087
|
0 |
0 |
if ($bool) |
|
11094
|
0 |
0 |
if $_[3]{'continue'} |
|
11118
|
0 |
0 |
unless defined $_[3] |
|
11125
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
11137
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
11197
|
0 |
0 |
unless (($pad{'I2289'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2289'}) && 0 and (($pad{'I2290'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2290'}) && 0 and (($pad{'I2291'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'modifier', 'sigspace', 'rule', ${$_[0]{'rule'};}};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2291'}) && 0 |
|
11213
|
0 |
0 |
if ($bool) |
|
11220
|
0 |
0 |
if $_[3]{'continue'} |
|
11244
|
0 |
0 |
unless defined $_[3] |
|
11251
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
11263
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
11323
|
0 |
0 |
unless (($pad{'I2292'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2292'}) && 0 and (($pad{'I2293'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2293'}) && 0 and (($pad{'I2294'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'modifier', 'Perl5', 'rule', ${$_[0]{'rule'};}};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2294'}) && 0 |
|
11339
|
0 |
0 |
if ($bool) |
|
11346
|
0 |
0 |
if $_[3]{'continue'} |
|
11370
|
0 |
0 |
unless defined $_[3] |
|
11377
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
11389
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
11449
|
0 |
0 |
unless (($pad{'I2295'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2295'}) && 0 and (($pad{'I2296'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2296'}) && 0 and (($pad{'I2297'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'modifier', 'bytes', 'rule', ${$_[0]{'rule'};}};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2297'}) && 0 |
|
11465
|
0 |
0 |
if ($bool) |
|
11472
|
0 |
0 |
if $_[3]{'continue'} |
|
11493
|
0 |
0 |
unless defined $_[3] |
|
11500
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
11512
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
11572
|
0 |
0 |
unless (($pad{'I2298'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2298'}) && 0 and (($pad{'I2299'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2299'}) && 0 and (($pad{'I2300'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'modifier', 'codes', 'rule', ${$_[0]{'rule'};}};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2300'}) && 0 |
|
11588
|
0 |
0 |
if ($bool) |
|
11595
|
0 |
0 |
if $_[3]{'continue'} |
|
11616
|
0 |
0 |
unless defined $_[3] |
|
11623
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
11635
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
11695
|
0 |
0 |
unless (($pad{'I2301'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2301'}) && 0 and (($pad{'I2302'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2302'}) && 0 and (($pad{'I2303'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'modifier', 'graphs', 'rule', ${$_[0]{'rule'};}};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2303'}) && 0 |
|
11711
|
0 |
0 |
if ($bool) |
|
11718
|
0 |
0 |
if $_[3]{'continue'} |
|
11739
|
0 |
0 |
unless defined $_[3] |
|
11746
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
11758
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
11818
|
0 |
0 |
unless (($pad{'I2304'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2304'}) && 0 and (($pad{'I2305'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2305'}) && 0 and (($pad{'I2306'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'modifier', 'langs', 'rule', ${$_[0]{'rule'};}};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2306'}) && 0 |
|
11834
|
0 |
0 |
if ($bool) |
|
11841
|
0 |
0 |
if $_[3]{'continue'} |
|
11862
|
0 |
0 |
unless defined $_[3] |
|
11869
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
11881
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
12216
|
0 |
0 |
unless ($pad{'I2307'} = $pos) || 1 and ((($pad{'I2308'} = $pos) || 1) && do {
my $match = do {
our $I2309;
our $I2309_sizes;
unless ($I2309) {
my $hash = \%variables;
my(%sizes) = map({length $_, 1;} keys %$hash);
$I2309_sizes = [(sort {$b <=> $a;} keys %sizes)];
$I2309 = $hash;
} ;
my $match = 0;
my $key;
foreach $_ (@$I2309_sizes) {
$key = $pos <= length $s ? substr($s, $pos, $_) : '';
if (exists $$I2309{$key}) {
$match = Pugs::Runtime::Regex::preprocess_hash($I2309, $key)->($s, $grammar, {'p', $pos + $_, 'positionals', [], 'args', {'KEY', $key}}, undef);
last if $match;
} ;
} ;
if ($match) {
$pos = $match->to;
$bool = 1;
} ;
$match
};
if ($match) {
$named{'Pugs::Grammar::Rule::variables'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2308'}) && 0 and (($pad{'I2310'} = $pos) || 1) && ((($pad{'I2311'} = $pos) || 1) && (((($pad{'I2312'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2312'}) && 0 || ($bool = 1)) && ((($pad{'I2313'} = $pos) || 1) && (substr($s, $pos, 2) eq ':=' ? ($pos += 2) || 1 : 0) || ($pos = $pad{'I2313'}) && 0) && ((($pad{'I2314'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2314'}) && 0 || ($bool = 1)) && ((($pad{'I2315'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->named_capture_body($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'named_capture_body'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2315'}) && 0) && ((($pad{'I2316'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'named_capture', {'rule', ${$_[0]{'named_capture_body'};}, 'ident', ${$_[0]{'Pugs::Grammar::Rule::variables'};}}, '_pos', [$_[0]->from, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2316'}) && 0)) || (($bool = 1) && ($pos = $pad{'I2311'}) || 1) && ((($pad{'I2317'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return ${$_[0]{'Pugs::Grammar::Rule::variables'};};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2317'}) && 0)) || ($pos = $pad{'I2310'}) && 0) or ($bool = 1) && ($pos = $pad{'I2307'}) || 1 and ((($pad{'I2318'} = $pos) || 1) && do {
my $match = do {
our $I2319;
our $I2319_sizes;
unless ($I2319) {
my $hash = \%rule_terms;
my(%sizes) = map({length $_, 1;} keys %$hash);
$I2319_sizes = [(sort {$b <=> $a;} keys %sizes)];
$I2319 = $hash;
} ;
my $match = 0;
my $key;
foreach $_ (@$I2319_sizes) {
$key = $pos <= length $s ? substr($s, $pos, $_) : '';
if (exists $$I2319{$key}) {
$match = Pugs::Runtime::Regex::preprocess_hash($I2319, $key)->($s, $grammar, {'p', $pos + $_, 'positionals', [], 'args', {'KEY', $key}}, undef);
last if $match;
} ;
} ;
if ($match) {
$pos = $match->to;
$bool = 1;
} ;
$match
};
if ($match) {
$named{'Pugs::Grammar::Rule::rule_terms'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2318'}) && 0 and (($pad{'I2320'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return ${$_[0]{'Pugs::Grammar::Rule::rule_terms'};};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2320'}) && 0) or ($bool = 1) && ($pos = $pad{'I2307'}) || 1 and ((($pad{'I2321'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?![\]\}\)\>\:\?\+\*\|\&]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2321'}) && 0 and (($pad{'I2322'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'constant', ${$_[0];}, '_pos', [$_[0]->from, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2322'}) && 0) |
|
12239
|
0 |
0 |
if ($bool) |
|
12246
|
0 |
0 |
if $_[3]{'continue'} |
|
12264
|
0 |
0 |
unless defined $_[3] |
|
12271
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
12283
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
12398
|
0 |
0 |
unless ($pad{'I2323'} = $pos) || 1 and ((($pad{'I2324'} = $pos) || 1) && (substr($s, $pos, 2) eq '**' ? ($pos += 2) || 1 : 0) || ($pos = $pad{'I2324'}) && 0 and (($pad{'I2325'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2325'}) && 0 || ($bool = 1) and (($pad{'I2326'} = $pos) || 1) && (substr($s, $pos, 1) eq '{' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2326'}) && 0 and (($pad{'I2327'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->parsed_code($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'parsed_code'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2327'}) && 0 and (($pad{'I2328'} = $pos) || 1) && (substr($s, $pos, 1) eq '}' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2328'}) && 0 and (($pad{'I2329'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'closure', ${$_[0]{'parsed_code'};}};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2329'}) && 0) or ($bool = 1) && ($pos = $pad{'I2323'}) || 1 and (($pad{'I2330'} = $pos) || 1) && (substr($s, $pos) =~ /^((?:(?=[\?\*\+]))\X)/ ? ($pos += length $1) || 1 : 0) || ($pos = $pad{'I2330'}) && 0 || ($bool = 1) |
|
12436
|
0 |
0 |
if ($bool) |
|
12443
|
0 |
0 |
if $_[3]{'continue'} |
|
12461
|
0 |
0 |
unless defined $_[3] |
|
12468
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
12480
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
12838
|
0 |
0 |
unless (($pad{'I2331'} = $pos) || 1) && do {
my $match = 'Pugs::Runtime::Match'->new(do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless ($pad{'I2332'} = $pos) || 1 and do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} or $pos = $pad{'I2332'} and 0 or $bool = 1;
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
$match[0] = 'Pugs::Runtime::Match'->new($hash);
$bool
};
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
});
if ($match) {
$named{'ws1'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2331'}) && 0 and (($pad{'I2333'} = $pos) || 1) && do {
my $pos1 = $pos;
do {
my $pos = $pos1;
my $from = $pos;
my(@match, %named);
$bool = do {
my $pos1 = $pos;
do {
my $pos = $pos1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless ($pad{'I2334'} = $pos) || 1 and substr($s, $pos) =~ /^((?:(?=[\}\]\)]))\X)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I2334'} and 0;
$bool
}
} ? 0 : 1;
$bool
}
} || ($pos = $pad{'I2333'}) && 0 and (($pad{'I2335'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->term($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'term'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2335'}) && 0 and (($pad{'I2336'} = $pos) || 1) && do {
my $match = 'Pugs::Runtime::Match'->new(do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless ($pad{'I2337'} = $pos) || 1 and do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} or $pos = $pad{'I2337'} and 0 or $bool = 1;
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
$match[0] = 'Pugs::Runtime::Match'->new($hash);
$bool
};
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
});
if ($match) {
$named{'ws2'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2336'}) && 0 and (($pad{'I2338'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->quant($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'quant'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2338'}) && 0 and (($pad{'I2339'} = $pos) || 1) && do {
my $match = 'Pugs::Runtime::Match'->new(do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless ($pad{'I2340'} = $pos) || 1 and substr($s, $pos) =~ /^((?:(?=[\?\+]))\X)/ ? ($pos += length $1) || 1 : 0 or $pos = $pad{'I2340'} and 0 or $bool = 1;
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
$match[0] = 'Pugs::Runtime::Match'->new($hash);
$bool
};
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
});
if ($match) {
$named{'greedy'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2339'}) && 0 and (($pad{'I2341'} = $pos) || 1) && do {
my $match = 'Pugs::Runtime::Match'->new(do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless ($pad{'I2342'} = $pos) || 1 and do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} or $pos = $pad{'I2342'} and 0 or $bool = 1;
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
$match[0] = 'Pugs::Runtime::Match'->new($hash);
$bool
};
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
});
if ($match) {
$named{'ws3'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2341'}) && 0 and (($pad{'I2343'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
if (${$_[0]{'quant'};} eq '' and ${$_[0]{'greedy'};} eq '' and ${$_[0]{'ws1'};} eq '' and ${$_[0]{'ws2'};} eq '' and ${$_[0]{'ws3'};} eq '') {
return ${$_[0]{'term'};};
} ;
return {'quant', {'term', ${$_[0]{'term'};}, 'quant', ${$_[0]{'quant'};}, 'greedy', ${$_[0]{'greedy'};}, 'ws1', ${$_[0]{'ws1'};}, 'ws2', ${$_[0]{'ws2'};}, 'ws3', ${$_[0]{'ws3'};}}, '_pos', [$_[0]->from, $_[0]->to]};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2343'}) && 0 |
|
12875
|
0 |
0 |
if ($bool) |
|
12882
|
0 |
0 |
if $_[3]{'continue'} |
|
12900
|
0 |
0 |
unless defined $_[3] |
|
12907
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
12919
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
12959
|
0 |
0 |
if ($match) { } |
|
12977
|
0 |
0 |
unless (($pad{'I2344'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->quantifier($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'quantifier'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2344'}) && 0 and do {
while (($pad{'I2344'} = $pos) || 1 and do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->quantifier($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'quantifier'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} or $pos = $pad{'I2344'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I2345'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
my(@a) = map({&$_();} @{$$main::_V6_MATCH_{'quantifier'};});
return {'concat', \@a, '_pos', [$_[0]->from, $_[0]->to]} if scalar @a > 1;
return $a[0];
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2345'}) && 0 |
|
12998
|
0 |
0 |
if ($bool) |
|
13005
|
0 |
0 |
if $_[3]{'continue'} |
|
13023
|
0 |
0 |
unless defined $_[3] |
|
13030
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
13042
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
13289
|
0 |
0 |
unless (($pad{'I2346'} = $pos) || 1) && (((($pad{'I2347'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2347'}) && 0 || ($bool = 1)) && ((($pad{'I2348'} = $pos) || 1) && (substr($s, $pos, 1) eq '&' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2348'}) && 0) && ((($pad{'I2349'} = $pos) || 1) && do {
my $pos1 = $pos;
do {
my $pos = $pos1;
my $from = $pos;
my(@match, %named);
$bool = do {
my $pos1 = $pos;
do {
my $pos = $pos1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless ($pad{'I2350'} = $pos) || 1 and substr($s, $pos, 1) eq '&' ? ($pos += 1) || 1 : 0 or $pos = $pad{'I2350'} and 0;
$bool
}
} ? 0 : 1;
$bool
}
} || ($pos = $pad{'I2349'}) && 0)) || ($pos = $pad{'I2346'}) && 0 || ($bool = 1) and (($pad{'I2351'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->concat($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'concat'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2351'}) && 0 and do {
while (($pad{'I2352'} = $pos) || 1 and ((($pad{'I2353'} = $pos) || 1) && (substr($s, $pos, 1) eq '&' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2353'}) && 0 and (($pad{'I2354'} = $pos) || 1) && do {
my $pos1 = $pos;
do {
my $pos = $pos1;
my $from = $pos;
my(@match, %named);
$bool = do {
my $pos1 = $pos;
do {
my $pos = $pos1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless ($pad{'I2355'} = $pos) || 1 and substr($s, $pos, 1) eq '&' ? ($pos += 1) || 1 : 0 or $pos = $pad{'I2355'} and 0;
$bool
}
} ? 0 : 1;
$bool
}
} || ($pos = $pad{'I2354'}) && 0 and (($pad{'I2356'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->concat($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'concat'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2356'}) && 0) or $pos = $pad{'I2352'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I2357'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
my(@a) = map({$$_;} @{$$main::_V6_MATCH_{'concat'};});
return {'conjunctive1', \@a, '_pos', [$_[0]->from, $_[0]->to]} if scalar @a > 1;
return $a[0];
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2357'}) && 0 |
|
13309
|
0 |
0 |
if ($bool) |
|
13316
|
0 |
0 |
if $_[3]{'continue'} |
|
13334
|
0 |
0 |
unless defined $_[3] |
|
13341
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
13353
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
13600
|
0 |
0 |
unless (($pad{'I2358'} = $pos) || 1) && (((($pad{'I2359'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2359'}) && 0 || ($bool = 1)) && ((($pad{'I2360'} = $pos) || 1) && (substr($s, $pos, 1) eq '|' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2360'}) && 0) && ((($pad{'I2361'} = $pos) || 1) && do {
my $pos1 = $pos;
do {
my $pos = $pos1;
my $from = $pos;
my(@match, %named);
$bool = do {
my $pos1 = $pos;
do {
my $pos = $pos1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless ($pad{'I2362'} = $pos) || 1 and substr($s, $pos, 1) eq '|' ? ($pos += 1) || 1 : 0 or $pos = $pad{'I2362'} and 0;
$bool
}
} ? 0 : 1;
$bool
}
} || ($pos = $pad{'I2361'}) && 0)) || ($pos = $pad{'I2358'}) && 0 || ($bool = 1) and (($pad{'I2363'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->conjunctive1($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'conjunctive1'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2363'}) && 0 and do {
while (($pad{'I2364'} = $pos) || 1 and ((($pad{'I2365'} = $pos) || 1) && (substr($s, $pos, 1) eq '|' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2365'}) && 0 and (($pad{'I2366'} = $pos) || 1) && do {
my $pos1 = $pos;
do {
my $pos = $pos1;
my $from = $pos;
my(@match, %named);
$bool = do {
my $pos1 = $pos;
do {
my $pos = $pos1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless ($pad{'I2367'} = $pos) || 1 and substr($s, $pos, 1) eq '|' ? ($pos += 1) || 1 : 0 or $pos = $pad{'I2367'} and 0;
$bool
}
} ? 0 : 1;
$bool
}
} || ($pos = $pad{'I2366'}) && 0 and (($pad{'I2368'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->conjunctive1($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'conjunctive1'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2368'}) && 0) or $pos = $pad{'I2364'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I2369'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
my(@a) = map({$$_;} @{$$main::_V6_MATCH_{'conjunctive1'};});
return {'alt1', \@a, '_pos', [$_[0]->from, $_[0]->to]} if scalar @a > 1;
return $a[0];
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2369'}) && 0 |
|
13620
|
0 |
0 |
if ($bool) |
|
13627
|
0 |
0 |
if $_[3]{'continue'} |
|
13645
|
0 |
0 |
unless defined $_[3] |
|
13652
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
13664
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
13839
|
0 |
0 |
unless (($pad{'I2370'} = $pos) || 1) && (((($pad{'I2371'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2371'}) && 0 || ($bool = 1)) && ((($pad{'I2372'} = $pos) || 1) && (substr($s, $pos, 1) eq '&' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2372'}) && 0) && ((($pad{'I2373'} = $pos) || 1) && (substr($s, $pos, 1) eq '&' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2373'}) && 0)) || ($pos = $pad{'I2370'}) && 0 || ($bool = 1) and (($pad{'I2374'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->disjunctive1($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'disjunctive1'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2374'}) && 0 and do {
while (($pad{'I2375'} = $pos) || 1 and ((($pad{'I2376'} = $pos) || 1) && (substr($s, $pos, 1) eq '&' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2376'}) && 0 and (($pad{'I2377'} = $pos) || 1) && (substr($s, $pos, 1) eq '&' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2377'}) && 0 and (($pad{'I2378'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->disjunctive1($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'disjunctive1'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2378'}) && 0) or $pos = $pad{'I2375'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I2379'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
my(@a) = map({$$_;} @{$$main::_V6_MATCH_{'disjunctive1'};});
return {'conjunctive', \@a, '_pos', [$_[0]->from, $_[0]->to]} if scalar @a > 1;
return $a[0];
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2379'}) && 0 |
|
13859
|
0 |
0 |
if ($bool) |
|
13866
|
0 |
0 |
if $_[3]{'continue'} |
|
13884
|
15 |
0 |
unless defined $_[3] |
|
13891
|
0 |
15 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
15 |
elsif ($_[3]{'continue'}) { } |
|
13903
|
0 |
15 |
if exists $_[3]{'KEY'} |
|
14078
|
0 |
0 |
unless (($pad{'I2380'} = $pos) || 1) && (((($pad{'I2381'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2381'}) && 0 || ($bool = 1)) && ((($pad{'I2382'} = $pos) || 1) && (substr($s, $pos, 1) eq '|' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2382'}) && 0) && ((($pad{'I2383'} = $pos) || 1) && (substr($s, $pos, 1) eq '|' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2383'}) && 0)) || ($pos = $pad{'I2380'}) && 0 || ($bool = 1) and (($pad{'I2384'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->conjunctive($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'conjunctive'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2384'}) && 0 and do {
while (($pad{'I2385'} = $pos) || 1 and ((($pad{'I2386'} = $pos) || 1) && (substr($s, $pos, 1) eq '|' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2386'}) && 0 and (($pad{'I2387'} = $pos) || 1) && (substr($s, $pos, 1) eq '|' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2387'}) && 0 and (($pad{'I2388'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->conjunctive($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'conjunctive'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2388'}) && 0) or $pos = $pad{'I2385'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I2389'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
my(@a) = map({$$_;} @{$$main::_V6_MATCH_{'conjunctive'};});
return {'alt', \@a, '_pos', [$_[0]->from, $_[0]->to]} if scalar @a > 1;
return $a[0];
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2389'}) && 0 |
|
14098
|
0 |
0 |
if ($bool) |
|
14105
|
0 |
0 |
if $_[3]{'continue'} |
|
14123
|
0 |
0 |
unless defined $_[3] |
|
14130
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
14142
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
14402
|
0 |
0 |
unless (($pad{'I2390'} = $pos) || 1) && do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless ($pad{'I2391'} = $pos) || 1 and (($pad{'I2392'} = $pos) || 1) && (substr($s, $pos, 5) eq 'token' ? ($pos += 5) || 1 : 0) || ($pos = $pad{'I2392'}) && 0 or ($bool = 1) && ($pos = $pad{'I2391'}) || 1 and (($pad{'I2393'} = $pos) || 1) && (substr($s, $pos, 5) eq 'regex' ? ($pos += 5) || 1 : 0) || ($pos = $pad{'I2393'}) && 0 or ($bool = 1) && ($pos = $pad{'I2391'}) || 1 and (($pad{'I2394'} = $pos) || 1) && (substr($s, $pos, 4) eq 'rule' ? ($pos += 4) || 1 : 0) || ($pos = $pad{'I2394'}) && 0;
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
$match[0] = 'Pugs::Runtime::Match'->new($hash);
$bool
} || ($pos = $pad{'I2390'}) && 0 and (($pad{'I2395'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2395'}) && 0 and (($pad{'I2396'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ident($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'ident'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2396'}) && 0 and (($pad{'I2397'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2397'}) && 0 || ($bool = 1) and (($pad{'I2398'} = $pos) || 1) && (substr($s, $pos, 1) eq '{' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2398'}) && 0 and (($pad{'I2399'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2399'}) && 0 || ($bool = 1) and (($pad{'I2400'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->rule($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'rule'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2400'}) && 0 and (($pad{'I2401'} = $pos) || 1) && (substr($s, $pos, 1) eq '}' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2401'}) && 0 and (($pad{'I2402'} = $pos) || 1) && (substr($s, $pos, 1) eq ';' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2402'}) && 0 || ($bool = 1) and (($pad{'I2403'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'type', ${$_[0][0];}, 'name', ${$_[0]{'ident'};}, 'ast', ${$_[0]{'rule'};}};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2403'}) && 0 |
|
14423
|
0 |
0 |
if ($bool) |
|
14430
|
0 |
0 |
if $_[3]{'continue'} |
|
14448
|
1 |
0 |
unless defined $_[3] |
|
14455
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
14467
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
14611
|
0 |
0 |
unless (($pad{'I2404'} = $pos) || 1) && (substr($s, $pos, 2) eq '%{' ? ($pos += 2) || 1 : 0) || ($pos = $pad{'I2404'}) && 0 and (($pad{'I2405'} = $pos) || 1) && do {
my $hash = do {
my $bool = 1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless do {
while (($pad{'I2406'} = $pos) || 1 and ((($pad{'I2407'} = $pos) || 1) && do {
my $pos1 = $pos;
do {
my $pos = $pos1;
my $from = $pos;
my(@match, %named);
$bool = do {
my $pos1 = $pos;
do {
my $pos = $pos1;
my $from = $pos;
my(@match, %named);
$bool = 0 unless substr($s, $pos, 2) eq '%}' ? ($pos += 2) || 1 : 0;
$bool
}
} ? 0 : 1;
$bool
}
} || ($pos = $pad{'I2407'}) && 0 and (($pad{'I2408'} = $pos) || 1) && substr($s, $pos++, 1) ne '' || ($pos = $pad{'I2408'}) && 0) or $pos = $pad{'I2406'} and 0) {
();
} ;
$bool = 1
};
+{'str', \$s, 'from', \$from, 'match', \@match, 'named', \%named, 'bool', \$bool, 'to', \(0 + $pos), 'capture', undef}
};
my $bool = ${$$hash{'bool'};};
$match[0] = 'Pugs::Runtime::Match'->new($hash);
$bool
} || ($pos = $pad{'I2405'}) && 0 and (($pad{'I2409'} = $pos) || 1) && (substr($s, $pos, 2) eq '%}' ? ($pos += 2) || 1 : 0) || ($pos = $pad{'I2409'}) && 0 and (($pad{'I2410'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'type', 'block', 'value', ${$_[0][0];}};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2410'}) && 0 |
|
14631
|
0 |
0 |
if ($bool) |
|
14638
|
0 |
0 |
if $_[3]{'continue'} |
|
14656
|
0 |
0 |
unless defined $_[3] |
|
14663
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
14675
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
14769
|
0 |
0 |
unless ($pad{'I2411'} = $pos) || 1 and ((($pad{'I2412'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->verbatim($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'verbatim'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2412'}) && 0 and (($pad{'I2413'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return ${$_[0]{'verbatim'};};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2413'}) && 0) or ($bool = 1) && ($pos = $pad{'I2411'}) || 1 and ((($pad{'I2414'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->named_regex($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'named_regex'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2414'}) && 0 and (($pad{'I2415'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return ${$_[0]{'named_regex'};};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2415'}) && 0) |
|
14789
|
0 |
0 |
if ($bool) |
|
14796
|
0 |
0 |
if $_[3]{'continue'} |
|
14814
|
0 |
0 |
unless defined $_[3] |
|
14821
|
0 |
0 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
0 |
elsif ($_[3]{'continue'}) { } |
|
14833
|
0 |
0 |
if exists $_[3]{'KEY'} |
|
15047
|
0 |
0 |
unless (($pad{'I2416'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2416'}) && 0 || ($bool = 1) and (($pad{'I2417'} = $pos) || 1) && (substr($s, $pos, 7) eq 'grammar' ? ($pos += 7) || 1 : 0) || ($pos = $pad{'I2417'}) && 0 and (($pad{'I2418'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2418'}) && 0 and (($pad{'I2419'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ident($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
$named{'ident'} = $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2419'}) && 0 and (($pad{'I2420'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2420'}) && 0 || ($bool = 1) and (($pad{'I2421'} = $pos) || 1) && (substr($s, $pos, 1) eq ';' ? ($pos += 1) || 1 : 0) || ($pos = $pad{'I2421'}) && 0 and (($pad{'I2422'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2422'}) && 0 || ($bool = 1) and do {
while (($pad{'I2423'} = $pos) || 1 and ((($pad{'I2424'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->item($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'item'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2424'}) && 0 and (($pad{'I2425'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->ws($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
my $bool = !$match != 1;
$pos = $match->to if $bool;
$match
} || ($pos = $pad{'I2425'}) && 0 || ($bool = 1)) or $pos = $pad{'I2423'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I2426'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {${$_[0]{'ident'};}, $_[0]{'item'}};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2426'}) && 0 |
|
15063
|
0 |
0 |
if ($bool) |
|
15070
|
0 |
0 |
if $_[3]{'continue'} |
|
15088
|
1 |
0 |
unless defined $_[3] |
|
15095
|
0 |
1 |
if (defined $_[3]{'p'}) { } |
|
|
0 |
1 |
elsif ($_[3]{'continue'}) { } |
|
15107
|
0 |
1 |
if exists $_[3]{'KEY'} |
|
15154
|
0 |
0 |
if ($match) { } |
|
15171
|
0 |
0 |
unless (($pad{'I2427'} = $pos) || 1) && do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->verbatim($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'verbatim'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} || ($pos = $pad{'I2427'}) && 0 || ($bool = 1) and do {
while (($pad{'I2428'} = $pos) || 1 and do {
my $prior = $main::_V6_PRIOR_;
my $match = $grammar->grammar($s, {'p', $pos, 'positionals', [], 'args', {}}, undef);
$main::_V6_PRIOR_ = $prior;
if ($match) {
push @{$named{'grammar'};}, $match;
$pos = $match->to;
1;
}
else {
0;
}
} or $pos = $pad{'I2428'} and 0) {
();
} ;
$bool = 1
} and (($pad{'I2429'} = $pos) || 1) && do {
local $main::_V6_SUCCEED = 1;
$main::_V6_MATCH_ = $m;
$m->data->{'capture'} = \sub {
return {'block', $_[0]{'verbatim'}, 'grammar', $_[0]{'grammar'}};
}
->($m);
$bool = $main::_V6_SUCCEED;
$main::_V6_MATCH_ = $m if $bool;
return $m if $bool
} || ($pos = $pad{'I2429'}) && 0 |
|
15190
|
0 |
0 |
if ($bool) |
|
15197
|
0 |
0 |
if $_[3]{'continue'} |