YAML/PP/Lexer.pm

25     $self->{next_line} = undef;
31 sub next_line { return $_[0]->{next_line} }  subroutine
32 sub set_next_line { $_[0]->{next_line} = $_[1] }
134     my $next_line = $self->next_line;
135     if (defined $next_line ) {
136         return $next_line;
146     $next_line = [ $1,  $2, $3 ];
147     $self->set_next_line($next_line);
153     return $next_line;
182     my $next_line = $self->fetch_next_line;
183     if (not $next_line) {
187     my $spaces = $next_line->[0];
188     my $yaml = \$next_line->[1];
190         $self->push_tokens([ EOL => join('', @$next_line), $self->line ]);
195         $self->push_tokens([ EOL => join('', @$next_line), $self->line ]);
200         $self->_fetch_next_tokens_directive($yaml, $next_line->[2]);
212     my $partial = $self->_fetch_next_tokens($next_line);
239     my ($self, $next_line) = @_;
241     my $yaml = \$next_line->[1];
242     my $eol = $next_line->[2];
350     my $next_line = $self->next_line;
351     my $yaml = \$next_line->[1];
352     my $eol = $next_line->[2];
380         my $partial = $self->_fetch_next_tokens($next_line);
395         $next_line = $self->fetch_next_line;
396         if (not $next_line) {
399         my $spaces = $next_line->[0];
400         my $yaml = \$next_line->[1];
401         my $eol = $next_line->[2];
492         my $partial = $self->_fetch_next_tokens($next_line);
502     my $next_line = $self->next_line;
503     my $yaml = \$next_line->[1];
504     my $eol = $next_line->[2];
544         $next_line = $self->fetch_next_line;
545         if (not $next_line) {
548         my $spaces = $next_line->[0];
549         my $content = $next_line->[1];
550         my $eol = $next_line->[2];
598     my $next_line = $self->next_line;
599     my $yaml = \$next_line->[1];
600     my $spaces = $next_line->[0];
611             $next_line = $self->fetch_next_line or do {
622             $spaces = $next_line->[0];
623             $yaml = \$next_line->[1];
626                 push @tokens, ( EOL => $spaces . $next_line->[2], $self->line );
674                 my $partial = $self->_fetch_next_tokens($next_line);
682                 push @tokens, ( EOL => $next_line->[2], $self->line );
688         $tokens[-2] .= $next_line->[2];
907     if (my $nl = $self->next_line) {