检查POD中缺少的空行

Question

我使用Dist :: Zilla和一堆插件来检查我的pod，包括语法，链接，覆盖范围等。我一直重复的一个非常烦人的POD错误是忘记在=headX之后添加额外的一行； 例如，我刚刚使用pod创建了一个模块，如下所示：

=head1 METHODS

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

当然，我去看看CPAN页面，意识到我搞砸了，因为整个段落都是head2格式的：

是否有任何良好的自动化方法来检查我是否忘记在=headX （或其他任何内容）和下一段之间放置空格？

Answer 1

滚动一些perl代码。 粗暴的，但是行得通。 我把main（）写给你。

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;
}