X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=maint%2Finheritance_pod.pl;fp=maint%2Finheritance_pod.pl;h=0000000000000000000000000000000000000000;hb=fe0708a2d68b5d34b6bc6f7e70164c3e569f1dd0;hp=72ba0ea6f8caa6e06945c3615fe99bce2a31c9cc;hpb=01272eb81fe3a43e0a2f7befa465cc669945d543;p=dbsrgits%2FDBIx-Class.git

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 = <MODULE>) {
-                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;