From: Peter Rabbitson Date: Thu, 8 Jul 2010 12:27:22 +0000 (+0200) Subject: This hack is superseded by theorbtwo's POD::Inherit (which however has problems on... X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=494b5561c3df99acd3b52a8ad320669b93b7f90e;p=dbsrgits%2FDBIx-Class-Historic.git This hack is superseded by theorbtwo's POD::Inherit (which however has problems on its own) --- diff --git a/maint/inheritance_pod.pl b/maint/inheritance_pod.pl deleted file mode 100755 index 72ba0ea..0000000 --- a/maint/inheritance_pod.pl +++ /dev/null @@ -1,40 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; -use lib qw(lib t/lib); - -# USAGE: -# maint/inheritance_pod.pl Some::Module - -my $module = $ARGV[0]; -eval(" require $module; "); - -my @modules = Class::C3::calculateMRO($module); -shift( @modules ); - -print "=head1 INHERITED METHODS\n\n"; - -foreach my $module (@modules) { - print "=head2 $module\n\n"; - print "=over 4\n\n"; - my $file = $module; - $file =~ s/::/\//g; - $file .= '.pm'; - foreach my $path (@INC){ - if (-e "$path/$file") { - open(MODULE,"<$path/$file"); - while (my $line = ) { - if ($line=~/^\s*sub ([a-z][a-z_]+) \{/) { - my $method = $1; - print "=item *\n\n"; - print "L<$method|$module/$method>\n\n"; - } - } - close(MODULE); - last; - } - } - print "=back\n\n"; -} - -1;