Lines Matching refs:lastline
762 LastLine => $lastline,
791 $lastline = $_ ;
811 $lastline = $data->{LastLine} ;
933 unless $lastline;
944 $lastline = $_;
947 # Read next xsub into @line from ($lastline, <$FH>).
951 if !defined $lastline && $XSStack[-1]{type} eq 'if';
954 return PopFile() if !defined $lastline;
956 if ($lastline =~
966 $lastline = "";
971 while ($lastline =~ /^=/) {
972 while ($lastline = <$FH>) {
973 last if ($lastline =~ /^=cut\s*$/);
975 death ("Error: Unterminated pod") unless $lastline;
976 $lastline = <$FH>;
977 chomp $lastline;
978 $lastline =~ s/^\s+$//;
980 if ($lastline !~ /^\s*#/ ||
987 $lastline =~ /^#[ \t]*(?:(?:if|ifn?def|elif|else|endif|define|undef|pragma|error|warning|line\s+\d+|ident)\b|(?:include(?:_next)?|import)\s*["<].*[>"])/) {
988 last if $lastline =~ /^\S/ && @line && $line[-1] eq "";
989 push(@line, $lastline);
994 last unless defined($lastline = <$FH>);
997 $lastline .= $tmp_line
998 while ($lastline =~ /\\$/ && defined($tmp_line = <$FH>));
1000 chomp $lastline;
1001 $lastline =~ s/^\s+$//;