From 494b5561c3df99acd3b52a8ad320669b93b7f90e Mon Sep 17 00:00:00 2001
From: Peter Rabbitson <ribasushi@cpan.org>
Date: Thu, 8 Jul 2010 14:27:22 +0200
Subject: [PATCH] This hack is superseded by theorbtwo's POD::Inherit (which
 however has problems on its own)

---
 maint/inheritance_pod.pl | 40 ----------------------------------------
 1 file changed, 40 deletions(-)
 delete mode 100755 maint/inheritance_pod.pl

diff --git a/maint/inheritance_pod.pl b/maint/inheritance_pod.pl
deleted file mode 100755
index 72ba0ea6..00000000
--- 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;