Mailing List Archive

Author: creamyg
Date: 2008-07-29 14:31:29 -0700 (Tue, 29 Jul 2008)
New Revision: 3663

Modified:
trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm
Log:
Make POD appear at the correct location for Boilerplater classes defined in
non-canonical locations.


Modified: trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm
===================================================================
--- trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm 2008-07-29 20:15:13 UTC (rev 3662)
+++ trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm 2008-07-29 21:31:29 UTC (rev 3663)
@@ -324,7 +324,11 @@
my $pod = _gen_class_pod( $self, $class, $pod_args );

# Compare against existing file; rewrite if changed.
- my $pod_file_path = $class->file_path( $args{lib_dir}, ".pod" );
+ my $pod_file_path
+ = catfile( $args{lib_dir}, split( '::', $class->get_class_name ) )
+ . ".pod";
+
+ $class->file_path( $args{lib_dir}, ".pod" );
my $existing = "";
if ( -e $pod_file_path ) {
open( my $pod_fh, "<", $pod_file_path )


_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits