Lines Matching refs:last
845 my $last = '';
854 and defined $last and $last eq ';'
857 $self->_add_token( $token, $last );
865 … if ( $self->{ '_is_in_create' } > 1 and $self->_is_keyword( $token, $self->_next_token(), $last )
868 $self->_add_token($token, $last);
869 $last = $self->_set_last($token, $last);
876 $self->_new_line($token,$last);
877 $self->_add_token($token, $last);
878 $self->_new_line($token,$last);
880 $last = $self->_set_last($token, $last);
887 $self->_add_token($token, $last);
888 $last = $self->_set_last($token, $last);
895 if (defined $last && $last && defined $self->_next_token and $self->_next_token eq '(')
900 if (uc($last) eq 'FUNCTION' and $token =~ /^\d+$/) {
905 } elsif ($last ne '*' and !$self->_is_keyword($token, $self->_next_token(), $last)
906 and (exists $self->{ 'dict' }->{ 'symbols' }{ $last }
907 or $last =~ /^\d+$/)
916 and $last !~ /^(?:AS|RECURSIVE|WITH|OPERATOR|INTO|TYPE|VIEW)/i
917 and !$self->_is_keyword($token, $self->_next_token(), $last))
938 … $self->_set_level(pop(@{ $self->{ '_level_parenthesis_function' } }) || 0, $token, $last);
939 …token,$last) if (!$self->{ '_is_in_create' } && !$self->{ '_is_in_operator' } && !$self->{ '_is_in…
946 $self->_back($token, $last);
970 $self->{ '_is_in_sub_query' }++ if (defined $last and uc($last) ne 'AS');
978 …if ($token =~ /^WITH$/i and (!defined $last or ($last ne ')' and $self->_next_token !~ /^(TIME|FUN…
983 and uc($self->_next_token) ne 'ORDINALITY' and uc($last) ne 'START');
1012 $self->_new_line($token,$last);
1014 $last = $self->_set_last($token, $last);
1029 $self->_new_line($token,$last) if ($last ne '(' and !$self->{ '_is_in_create' });
1033 $self->_new_line($token,$last);
1034 $self->_back($token, $last);
1035 $self->_add_token( $token, $last );
1036 $last = $self->_set_last($token, $last);
1039 $self->_over($token, $last) if ($self->{ '_is_in_procedure' });
1046 $self->_new_line($token,$last) if (!$self->{ '_is_in_operator' } ||
1051 $self->_set_level($self->_pop_level($token, $last), $token, $last);
1052 $self->_back($token, $last);
1056 $self->_reset_level($token, $last);
1066 $last = $self->_set_last($token, $last);
1099 …f->_next_token ne ';' and $self->_next_token ne ')' and (not defined $last or $last !~ /^(DO|SHARE…
1107 … $self->{ '_current_sql_stmt' } = $k_stmt if (not defined $last or uc($last) ne 'WITH');
1154 $self->_over($token, $last);
1163 $self->_new_line($token,$last);
1164 $self->_over($token, $last) if ($last ne ',');
1166 $last = $self->_set_last($token, $last);
1186 $self->_new_line($token,$last);
1187 $last = $self->_set_last(';', $last);
1199 if (($self->{ '_is_in_alter' } or uc($last) eq 'AS') and uc($token) eq 'OPERATOR') {
1200 $self->_new_line($token,$last) if (uc($last) eq 'AS' and uc($token) eq 'OPERATOR');
1221 …$self->{ '_is_in_index' } = 1 if (uc($last) eq 'ALTER' and !$self->{ '_is_in_operator' } and !$sel…
1236 …if ( !$self->{ '_is_in_index' } and $self->{ '_is_in_from' } and $last eq ')' and uc($token) eq 'A…
1270 $self->_add_token( $token, $last );
1271 $last = $self->_set_last($token, $last);
1275 $last = $self->_set_last($token, $last);
1283 $last = $self->_set_last($token, $last);
1288 …if (defined $last and uc($last) eq 'AS' and defined $self->_next_token and $self->_next_token eq '…
1303 $self->_new_line($token,$last);
1305 $self->_reset_level($token, $last) if ($self->_next_token !~ /CODEPARTB/);
1315 $last = $self->_set_last($token, $last);
1318 elsif ($token =~ /^(INSTEAD|ALSO)$/i and defined $last and uc($last) eq 'DO')
1321 $self->_new_line($token,$last);
1322 $last = $self->_set_last($token, $last);
1327 $self->_new_line($token,$last);
1328 $self->_over($token,$last);
1330 $last = $self->_set_last($token, $last);
1338 $self->_new_line($token,$last) if ($self->{ 'content' } !~ /\n$/s);
1340 $last = $self->_set_last($token, $last);
1355 $last = $self->_set_last($token, $last);
1358 $self->_new_line($token,$last);
1360 $self->_over($token,$last) if (defined $self->_next_token
1366 $self->_reset_level($token, $last) if ($self->_next_token eq ';');
1382 $self->_reset_level($token, $last);
1385 $self->_new_line($token,$last);
1387 $last = $self->_set_last($token, $last);
1400 $self->_reset_level($token, $last);
1401 $self->_new_line($token,$last);
1403 $self->_new_line($token,$last);
1404 $self->_over($token,$last);
1405 $last = $self->_set_last($token, $last);
1413 $self->_reset_level($token, $last);
1415 $self->_new_line($token,$last);
1418 $self->_new_line($token,$last);
1419 $self->_over($token,$last);
1422 $self->_push_level($self->{ '_level' }, $token, $last);
1425 $last = $self->_set_last($token, $last);
1428 …elsif ( $token =~ /^(COMMIT|ROLLBACK)$/i and (not defined $last or uc($last) ne 'ON') and !$self->…
1433 $self->_new_line($token,$last);
1434 $self->_set_level($self->_pop_level($token, $last), $token, $last);
1436 $last = $self->_set_last($token, $last);
1442 $self->_new_line($token,$last);
1444 $last = $self->_set_last($token, $last);
1448 elsif ( $token =~ /^FETCH$/i and defined $last and $last eq ';')
1450 $self->_new_line($token,$last);
1451 $self->_back($token, $last) if ($self->{ '_is_in_block' } == -1);
1453 $last = $self->_set_last($token, $last);
1461 if (uc($token) eq 'AS' and $last eq ')' and $self->_next_token eq '(')
1463 $self->_new_line($token,$last);
1468 $self->_new_line($token,$last);
1469 $self->_over($token,$last) if (uc($self->_next_token) ne 'NULL');
1474 $self->_new_line($token,$last);
1475 $self->_set_level($self->_pop_level($token, $last), $token, $last);
1477 $last = $self->_set_last($token, $last);
1483 if (uc($token) eq 'ON' && defined $last && uc($last) eq 'DISTINCT')
1486 $self->_over($token,$last);
1488 …elsif (uc($token) eq 'DISTINCT' && defined $last && uc($last) eq 'SELECT' && defined $self->_next_…
1491 $self->_new_line($token,$last) if (!$self->{'wrap_after'});
1492 $self->_over($token,$last);
1493 $last = $self->_set_last($token, $last);
1505 …$self->_new_line($token,$last) if (uc($token) ne 'SECURITY' or (defined $last and uc($last) ne 'LE…
1508 … elsif ($token =~ /^PARTITION$/i && !$self->{ '_is_in_over' } && defined $last && $last ne '(')
1511 if ($self->{ '_is_in_create' } && defined $last and $last eq ')')
1513 $self->_new_line($token,$last);
1514 … $self->_set_level($self->_pop_level($token, $last), $token, $last) if ($self->{ '_level' });
1526 $last = $self->_set_last($token, $last);
1529 elsif ($token =~ /^TRIGGER$/i and defined $last and $last =~ /^(CREATE|CONSTRAINT)$/i)
1533 $last = $self->_set_last($token, $last);
1538 $self->_new_line($token,$last);
1539 $self->_over($token,$last);
1541 $last = $self->_set_last($token, $last);
1544 …($token =~ /^EXECUTE$/i and ($self->{ '_is_in_trigger' } or (defined $last and uc($last) eq 'AS')))
1546 $self->_new_line($token,$last);
1548 $last = $self->_set_last($token, $last);
1559 $self->_add_token( $token, $last );
1566 $last = $self->_set_last($token, $last);
1576 … if (uc($last) eq 'AS' || $self->{ '_is_in_create' } == 2 || uc($self->_next_token) eq 'CASE')
1578 …$self->_new_line($token,$last) if ((!$self->{'_is_in_function'} or $self->_next_token =~ /^CASE$/i…
1581 $self->_over($token,$last);
1582 $self->_new_line($token,$last) if (!$self->{ 'wrap_after' });
1583 …$last = $self->_set_last($token, $last) if (!$self->{ '_is_in_explain' } || $self->{ 'wrap_after' …
1586 …{ '_is_in_if' } and !$self->{ '_is_in_alter' } and (!$self->{ '_is_in_function' } or $last ne '('))
1588 …$self->_over($token,$last) if ($self->{ '_is_in_operator' } <= 2 && $self->{ '_is_in_create' } <= …
1592 $self->_new_line($token,$last);
1595 $self->_new_line($token,$last);
1598 $last = $self->_set_last($token, $last);
1601 $last = $self->_set_last($token, $last);
1610 $self->_over($token,$last) if ($self->{ '_is_in_block' } < 0);
1611 $self->_new_line($token,$last);
1639 $self->_back($token, $last);
1640 … $self->_new_line($token,$last) if (!$self->{ 'wrap_after' } && !$self->{ '_is_in_overlaps' });
1642 $last = $self->_set_last($token, $last) if ($token ne ')' or uc($self->_next_token) ne 'AS');
1650 $self->_back($token, $last) if ($self->{ '_is_in_block' } < 0);
1651 $self->_new_line($token,$last) if (defined $last && $last ne '(');
1660 $last = $self->_set_last($token, $last);
1668 and defined $last and $last ne '('
1680 and ($self->{ '_is_in_create' } or $last ne ')' and $last ne ']')
1683 $self->_new_line($token,$last) if ($add_nl);
1692 $self->_back($token, $last);
1697 …$self->_reset_level($token, $last) if ($self->{ '_is_in_block' } == -1 && !$self->{ '_parenthesis_…
1714 $last = $self->_set_last($token, $last);
1722 $self->_back($token, $last) if ($self->{ '_current_sql_stmt' } ne 'INSERT'
1732 $self->_new_line($token,$last)
1760 $self->_back($token, $last);
1805 $self->_new_line($token,$last) if ($add_newline and $self->{ 'comma' } eq 'start');
1811 …$self->_new_line($token,$last) if ($add_newline and $self->{ 'comma' } eq 'end' and ($self->{ 'com…
1820 next if ($token eq ';' and $self->{ '_is_in_case' } and uc($last) ne 'CASE');
1823 $self->_back($token, $last);
1827 $self->_pop_level($token, $last);
1886 $self->_reset_level($token, $last);
1890 $self->_back($token, $last);
1891 $self->_pop_level($token, $last);
1895 $self->_set_level($self->_pop_level($token, $last), $token, $last);
1901 $self->_new_line($token,$last) if (uc($last) ne 'VALUES');
1904 and !$self->{ '_is_in_declare' } and uc($last) ne 'VALUES')
1907 $self->_new_line($token,$last);
1914 $self->_reset_level($token, $last);
1919 …self->_set_level(($self->{ '_is_in_declare' }) ? 1 : ($self->{ '_is_in_block' }+1), $token, $last);
1921 $self->_set_level($self->{ '_level_stack' }[-1], $token, $last);
1924 $last = $self->_set_last($token, $last);
1931 $self->_over($token,$last);
1932 $self->_new_line($token,$last);
1934 $last = $self->_set_last($token, $last);
1940 …$self->_back($token, $last) if (!$self->{ '_has_limit' } and ($#{$self->{ '_level_stack' }} == -1 …
1941 $self->_new_line($token,$last);
1946 $self->_new_line($token,$last);
1950 $self->_over($token,$last) if (uc($self->_next_token) eq 'SELECT');
1951 $last = $self->_set_last($token, $last);
1958 $self->_back($token, $last) if ($self->{ '_has_order_by' });
1964 if ($token =~ /^VALUES$/i && defined $last and $last =~ /^(FOR|IN)$/i)
1968 $last = $self->_set_last($token, $last);
1971 elsif ($token =~ /^FROM$/i && defined $last and uc($last) eq 'VALUES')
1974 $last = $self->_set_last($token, $last);
1981 …if (uc($last) eq 'DISTINCT' || $self->{ '_is_in_fetch' } || $self->{ '_is_in_alter' } || $self->{ …
1984 $last = $self->_set_last($token, $last);
1996 $self->_back($token, $last) if ($self->{ '_has_over_in_join' });
2010 … $self->_new_line($token,$last) if (not defined $last or $last !~ /^(DELETE|UPDATE)$/i);
2014 $self->_new_line($token,$last);
2016 $self->_over($token,$last);
2017 $last = $self->_set_last($token, $last);
2019 $last = $self->_set_last($token, $last);
2022 …elsif ($token =~ /^SET$/i and defined $last and uc($last) eq 'UPDATE' and !$self->_is_keyword($sel…
2027 $self->_new_line($token,$last);
2028 $self->_over($token,$last);
2029 $last = $self->_set_last($token, $last);
2037 …$self->_back($token, $last) if ((uc($token) ne 'VALUES' or $self->{ '_current_sql_stmt' } ne 'INSE…
2042 $self->_over($token, $last);
2044 …$self->_new_line($token,$last) if (!$self->{ '_is_in_rule' } and ($last !~ /^DEFAULT$/i or $self->…
2050 and !grep(/^\Q$last\E$/i, @extract_keywords)
2053 $self->_new_line($token,$last);
2054 $self->_back($token, $last);
2057 $last = $self->_set_last($token, $last);
2061 …' } and !$self->{ 'comma_break' } and ($self->{ '_current_sql_stmt' } eq 'INSERT' or $last eq '('))
2063 $self->_over($token,$last);
2064 if ($self->{ '_current_sql_stmt' } eq 'INSERT' or $last eq '(')
2067 $self->_push_level($self->{ '_level' }, $token, $last);
2071 if ($token =~ /^VALUES$/i and $last eq '(')
2078 $self->_add_token( $token, $last );
2087 if ($token =~ /^VALUES$/i and $last eq '(')
2089 $self->_over($token,$last);
2093 $self->_new_line($token,$last) if (!$self->{ 'wrap_after' });
2094 $self->_over($token,$last);
2101 $self->_new_line($token,$last) if (!$self->{ 'wrap_after' });
2102 $self->_over($token,$last);
2108 elsif (defined $last and $token =~ /^(?:INSERT|DELETE|UPDATE)$/i and uc($last) eq 'AS')
2110 $self->_new_line($token,$last);
2123 $self->_over($token,$last);
2129 $last = $self->_set_last($token, $last);
2132 if ($token =~ /^UPDATE$/i and $last =~ /^(FOR|KEY|DO)$/i)
2138 $self->_new_line($token,$last) if (!defined $last or $last ne "\\\\");
2140 …$self->_new_line($token,$last) if (!$self->{ 'wrap_after' } and (!defined $last or $last ne "\\\\"…
2141 $self->_over($token,$last);
2146 $self->_new_line($token,$last);
2150 $self->_new_line($token,$last);
2151 $self->_over($token,$last);
2162 $self->_new_line($token,$last);
2163 $self->_over($token,$last);
2170 $last = $self->_set_last($token, $last);
2186 if (uc($token) eq 'GROUP' and !defined $last or uc($last) eq 'EXCLUDE') {
2188 $last = $self->_set_last($token, $last);
2193 $last = $self->_set_last($token, $last);
2198 $self->_back($token, $last);
2204 $self->_back($token, $last);
2206 $self->_set_level($self->_pop_level($token, $last), $token, $last);
2208 if (uc($token) ne 'EXCEPTION' or not defined $last or uc($last) ne 'RAISE')
2213 …$self->_new_line($token,$last) if (!$self->{ '_is_in_function' } and (not defined $last or $last !…
2217 if (uc($last) ne 'RAISE' and $token =~ /^EXCEPTION$/i)
2221 $self->_set_level($self->{ '_begin_level' }[-1], $token, $last);
2223 } elsif (uc($last) eq 'RAISE' and $token =~ /^EXCEPTION$/i) {
2224 $self->_push_level($self->{ '_level' }, $token, $last);
2225 $self->_over($token,$last);
2230 $self->_over($token,$last);
2234 elsif ( $token =~ /^(?:BY)$/i and $last !~ /^(?:INCREMENT|OWNED|PARTITION|GENERATED)$/i)
2237 $self->{ '_col_count' } = 0 if (defined $last && $last =~ /^(?:GROUP|ORDER)/i);
2239 … $self->_new_line($token,$last) if (!$self->{ 'wrap_after' } and !$self->{ '_is_in_function' });
2240 $self->_over($token,$last);
2244 elsif ( $token =~ /^(?:CASE)$/i and uc($last) ne 'END')
2248 $self->_new_line($token,$last);
2249 $self->_over($token,$last);
2256 $self->_push_level($self->{ '_level' }, $token, $last);
2266 and defined $last and uc($last) ne 'CASE'
2270 …$self->_set_level($self->{ '_level_stack' }[-1], $token, $last) if ($#{ $self->{ '_level_stack' } …
2272 $self->_set_level($self->{ '_begin_level' }[-1]+1, $token, $last);
2275 $self->_new_line($token,$last) if (not defined $last or $last !~ /^(CASE|,|\()$/i );
2278 $self->_over($token,$last);
2287 $self->_back($token,$last);
2297 $self->_new_line($token,$last) if ($token =~ /^LOOP$/i);
2298 $self->_over($token,$last);
2299 $self->_push_level($self->{ '_level' }, $token, $last);
2310 $self->_new_line($token,$last);
2311 …$self->_set_level($self->{ '_level_stack' }[-1], $token, $last) if ($self->{ '_is_in_if' } and $#{…
2313 …$self->_set_level($self->{ '_level_stack' }[-1], $token, $last) if ($#{ $self->{ '_level_stack' } …
2314 $self->_over($token,$last);
2320 …$self->_set_level($self->{ '_level_stack' }[-1], $token, $last) if ($#{ $self->{ '_level_stack' } …
2321 $self->_over($token,$last);
2328 $self->_back($token, $last);
2329 $self->_new_line($token,$last);
2331 $self->_new_line($token,$last) if ($token !~ /^ELSIF$/i);
2332 $self->_over($token,$last);
2341 $self->_back($token, $last);
2342 $self->_set_level($self->_pop_level($token, $last), $token, $last);
2345 $self->_new_line($token,$last);
2351 elsif ($self->{ '_is_in_block' } == -1 && $last ne ',')
2355 $self->_reset_level($token, $last);
2359 $self->_set_level($self->_pop_level($token, $last), $token, $last);
2367 $self->_reset_level($token, $last);
2369 $self->_set_level($self->_pop_level($token, $last) - 1, $token, $last);
2374 elsif ($last ne ',')
2384 $self->_set_level($self->_pop_level($token, $last), $token, $last);
2386 $self->_reset_level($token, $last);
2390 $self->_set_level(pop( @{ $self->{ '_begin_level' } } ), $token, $last);
2392 …$self->_back($token, $last) if ($self->_next_token =~ /^(IF|LOOP|CASE|INTO|FROM|END|ELSE|AND|OR|WH…
2394 $self->_new_line($token,$last);
2404 $self->_back($token, $last);
2405 $self->_set_level($self->_pop_level($token, $last), $token, $last);
2407 $self->_new_line($token,$last);
2416 $self->_back($token, $last);
2419 $self->_back($token, $last) unless defined $last and $last eq '(';
2420 $self->_new_line($token,$last);
2422 $self->_new_line($token,$last) if ( defined $self->_next_token
2430 …^(?:LEFT|RIGHT|FULL|INNER|OUTER|CROSS|NATURAL)$/i and (not defined $last or uc($last) ne 'MATCH') )
2433 if (!$self->{ '_is_in_join' } and ($last and $last ne ')') )
2435 $self->_back($token, $last);
2440 $self->_back($token, $last);
2445 $self->_new_line($token,$last);
2446 …$self->_over($token,$last) if ( $self->{ '_level' } == 0 || ($self->{ '_is_in_with' } > 1 and $sel…
2448 … if ( ($token =~ /(?:INNER|OUTER)$/i) && ($last !~ /(?:LEFT|RIGHT|CROSS|NATURAL|FULL)$/i) )
2450 $self->_new_line($token,$last);
2451 $self->_over($token,$last) if (!$self->{ '_is_in_join' });
2459 if ( not defined $last or $last !~ /^(?:LEFT|RIGHT|FULL|INNER|OUTER|CROSS|NATURAL)$/i )
2461 $self->_new_line($token,$last);
2462 $self->_back($token, $last) if ($self->{ '_has_over_in_join' });
2474 || (defined $last && $last =~ /^(PRECEDING|FOLLOWING|ROW)$/i)))
2477 $last = $self->_set_last($token, $last);
2484 $self->_over($token,$last);
2489 and (!$last or $last !~ /^(?:CREATE)$/i)
2494 $self->_new_line($token,$last);
2496 $self->_over($token,$last);
2498 $self->_over($token,$last);
2500 $self->_over($token,$last);
2514 $self->_new_line($token,$last), $self->_add_token('') if (defined $last and $last eq ';');
2515 $self->_new_line($token,$last);
2524 $self->_new_line($token,$last);
2537 …$self->_over($token,$last) if ($self->{ '_is_in_operator' } || ($self->{ '_is_in_policy' } && !$se…
2538 $self->_push_level($self->{ '_level' }, $token, $last) if ($token =~ /^USING$/i);
2539 …$self->_set_level($self->_pop_level($token, $last), $token, $last) if (uc($token) eq 'WITH' and $s…
2540 …$self->_new_line($token,$last) if (uc($last) ne 'EXCLUDE' and !$self->{ '_is_in_index' } and !$sel…
2547 $self->_set_level($self->_pop_level($token, $last), $token, $last) if (!$self->{ '_is_in_join' });
2552 && uc($last) ne 'EXCLUDE' && !$self->{ '_is_in_function' }
2559 if ($last !~ /^(FOLLOWING|ADD)$/i or $self->_next_token !~ /^USING$/i) {
2560 $self->_new_line($token,$last) if ($last !~ /^(FOLLOWING|ADD)$/i);
2570 …$self->_new_line($token,$last) if ($token ne "\\\\" and defined $self->_next_token and $self->_nex…
2576 …ext_token !~ /^(NOT|NULL|DEFAULT)$/i and (not defined $last or !$self->{ '_is_in_alter' } or $last…
2577 $self->_new_line($token,$last);
2579 $self->_over($token,$last);
2582 $self->_add_token($token, $last);
2588 $self->_new_line($token,$last);
2594 $self->_new_line($token,$last);
2598 elsif ($last !~ /^(\(|NO)$/i and $token =~ /^(MINVALUE|MAXVALUE)$/i)
2600 $self->_new_line($token,$last);
2606 $self->_new_line($token,$last);
2630 …$self->_new_line($token,$last), $self->_add_token('') if (defined $last and $last eq ';' and $self…
2631 $self->_new_line($token,$last);
2636 $self->_new_line($token,$last) if ($start || $self->{ 'content' } !~ /\n/s);
2643 and defined $last and $self->_is_comment($last)
2647 $last = $self->_set_last($token, $last);
2652 if ($last =~ /^(?:SEQUENCE)$/i and $self->_next_token !~ /^(OWNED|;)$/i)
2655 $self->_new_line($token,$last);
2656 $self->_over($token,$last);
2660 … if (defined $last && $last eq ')' && (!defined $self->_next_token || $self->_next_token ne ';'))
2664 … $self->_set_level(pop(@{ $self->{ '_level_parenthesis' } }) || 1, $token, $last);
2667 … if (defined $last and uc($last) eq 'UPDATE' and $self->{ '_current_sql_stmt' } eq 'UPDATE')
2669 $self->_new_line($token,$last);
2670 $self->_over($token,$last);
2673 if (defined $last and uc($last) eq 'AS' and uc($token) eq 'WITH') {
2674 $self->_new_line($token,$last);
2677 if (uc($token) eq 'INSERT' and defined $last and $last eq ';')
2680 $self->_set_level($self->{ '_level_stack' }[-1], $token, $last);
2682 $self->_back($token,$last);
2688 $self->_new_line($token,$last);
2689 $self->_over($token,$last);
2691 $self->_new_line($token,$last);
2692 $self->_over($token,$last);
2693 $last = $self->_set_last($token, $last);
2697 if ($self->{ 'comma_break' } and $self->{ '_current_sql_stmt' } eq 'INSERT' && $last eq '(')
2699 $self->_new_line($token,$last);
2703 $self->_add_token( $token, $last );
2707 && uc($token) eq 'WITH' && uc($last) eq 'AS')
2711 …if (defined $last && uc($last) eq 'LANGUAGE' && (!defined $self->_next_token || $self->_next_token…
2713 $self->_new_line($token,$last);
2718 $last = $self->_set_last($token, $last);
3028 my ( $self, $token, $last ) = @_;
3032 print STDERR "DEBUG_OVER: line: $line => last=$last, token=$token\n";
3048 my ( $self, $token, $last ) = @_;
3052 print STDERR "DEBUG_BACK: line: $line => last=$last, token=$token\n";
3091 my ( $self, $token, $last ) = @_;
3095 print STDERR "DEBUG_NL: line: $line => last=", ($last||''), ", token=$token\n";