package ActivePerl::DocTools::TOC::RDF;
use strict;
use warnings;
use base 'ActivePerl::DocTools::TOC';
my $_section = 1;
my $_subsection = 0;
sub text {
my $text = join("\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(" "," ");
sub pod_separator {
$_subsection++;
return
" \n".
" \n".
" \n";
}
sub pod {
my($self, $file) = @_;
my $key = $^O eq "darwin" ? "pods::$file" : "Pod::$file";
return
" \n".
rdf_li_desc($file, 'Perl/' . $self->{'pods'}->{$key}).
" \n".
" \n";
}
sub rdf_li_desc {
my($name, $link) = @_;
$_subsection++;
return
" \n";
}
#*after_pods = \&end_subhead;
sub after_pods {
$_section++;
return
" \n".
" \n".
"\n";
}
#*before_scripts = text("",@begin_subhead);
sub before_scripts {
return
" \n".
" \n".
" \n";
}
sub script {
my($self, $file) = @_;
return
" \n".
rdf_li_desc($file, 'Perl/' . $self->{'pragmaz'}->{$file}).
" \n".
" \n";
}
#*after_scripts = \&end_subhead;
sub after_scripts {
$_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("");
1;