[Module-build-checkins] Module-Build/lib/Module/Build Authoring.pod,1.2,1.3 Base.pm,1.362,1.363

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23059/lib/Module/Build

Modified Files:
	Authoring.pod Base.pm 
Log Message:
Some changes to the way Module::Build itself is bundled up for
distribution: 1) it now autogenerates the listing of actions near the
top of the M::B documentation. 2) it now autogenerates a listing of
get/set accessors that wouldn't otherwise be documented at all. 3) it
now erases any trace of the ModuleBuildBuilder module that does this
stuff, since it's not necessary for people downloading from CPAN to
know anything about it.



Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.362
retrieving revision 1.363
diff -C2 -d -r1.362 -r1.363
*** Base.pm	15 Dec 2004 21:32:46 -0000	1.362
--- Base.pm	18 Dec 2004 20:57:05 -0000	1.363
***************
*** 1414,1417 ****
--- 1414,1426 ----
   Actions defined:
  EOF
+   
+   print $self->_action_listing($actions);
+ 
+   print "\nRun `Build help <action>` for details on an individual action.\n";
+   print "See `perldoc Module::Build` for complete documentation.\n";
+ }
+ 
+ sub _action_listing {
+   my ($self, $actions) = @_;
  
    # Flow down columns, not across rows
***************
*** 1419,1428 ****
    @actions = map $actions[($_ + ($_ % 2) * @actions) / 2],  0..$#actions;
    
    while (my ($one, $two) = splice @actions, 0, 2) {
!     printf("  %-12s                   %-12s\n", $one, $two||'');
    }
!   
!   print "\nRun `Build help <action>` for details on an individual action.\n";
!   print "See `perldoc Module::Build` for complete documentation.\n";
  }
  
--- 1428,1436 ----
    @actions = map $actions[($_ + ($_ % 2) * @actions) / 2],  0..$#actions;
    
+   my $out = '';
    while (my ($one, $two) = splice @actions, 0, 2) {
!     $out .= sprintf("  %-12s                   %-12s\n", $one, $two||'');
    }
!   return $out;
  }
  

Index: Authoring.pod
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Authoring.pod,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Authoring.pod	7 Dec 2004 03:25:53 -0000	1.2
--- Authoring.pod	18 Dec 2004 20:57:05 -0000	1.3
***************
*** 1044,1047 ****
--- 1044,1058 ----
  =back
  
+ =head2 Autogenerated Accessors
+ 
+ In addition to the aforementioned methods, there are also some get/set
+ accessor methods for the following properties:
+ 
+ =over 4
+ 
+ <autogenerated_accessors>
+ 
+ =back
+ 
  
  =head1 SAVING CONFIGURATION INFORMATION