package ActivePerl::DocTools::TOC::RDF; use strict; use warnings; use base ('ActivePerl::DocTools::TOC'); my $_section=1; #section identifier my $_subsection=0; # constructs the simpler methods sub text { my ($text) = join '', map { "$_\n" } @_; return sub { $text }; } #my @begin_subhead = ("",""); my @begin_subhead = (" "); #*end_subhead = text("",""); #*end_subhead = text(" ", " ", ""); *end_subhead = text (" "); *boilerplate = text(< HERE *header = text(<",@begin_subhead); sub before_pods { my ($self, $file) = @_; return " \n". " \n". " \n"; } #*pod_separator = text(" "," "); *pod_separator = sub { $_subsection++; return " \n". " \n". " \n"; }; sub pod { my ($self, $file) = @_; return " \n". rdf_li_desc($file, 'Perl/' . $self->{'podz'}->{"Pod::$file"}). " \n". " \n"; }; sub rdf_li_desc { my ($name, $link) = @_; $_subsection++; my $str = " \n"; return $str; }; #*after_pods = \&end_subhead; sub after_pods { $_section++; return " \n". " \n". "\n"; } #*before_pragmas = text("",@begin_subhead); sub before_pragmas { return " \n". " \n". " \n"; } sub pragma { my ($self, $file) = @_; return " \n". rdf_li_desc($file, 'Perl/' . $self->{'pragmaz'}->{$file}). " \n". " \n"; }; #*after_pragmas = \&end_subhead; sub after_pragmas { $_section++; return " \n". " \n". "\n"; } #*before_libraries = text("",@begin_subhead); sub before_libraries { return " \n". " \n". " \n"; } #*library_indent_open = text(@begin_subhead); #*library_indent_close = \&end_subhead; sub library_indent_open { return " \n". " \n"; } sub library_indent_close { return " \n". " \n". " \n". " \n". " \n". " \n"; } sub library_indent_same { return " \n". " \n"; } sub library { my ($self, $file, $showfile) = @_; return " \n". rdf_li_desc($showfile, 'Perl/' . $self->{'filez'}->{$file}); } sub library_container { my ($self, $file, $showfile) = @_; return " \n". " \n"; } #*after_libraries = \&end_subhead; sub after_libraries { $_section++; return " \n". " \n". "\n"; } *footer = text(""); __END__ =head1 NAME ActivePerl::DocTools::TOC::RDF - Perl extension for Documentation TOC Generation in RDF =head1 SYNOPSIS use ActivePerl::DocTools::TOC::RDF(); my $foo = ActivePerl::DocTools::TOC::RDF->new(); print $x->TOC(); =head1 DESCRIPTION Generates an RDF file. Uses the base class ActivePerl::DocTools::TOC. =head2 EXPORTS Nothing. =head1 AUTHOR Neil Kandalgaonkar, NeilK@ActiveState.com =head1 SEE ALSO L =cut * ActivePerl Components
    * Overview
    * PPM
    * Windows Specifics
       * OLE Browser
       * PerlScript
       * PerlScript Examples
       * Perl for ISAPI
       * PerlEz
    * Windows Specifics
       * Perl for ISAPI
       * Windows 9X/NT/2000
       * Quirks
       * Web Server Config
       * Web programming
       * Programming
       * Modules & Samples
       * Embedding & Extending
       * Using OLE with Perl
* Windows Scripting
    * Active Server Pages
    * Windows Script Host
    * Windows Script Components