X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=maint%2Fgen_pod_inherit;h=4164da6c6789a4ff789887fa480c316cf5f95809;hb=399b9455;hp=f5532a81e54c10d8bd60294dfe8623c858de48c9;hpb=a0c96f2461b2a46b242b8432deb0ad88880f73cd;p=dbsrgits%2FDBIx-Class.git diff --git a/maint/gen_pod_inherit b/maint/gen_pod_inherit index f5532a8..4164da6 100755 --- a/maint/gen_pod_inherit +++ b/maint/gen_pod_inherit @@ -3,8 +3,10 @@ use warnings; use strict; +use DBIx::Class::_Util; # load early in case any shims are needed + my $lib_dir = 'lib'; -my $pod_dir = '.generated_pod'; +my $pod_dir = 'maint/.Generated_Pod'; my $result_metapod_fn = "$lib_dir/DBIx/Class/Manual/ResultClass.pod"; @@ -15,7 +17,7 @@ require File::Copy; File::Copy::copy( "$result_metapod_fn.proto", "$result_metapod_fn", -) or die "Copying ResultClass proto pod ($result_metapod_fn.pod) failed: $!"; +) or die "Copying ResultClass proto pod ($result_metapod_fn) failed: $!"; # cleanup END { @@ -27,7 +29,7 @@ require Pod::Inherit; Pod::Inherit->new({ input_files => $lib_dir, - out_dir => $pod_dir, + out_dir => "$pod_dir/lib", force_permissions => 1, class_map => { "DBIx::Class::Relationship::HasMany" => "DBIx::Class::Relationship", @@ -45,6 +47,7 @@ Pod::Inherit->new({ lib/DBIx/Class/DB.pm lib/DBIx/Class/CDBICompat/ lib/DBIx/Class/CDBICompat.pm + lib/DBIx/Class/_TempExtlib/ ), # skip the ::Storage:: family for now qw(