package ActivePerl::DocTools::TOC::HTML; use strict; use warnings; use base 'ActivePerl::DocTools::TOC'; sub text { my $text = join("\n", @_, ""); return sub { $text }; } # extra info is tedious to collect -- is done in a subclass or something. sub extra { '' }; *header = text ("","

","Perl Core Documentation","

' . _page($self->{pods}->{$key}, $file, $self->extra($file))); } sub after_pods { '

' } # scripts *before_scripts = text("

","Programs
","

' . _page($self->{scripts}->{$file}, $file, $self->extra($file))); } sub after_scripts { '

' } # pragmas *before_pragmas = text("

","Pragmas
","

' . _page($self->{pragmas}->{$file}, $file, $self->extra($file))); } sub after_pragmas { '

' } # libraries *before_libraries = text("

","Modules
","

'); sub library_indent_close { '' } # text('

' . _page($self->{files}->{$file}, $showfile, $self->extra($file))); } sub library_container { my($self, $file, $showfile, $depth) = @_; return qq(
$showfile

' } *footer = text("\n\n\n\n"); sub _page { my($href, $text, $extra) = @_; die "bad arguments to _page: ($href, $text, $extra)" unless defined $href and defined $text; $extra ||= ''; $extra = " $extra" if $extra; # just to make it EXACTLY identical to the old way. return qq'$text$extra\n'; } sub boilerplate { return boiler_header() . boiler_links(); } sub boiler_header { return <<'HERE'; ActivePerl User Guide - Table of Contents

Table of Contents

HERE } sub boiler_links { my $retval = <

Getting Started
- Welcome To ActivePerl
- Release Notes
- Installation Guide
- Getting Started
- ActivePerl 5.6 Change Log
- ActivePerl 5.8 Change Log
- ActivePerl 5.10 Change Log
ActivePerl Components
- Overview
- Using PPM
ActivePerl FAQ
- Introduction
- Availability & Install
- Docs & Support
Windows Scripting

HERE return $retval; } sub PerlEx_links { return "" unless -e "$ActivePerl::DocTools::TOC::dirbase/PerlEx/Welcome.html"; return <PerlEx

HERE } 1;