[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.366,1.367

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

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

Modified Files:
	Base.pm 
Log Message:
Let a couple HTML-building params be overridable

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.366
retrieving revision 1.367
diff -C2 -d -r1.366 -r1.367
*** Base.pm	26 Dec 2004 05:10:37 -0000	1.366
--- Base.pm	27 Dec 2004 04:30:01 -0000	1.367
***************
*** 529,532 ****
--- 529,534 ----
  __PACKAGE__->add_property(recurse_into => []);
  __PACKAGE__->add_property(build_class => 'Module::Build');
+ __PACKAGE__->add_property(html_css => ($^O =~ /Win32/) ? 'Active.css' : '');
+ __PACKAGE__->add_property(html_backlink => '__top');
  __PACKAGE__->add_property($_) for qw(
     base_dir
***************
*** 1878,1892 ****
    }
    
    foreach my $pod (keys %$pods){
      $self->_htmlify_pod(
  			path => $pod,
  			rel_path => $pods->{$pod},
! 			htmldir => $html,
! 			backlink => '__top',
! 			css => ($^O =~ /Win32/) ? 'Active.css' : '',
  		       );
    }
  }
  
  sub _htmlify_pod {
    my ($self, %args) = @_;
--- 1880,1900 ----
    }
    
+   my %opts = (
+ 	      css => $self->html_css,
+ 	      backlink => $self->html_backlink,
+ 	      htmldir => $html,
+ 	     );
+ 
    foreach my $pod (keys %$pods){
      $self->_htmlify_pod(
  			path => $pod,
  			rel_path => $pods->{$pod},
! 			%opts,
  		       );
    }
  }
  
+ # The distinction here between htmlify_pods() and _htmlify_pod() is a
+ # little silly.
  sub _htmlify_pod {
    my ($self, %args) = @_;