5 perl perldata perlsyn perlop perlre perlrun perlfunc perlvar
6 perlsub perlmod perlref perldsc perllol perlobj perltie
7 perlbot perldebug perldiag perlform perlipc perlsec perltrap
8 perlstyle perlxs perlxstut perlguts perlcall perlembed perlpod
11 for (@pods) { s/$/.pod/ }
16 ($_= <<EOPOD2B) =~ s/^\t//gm && print;
20 perltoc - perl documentation table of contents
24 This page provides a brief table of contents for the rest of the Perl
25 documentation set. It is meant to be be quickly scanned or grepped
26 through to locate the proper section you're looking for.
28 =head1 BASIC DOCUMENTATION
34 find \&getpods => qw(../lib ../ext);
37 my $file = $File::Find::name;
38 die "tut $name" if $file =~ /TUT/;
39 unless (open (F, "< $_\0")) {
40 warn "bogus <$file>: $!";
41 system "ls", "-l", $file;
45 if ($line =~ /^=head1\s+NAME\b/) {
56 die "no pods" unless @modpods;
59 #($name) = /(\w+)\.p(m|od)$/;
60 $name = path2modname($_);
61 if ($name =~ /^[a-z]/) {
65 # warn "already did $_\n";
73 ($_= <<EOPOD2B) =~ s/^\t//gm && print;
77 =head1 PRAGMA DOCUMENTATION
81 podset(sort @pragmata);
83 ($_= <<EOPOD2B) =~ s/^\t//gm && print;
87 =head1 MODULE DOCUMENTATION
91 podset( @modules[ sort { $modname[$a] cmp $modname[$b] } 0 .. $#modules ] );
93 ($_= <<EOPOD2B) =~ s/^\t//gm;
96 =head1 AUXILIARY DOCUMENTATION
98 Here should be listed all the extra program's docs, but they
99 don't all have man pages yet:
122 Larry Wall E<lt><F<lwall\@sems.com>E<gt>, with the help of oodles
135 if (s/^=head1 (NAME)\s*/=head2 /) {
136 $pod = path2modname($ARGV);
146 print "\n \n\n=head2 ";
148 if ( /^\s*$pod\b/ ) {
156 if (s/^=head1 (.*)/=item $1/) {
160 if (s/^=head2 (.*)/=item $1/) {
162 print "=over\n\n" unless $inhead2;
167 if (s/^=item (.*)\n/$1/) {
168 next if $pod eq 'perldiag';
169 s/^\s*\*\s*$// && next;
173 next if $pod eq 'perlmod' && /^ftp:/;
174 ##print "=over\n\n" unless $initem;
175 print ", " if $initem;
186 print "\n\n=back\n\n";
195 ##print "\n\n=back\n\n";