From: Jess Robinson Date: Sun, 5 Jul 2009 20:00:55 +0000 (+0000) Subject: Added Pod::Inherit use to Makefile.PL at author-time, comments/suggestions as to... X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=65d08642518d29e1a0fa5a426a559558ec82a1a9;p=dbsrgits%2FDBIx-Class-Historic.git Added Pod::Inherit use to Makefile.PL at author-time, comments/suggestions as to whether its too "noisy" welcome. --- diff --git a/Changes b/Changes index 8dc0517..fd83602 100644 --- a/Changes +++ b/Changes @@ -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 diff --git a/Makefile.PL b/Makefile.PL index 72c7fd3..b28f992 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -42,6 +42,7 @@ requires 'SQL::Abstract::Limit' => 0.13; 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 @@ EOW 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) diff --git a/lib/DBIx/Class/Relationship/Accessor.pm b/lib/DBIx/Class/Relationship/Accessor.pm index c10d4e4..eb03a3d 100644 --- a/lib/DBIx/Class/Relationship/Accessor.pm +++ b/lib/DBIx/Class/Relationship/Accessor.pm @@ -6,6 +6,11 @@ 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 a4dce6e..af68b7b 100644 --- a/lib/DBIx/Class/Relationship/BelongsTo.pm +++ b/lib/DBIx/Class/Relationship/BelongsTo.pm @@ -7,6 +7,11 @@ 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 3d5da76..e5afd35 100644 --- a/lib/DBIx/Class/Relationship/CascadeActions.pm +++ b/lib/DBIx/Class/Relationship/CascadeActions.pm @@ -4,6 +4,11 @@ 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 6bdefd4..936238a 100644 --- a/lib/DBIx/Class/Relationship/HasMany.pm +++ b/lib/DBIx/Class/Relationship/HasMany.pm @@ -4,6 +4,11 @@ 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 543649b..4c910b8 100644 --- a/lib/DBIx/Class/Relationship/HasOne.pm +++ b/lib/DBIx/Class/Relationship/HasOne.pm @@ -4,6 +4,11 @@ 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 2f47aab..07a244a 100644 --- a/lib/DBIx/Class/Relationship/ManyToMany.pm +++ b/lib/DBIx/Class/Relationship/ManyToMany.pm @@ -7,6 +7,11 @@ 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 b2cc547..7b76499 100644 --- a/lib/DBIx/Class/Relationship/ProxyMethods.pm +++ b/lib/DBIx/Class/Relationship/ProxyMethods.pm @@ -6,6 +6,11 @@ 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}) {