Searched refs:in_pod (Results 1 – 9 of 9) sorted by relevance
35 my ($in_pod, $has_encoding, @non_ascii);40 $in_pod = 1;43 if ($in_pod) {58 $in_pod = 0;
327 my($in_pod) = 0;332 $in_pod = 1 if /^=\w/;333 $in_pod = 0 if /^=cut/;334 next if ($in_pod || /^=cut/);397 $in_pod = 1 if /^=\w/;398 $in_pod = 0 if /^=cut/;399 next if ($in_pod || /^=cut/);
275 my $in_pod = 0;280 $in_pod = 1 if ($line =~ m/^=\w/);281 $in_pod = 0 if ($line =~ m/^=cut/);282 next unless $in_pod; # skip non-pod text284 next if ($in_pod && ($line =~ m/^X</)); # and commands
15 The encoding warning should only fire when the parser is 'in_pod' but that
550 my( $in_pod, $seen_end, $need_vers ) = ( 0, 0, 0 );571 $in_pod = !$is_cut;574 if ( $in_pod ) {
123 PERL_BITFIELD16 in_pod:1; /* lexer is within a =pod section */ member
942 parser->in_pod = parser->filtered = 0; in Perl_lex_start()1527 PL_parser->in_pod = PL_parser->filtered = 0; in Perl_lex_next_chunk()7363 if (PL_parser->in_pod) { in yyl_fake_eof()7372 PL_parser->in_pod = 0; in yyl_fake_eof()7377 } while (PL_parser->in_pod); in yyl_fake_eof()9439 PL_parser->in_pod = 1; in yyl_try()
1454 my $in_pod = 0;1459 $in_pod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $in_pod;1460 next if $in_pod || /^\s*#/;
750 $$self{in_pod} = 1;