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) = @_;
|
