[Module-build-checkins] Module-Build doc_check.pl,NONE,1.1

[Ken W. <kwi...@us...>]

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