diff options
| author | Karl Williamson <khw@cpan.org> | 2020-08-26 16:42:56 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-09-04 16:13:25 -0600 |
| commit | 9639517b6a672e2dacec5f0d96e652842a471c05 (patch) | |
| tree | 7aa45ca659595dc1ecdb72e51cd4f439a77cc4af /autodoc.pl | |
| parent | a9a7c81e08ccbf1f95eafb56e23e6695e1b80bfb (diff) | |
| download | perl-9639517b6a672e2dacec5f0d96e652842a471c05.tar.gz | |
autodoc: Warn on empty pod
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/autodoc.pl b/autodoc.pl index 9863c33aac..7b236a4105 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -263,6 +263,8 @@ sub docout ($$$) { # output the docs for one function my($flags, $docs, $ret, $file, @args) = @$docref; $name =~ s/\s*$//; + warn("Empty pod for $name (from $file)") unless $docs =~ /\S/; + if ($flags =~ /D/) { my $function = $flags =~ /n/ ? 'definition' : 'function'; $docs = "\n\nDEPRECATED! It is planned to remove this $function from a |