Mailing List Archive

Author: creamyg
Date: 2008-08-25 20:52:02 -0700 (Mon, 25 Aug 2008)
New Revision: 3763

Modified:
trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm
Log:
Autogenerate POD describing inheritance.


Modified: trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm
===================================================================
--- trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm 2008-08-25 20:16:50 UTC (rev 3762)
+++ trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm 2008-08-26 03:52:02 UTC (rev 3763)
@@ -487,6 +487,22 @@
$methods_pod = join( "", "=head1 METHODS\n\n", @method_docs );
}

+ my $child = $class;
+ my @ancestors;
+ while ( defined( my $parent = $child->get_parent ) ) {
+ push @ancestors, $parent;
+ $child = $parent;
+ }
+ my $inheritance_pod = "";
+ if (@ancestors) {
+ $inheritance_pod = "=head1 INHERITANCE\n\n";
+ $inheritance_pod .= $class->get_class_name;
+ for my $ancestor (@ancestors) {
+ $inheritance_pod .= " isa L<" . $ancestor->get_class_name . ">";
+ }
+ $inheritance_pod .= ".\n";
+ }
+
my $pod = <<END_POD;

# Auto-generated file -- DO NOT EDIT!!!!!
@@ -505,6 +521,8 @@

$methods_pod

+$inheritance_pod
+
=head1 COPYRIGHT

Copyright 2005-2008 Marvin Humphrey


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