6 perldata perlsyn perlop perlre perlrun perlfunc perlvar
7 perlsub perlmod perlform
8 perlref perldsc perllol perlobj perltie perlbot perlipc
9 perldebug perldiag perlsec perltrap perlstyle
11 perlembed perlapio perlxs perlxstut perlguts perlcall
13 for (@pods) { s/$/.pod/ }
18 ($_= <<EOPOD2B) =~ s/^\t//gm && print;
22 perltoc - perl documentation table of contents
26 This page provides a brief table of contents for the rest of the Perl
27 documentation set. It is meant to be be quickly scanned or grepped
28 through to locate the proper section you're looking for.
30 =head1 BASIC DOCUMENTATION
36 find \&getpods => qw(../lib ../ext);
40 # Skip .pm files that have corresponding .pod files, and Functions.pm.
41 return if (($tmp = $_) =~ s/\.pm$/.pod/ && -f $tmp);
42 return if ($_ eq '../lib/Pod/Functions.pm');####Used only by pod itself
44 my $file = $File::Find::name;
45 die "tut $name" if $file =~ /TUT/;
46 unless (open (F, "< $_\0")) {
47 warn "bogus <$file>: $!";
48 system "ls", "-l", $file;
52 if ($line =~ /^=head1\s+NAME\b/) {
63 die "no pods" unless @modpods;
66 #($name) = /(\w+)\.p(m|od)$/;
67 $name = path2modname($_);
68 if ($name =~ /^[a-z]/) {
72 # warn "already did $_\n";
80 ($_= <<EOPOD2B) =~ s/^\t//gm && print;
84 =head1 PRAGMA DOCUMENTATION
88 podset(sort @pragmata);
90 ($_= <<EOPOD2B) =~ s/^\t//gm && print;
94 =head1 MODULE DOCUMENTATION
98 podset( @modules[ sort { $modname[$a] cmp $modname[$b] } 0 .. $#modules ] );
100 ($_= <<EOPOD2B) =~ s/^\t//gm;
103 =head1 AUXILIARY DOCUMENTATION
105 Here should be listed all the extra programs' docs, but they
106 don't all have man pages yet:
129 Larry Wall E<lt>F<larry\@wall.org>E<gt>, with the help of oodles
142 if (s/^=head1 (NAME)\s*/=head2 /) {
143 $pod = path2modname($ARGV);
153 print "\n \n\n=head2 ";
155 if ( /^\s*$pod\b/ ) {
163 if (s/^=head1 (.*)/=item $1/) {
167 if (s/^=head2 (.*)/=item $1/) {
169 print "=over\n\n" unless $inhead2;
174 if (s/^=item (.*)\n/$1/) {
175 next if $pod eq 'perldiag';
176 s/^\s*\*\s*$// && next;
180 next if $pod eq 'perlmod' && /^ftp:/;
181 ##print "=over\n\n" unless $initem;
182 print ", " if $initem;
193 print "\n\n=back\n\n";
202 ##print "\n\n=back\n\n";