Lines Matching refs:head1
286 return unless $contents =~ /=head1 NAME(.*)=head1 SYNOPSIS/ms;
323 return unless $contents =~ /=head1 SYNOPSIS(.*)=head1 DESCRIPTION/ms;
430 return unless $contents =~ /=head1 $section/
431 and $contents =~ /=head1 $before/;
433 if $contents =~ /=head1 $before.*=head1 $section/ms;
436 # Check if a =head1 is duplicated, or a =headX is duplicated within a
437 # =head1. Treats =head2 =head3 as equivalent -- it doesn't reset the head3
443 my %head1;
448 if ( $line =~ /head1/ ) {
450 if defined $head1{$line};
451 $head1{$line} = 1;
460 err($id, "not all uppercase in =head1")
461 if $line =~ /head1.*[a-z]/;
537 my $synopsis = ($contents =~ /=head1\s+SYNOPSIS(.*?)=head1/s, $1);
542 while ( $contents =~ /=head1\s+[A-Z ]*?OPTIONS$(.*?)(?==head1)/msg ) {
690 if $contents =~ /=head1 NAME.*\btool\b.*=head1 SYNOPSIS/s;
692 if $contents =~ /NAME.*\butility\b.*=head1 SYNOPSIS/s;
765 if $contents =~ /=head1 EXAMPLE[^S]/;
767 if $contents =~ /=head1 WARNING[^S]/;
771 if $contents =~ /head1 COPYRIGHT.*=head/ms;
777 if $contents =~ /=head1 NAME.*\.\n.*=head1 SYNOPSIS/ms;
788 if ( $contents =~ /=head1 SYNOPSIS(.*)=head1 DESCRIPTION/ms ) {
820 err($id, "Missing $_ head1 section")
821 if $contents !~ /^=head1\s+${_}\s*$/m;