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);
38 # Skip .pm files that have corresponding .pod files, and Functions.pm.
39 return if (($tmp = $_) =~ s/\.pm$/.pod/ && -f $tmp);
40 return if ($_ eq '../lib/Pod/Functions.pm');####Used only by pod itself
42 my $file = $File::Find::name;
43 die "tut $name" if $file =~ /TUT/;
44 unless (open (F, "< $_\0")) {
45 warn "bogus <$file>: $!";
46 system "ls", "-l", $file;
50 if ($line =~ /^=head1\s+NAME\b/) {
61 die "no pods" unless @modpods;
64 #($name) = /(\w+)\.p(m|od)$/;
65 $name = path2modname($_);
66 if ($name =~ /^[a-z]/) {
70 # warn "already did $_\n";
78 ($_= <<EOPOD2B) =~ s/^\t//gm && print;
82 =head1 PRAGMA DOCUMENTATION
86 podset(sort @pragmata);
88 ($_= <<EOPOD2B) =~ s/^\t//gm && print;
92 =head1 MODULE DOCUMENTATION
96 podset( @modules[ sort { $modname[$a] cmp $modname[$b] } 0 .. $#modules ] );
98 ($_= <<EOPOD2B) =~ s/^\t//gm;
101 =head1 AUXILIARY DOCUMENTATION
103 Here should be listed all the extra program's docs, but they
104 don't all have man pages yet:
127 Larry Wall E<lt>F<lwall\@sems.com>E<gt>, with the help of oodles
140 if (s/^=head1 (NAME)\s*/=head2 /) {
141 $pod = path2modname($ARGV);
151 print "\n \n\n=head2 ";
153 if ( /^\s*$pod\b/ ) {
161 if (s/^=head1 (.*)/=item $1/) {
165 if (s/^=head2 (.*)/=item $1/) {
167 print "=over\n\n" unless $inhead2;
172 if (s/^=item (.*)\n/$1/) {
173 next if $pod eq 'perldiag';
174 s/^\s*\*\s*$// && next;
178 next if $pod eq 'perlmod' && /^ftp:/;
179 ##print "=over\n\n" unless $initem;
180 print ", " if $initem;
191 print "\n\n=back\n\n";
200 ##print "\n\n=back\n\n";