Update of /cvsroot/module-build/Module-Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16201
Added Files:
doc_check.pl
Log Message:
Check for non-documented methods
--- NEW FILE: doc_check.pl ---
#!/usr/bin/perl -ln
BEGIN{
@ARGV = qw( lib/Module/Build/Base.pm
lib/Module/Build.pm
lib/Module/Build/Authoring.pod );
}
if (@ARGV==2) {
$subs{$1}++ if m/^\s*sub\s+([^_\W]\w+)/;
} else {
$docs{$1}++ if m/^=item (\w+)\(/;
}
END{
print ($docs{$_} ? "$_*" : $_) for sort keys %subs;
}
|