Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (19 sloc) 0.464 kB
#!/usr/bin/perl -ln
BEGIN{
@ARGV = qw( lib/Module/Build/Base.pm
lib/Module/Build.pm
lib/Module/Build/Authoring.pod );
}
if (@ARGV==2) {
m/^\s*sub\s+ACTION_(\w+)/ ? $actions{$1}++ :
m/^\s*sub\s+([^_\W]\w+)/ ? $subs{$1}++ :
undef;
} else {
$docs{$1}++ if m/^=item (\w+)/;
}
END{
print "Methods:";
print ($docs{$_} ? "$_*" : $_) for sort keys %subs;
print "\nActions:";
print ($docs{$_} ? "$_*" : $_) for sort keys %actions;
}
Jump to Line
Something went wrong with that request. Please try again.