From: Peter Rabbitson <ribasushi@cpan.org>
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-Tag: v0.08124~118
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=494b5561c3df99acd3b52a8ad320669b93b7f90e;p=dbsrgits%2FDBIx-Class.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 = <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;