[Bast-commits] r6989 - in DBIx-Class/0.08/trunk: . lib/DBIx/Class/Relationship

[castaway at dev.catalyst.perl.org]

Author: castaway
Date: 2009-07-05 20:00:55 +0000 (Sun, 05 Jul 2009)
New Revision: 6989

Modified:
   DBIx-Class/0.08/trunk/Changes
   DBIx-Class/0.08/trunk/Makefile.PL
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/Accessor.pm
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/BelongsTo.pm
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/CascadeActions.pm
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/HasMany.pm
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/HasOne.pm
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/ManyToMany.pm
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/ProxyMethods.pm
Log:
Added Pod::Inherit use to Makefile.PL at author-time, comments/suggestions as to whether its too "noisy" welcome.


Modified: DBIx-Class/0.08/trunk/Changes
===================================================================
--- DBIx-Class/0.08/trunk/Changes	2009-07-04 18:34:20 UTC (rev 6988)
+++ DBIx-Class/0.08/trunk/Changes	2009-07-05 20:00:55 UTC (rev 6989)
@@ -1,5 +1,8 @@
 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

Modified: DBIx-Class/0.08/trunk/Makefile.PL
===================================================================
--- DBIx-Class/0.08/trunk/Makefile.PL	2009-07-04 18:34:20 UTC (rev 6988)
+++ DBIx-Class/0.08/trunk/Makefile.PL	2009-07-05 20:00:55 UTC (rev 6989)
@@ -42,6 +42,7 @@
 requires 'Sub::Name'                => 0.04;
 
 recommends 'SQL::Translator'        => 0.09004;
+recommends 'Module::Install::Pod::Inherit' => '0.01';
 
 install_script (qw|
     script/dbicadmin
@@ -139,6 +140,10 @@
 
 auto_install();
 
+eval { use Module::Install::Pod::Inherit; };
+
+PodInherit() if(!$@ && $Module::Install::AUTHOR);
+
 WriteAll();
 
 # Re-write META.yml to _exclude_ all forced requires (we do not want to ship this)

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/Accessor.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/Accessor.pm	2009-07-04 18:34:20 UTC (rev 6988)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/Accessor.pm	2009-07-05 20:00:55 UTC (rev 6989)
@@ -6,6 +6,11 @@
 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}) {

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/BelongsTo.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/BelongsTo.pm	2009-07-04 18:34:20 UTC (rev 6988)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/BelongsTo.pm	2009-07-05 20:00:55 UTC (rev 6989)
@@ -7,6 +7,11 @@
 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) = @_;
 

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/CascadeActions.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/CascadeActions.pm	2009-07-04 18:34:20 UTC (rev 6988)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/CascadeActions.pm	2009-07-05 20:00:55 UTC (rev 6989)
@@ -4,6 +4,11 @@
 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;

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/HasMany.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/HasMany.pm	2009-07-04 18:34:20 UTC (rev 6988)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/HasMany.pm	2009-07-05 20:00:55 UTC (rev 6989)
@@ -4,6 +4,11 @@
 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) = @_;
 

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/HasOne.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/HasOne.pm	2009-07-04 18:34:20 UTC (rev 6988)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/HasOne.pm	2009-07-05 20:00:55 UTC (rev 6989)
@@ -4,6 +4,11 @@
 use strict;
 use warnings;
 
+our %_pod_inherit_config = 
+  (
+   class_map => { 'DBIx::Class::Relationship::HasOne' => 'DBIx::Class::Relationship' }
+  );
+
 sub might_have {
   shift->_has_one('LEFT' => @_);
 }

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/ManyToMany.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/ManyToMany.pm	2009-07-04 18:34:20 UTC (rev 6988)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/ManyToMany.pm	2009-07-05 20:00:55 UTC (rev 6989)
@@ -7,6 +7,11 @@
 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) = @_;
 

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/ProxyMethods.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/ProxyMethods.pm	2009-07-04 18:34:20 UTC (rev 6988)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/ProxyMethods.pm	2009-07-05 20:00:55 UTC (rev 6989)
@@ -6,6 +6,11 @@
 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}) {