Temporarily backout Pod::Inherit changes

diff --git a/Changes b/Changes
index fd83602..8dc0517 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,8 +1,5 @@
 Revision history for DBIx::Class
 
-        - Added call to Pod::Inherit in Makefile.PL - 
-          currently at author-time only, so we need to add the produced
-          .pod files to the MANIFEST
         - Fixed the has_many prefetch with limit/group deficiency -
           it is now possible to select "top 5 commenters" while
           prefetching all their comments

diff --git a/Makefile.PL b/Makefile.PL
index 044802d..72c7fd3 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -61,7 +61,6 @@ resources 'MailingList' => 'http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/db
 
 my %force_requires_if_author = (
   'Test::Pod::Coverage'       => 1.04,
-  'Module::Install::Pod::Inherit' => 0.01,
   'SQL::Translator'           => 0.09007,
 
   # CDBI-compat related
@@ -136,9 +135,6 @@ EOW
     print "Removing MANIFEST\n";
     unlink 'MANIFEST';
   }
-
-  eval { require Module::Install::Pod::Inherit };
-  Module::Install::Pod::Inherit::PodInherit() if !$@;
 }
 
 auto_install();

diff --git a/lib/DBIx/Class/Relationship/Accessor.pm b/lib/DBIx/Class/Relationship/Accessor.pm
index eb03a3d..c10d4e4 100644 (file)
--- a/lib/DBIx/Class/Relationship/Accessor.pm
+++ b/lib/DBIx/Class/Relationship/Accessor.pm
@@ -6,11 +6,6 @@ use warnings;
 use Sub::Name ();
 use Class::Inspector ();
 
-our %_pod_inherit_config = 
-  (
-   class_map => { 'DBIx::Class::Relationship::Accessor' => 'DBIx::Class::Relationship' }
-  );
-
 sub register_relationship {
   my ($class, $rel, $info) = @_;
   if (my $acc_type = $info->{attrs}{accessor}) {

diff --git a/lib/DBIx/Class/Relationship/BelongsTo.pm b/lib/DBIx/Class/Relationship/BelongsTo.pm
index af68b7b..a4dce6e 100644 (file)
--- a/lib/DBIx/Class/Relationship/BelongsTo.pm
+++ b/lib/DBIx/Class/Relationship/BelongsTo.pm
@@ -7,11 +7,6 @@ package # hide from PAUSE
 use strict;
 use warnings;
 
-our %_pod_inherit_config = 
-  (
-   class_map => { 'DBIx::Class::Relationship::BelongsTo' => 'DBIx::Class::Relationship' }
-  );
-
 sub belongs_to {
   my ($class, $rel, $f_class, $cond, $attrs) = @_;
 

diff --git a/lib/DBIx/Class/Relationship/CascadeActions.pm b/lib/DBIx/Class/Relationship/CascadeActions.pm
index e5afd35..3d5da76 100644 (file)
--- a/lib/DBIx/Class/Relationship/CascadeActions.pm
+++ b/lib/DBIx/Class/Relationship/CascadeActions.pm
@@ -4,11 +4,6 @@ package # hide from PAUSE
 use strict;
 use warnings;
 
-our %_pod_inherit_config = 
-  (
-   class_map => { 'DBIx::Class::Relationship::CascadeActions' => 'DBIx::Class::Relationship' }
-  );
-
 sub delete {
   my ($self, @rest) = @_;
   return $self->next::method(@rest) unless ref $self;

diff --git a/lib/DBIx/Class/Relationship/HasMany.pm b/lib/DBIx/Class/Relationship/HasMany.pm
index 936238a..6bdefd4 100644 (file)
--- a/lib/DBIx/Class/Relationship/HasMany.pm
+++ b/lib/DBIx/Class/Relationship/HasMany.pm
@@ -4,11 +4,6 @@ package # hide from PAUSE
 use strict;
 use warnings;
 
-our %_pod_inherit_config = 
-  (
-   class_map => { 'DBIx::Class::Relationship::HasMany' => 'DBIx::Class::Relationship' }
-  );
-
 sub has_many {
   my ($class, $rel, $f_class, $cond, $attrs) = @_;
 

diff --git a/lib/DBIx/Class/Relationship/HasOne.pm b/lib/DBIx/Class/Relationship/HasOne.pm
index 4c910b8..543649b 100644 (file)
--- a/lib/DBIx/Class/Relationship/HasOne.pm
+++ b/lib/DBIx/Class/Relationship/HasOne.pm
@@ -4,11 +4,6 @@ package # hide from PAUSE
 use strict;
 use warnings;
 
-our %_pod_inherit_config = 
-  (
-   class_map => { 'DBIx::Class::Relationship::HasOne' => 'DBIx::Class::Relationship' }
-  );
-
 sub might_have {
   shift->_has_one('LEFT' => @_);
 }

diff --git a/lib/DBIx/Class/Relationship/ManyToMany.pm b/lib/DBIx/Class/Relationship/ManyToMany.pm
index 07a244a..2f47aab 100644 (file)
--- a/lib/DBIx/Class/Relationship/ManyToMany.pm
+++ b/lib/DBIx/Class/Relationship/ManyToMany.pm
@@ -7,11 +7,6 @@ use warnings;
 use Carp::Clan qw/^DBIx::Class/;
 use Sub::Name ();
 
-our %_pod_inherit_config = 
-  (
-   class_map => { 'DBIx::Class::Relationship::ManyToMany' => 'DBIx::Class::Relationship' }
-  );
-
 sub many_to_many {
   my ($class, $meth, $rel, $f_rel, $rel_attrs) = @_;
 

diff --git a/lib/DBIx/Class/Relationship/ProxyMethods.pm b/lib/DBIx/Class/Relationship/ProxyMethods.pm
index 7b76499..b2cc547 100644 (file)
--- a/lib/DBIx/Class/Relationship/ProxyMethods.pm
+++ b/lib/DBIx/Class/Relationship/ProxyMethods.pm
@@ -6,11 +6,6 @@ use warnings;
 use Sub::Name ();
 use base qw/DBIx::Class/;
 
-our %_pod_inherit_config = 
-  (
-   class_map => { 'DBIx::Class::Relationship::ProxyMethods' => 'DBIx::Class::Relationship' }
-  );
-
 sub register_relationship {
   my ($class, $rel, $info) = @_;
   if (my $proxy_list = $info->{attrs}{proxy}) {