Checking for missed empty lines in POD

Question

I use Dist::Zilla and a bunch of plugins to check my pod, including syntax, links, coverage etc. One really annoying POD mistake that I keep repeating is to forget to add an extra line after a =headX; for example, I just created a module with pod that looks like the following:

=head1 METHODS

=head2 C<wm_graph>
There are three required arguments: ...
If the first arg is ...

Of course, I go and look at the CPAN page and realize I screwed it up, as the entire paragraph is in head2 format:

Are there any good, automated ways to check that I didn't forget to put space between a =headX (or anything else) and the next paragraph?

Answer 1

Roll some perl code. Crude, but it works. I leave writing the main() to you.

sub do_pod_check
{
    my (
        $path,
         ) = @_;

    my $troubles = 0;
    open( my $handle, $path ) or
        die "Can not open file: $path: $!\n";

    while ( my $line = <$handle> )
    {
        if ( $line =~ /^=\w+/ )
        {
            my $line2 = <$handle>;
            if ( $line2 && $line2 =~ /\S/ )
            {
                $line2 =~ s/^\s+//;
                $line  =~ s/\s+$//;     #superchomp lines
                $line2 =~ s/\s+$//;
                print "$path\[$.]: suspect POD: /",
                                substr($line,0,30), "/",
                                substr($line2,0,30), "/",
                                "\n";
                $troubles++;
            }
        }
    }
    return $troubles;
}