You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
66 lines
1.3 KiB
66 lines
1.3 KiB
package ActivePerl::DocTools;
|
|
|
|
use strict;
|
|
|
|
use ActivePerl::DocTools::TOC::HTML;
|
|
use ActivePerl::DocTools::TOC::RDF;
|
|
|
|
our $VERSION = 0.04;
|
|
|
|
our $dirbase = $ActivePerl::DocTools::TOC::dirbase;
|
|
|
|
sub WriteTOC {
|
|
my $fh;
|
|
unless (open $fh, '>', "$dirbase/perltoc.html") {
|
|
warn "Unable to open $dirbase/perltoc.html for writing: $!\n";
|
|
return undef;
|
|
}
|
|
|
|
my $html_toc = ActivePerl::DocTools::TOC::HTML->new();
|
|
print $fh $html_toc->TOC();
|
|
}
|
|
|
|
sub WriteRDF {
|
|
my $rdf_toc = ActivePerl::DocTools::TOC::RDF->new();
|
|
print $rdf_toc->TOC();
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
ActivePerl::DocTools - Perl extension for Documentation TOC Generation
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use ActivePerl::DocTools;
|
|
|
|
ActivePerl::DocTools::WriteTOC();
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Generates the TOC for Perl html docs. Currently used by PPM.
|
|
|
|
Much of the code that used to be in this module has been moved
|
|
out into the ActivePerl::DocTools::TOC packages. However, the
|
|
ActivePerl::DocTools::WriteTOC() function has been preserved for
|
|
compatibility with PPM.
|
|
|
|
=head2 EXPORTS
|
|
|
|
Nothing.
|
|
|
|
=head1 AUTHOR
|
|
|
|
David Sparks, [email protected]
|
|
Neil Kandalgaonkar, [email protected]
|
|
|
|
=head1 SEE ALSO
|
|
|
|
The amazing L<PPM>.
|
|
|
|
L<ActivePerl::DocTools::TOC>
|
|
|
|
=cut
|