8 perl perlnews perldata perlsyn perlop perlre perlrun perlfunc
9 perlvar perlsub perlmod perlform perllocale perlref perldsc
10 perllol perltoot perlobj perltie perlbot perlipc perldebug
11 perldiag perlsec perltrap perlstyle perlpod perlbook
12 perlembed perlapio perlxs perlxstut perlguts perlcall
15 for (@pods) { s/$/.pod/ }
20 ($_= <<EOPOD2B) =~ s/^\t//gm && output($_);
24 perltoc - perl documentation table of contents
28 This page provides a brief table of contents for the rest of the Perl
29 documentation set. It is meant to be scanned quickly or grepped
30 through to locate the proper section you're looking for.
32 =head1 BASIC DOCUMENTATION
39 find \&getpods => qw(../lib ../ext);
43 # Skip .pm files that have corresponding .pod files, and Functions.pm.
44 return if /(.*)\.pm$/ && -f "$1.pod";
45 my $file = $File::Find::name;
46 return if $file eq '../lib/Pod/Functions.pm'; # Used only by pod itself
48 die "tut $name" if $file =~ /TUT/;
49 unless (open (F, "< $_\0")) {
50 warn "bogus <$file>: $!";
51 system "ls", "-l", $file;
56 if ($line =~ /^=head1\s+NAME\b/) {
67 die "no pods" unless @modpods;
70 #($name) = /(\w+)\.p(m|od)$/;
71 $name = path2modname($_);
72 if ($name =~ /^[a-z]/) {
76 # warn "already did $_\n";
84 ($_= <<EOPOD2B) =~ s/^\t//gm && output($_);
88 =head1 PRAGMA DOCUMENTATION
92 podset(sort @pragmata);
94 ($_= <<EOPOD2B) =~ s/^\t//gm && output($_);
98 =head1 MODULE DOCUMENTATION
102 podset( @modules[ sort { $modname[$a] cmp $modname[$b] } 0 .. $#modules ] );
104 ($_= <<EOPOD2B) =~ s/^\t//gm;
107 =head1 AUXILIARY DOCUMENTATION
109 Here should be listed all the extra programs' documentation, but they
110 don't all have manual pages yet:
133 Larry Wall E<lt>F<larry\@wall.org>E<gt>, with the help of oodles
139 output "\n"; # flush $LINE
146 if (s/^=head1 (NAME)\s*/=head2 /) {
147 $pod = path2modname($ARGV);
150 output "\n \n\n=head2 ";
152 if ( /^\s*$pod\b/ ) {
153 s/$pod\.pm/$pod/; # '.pm' in NAME !?
161 if (s/^=head1 (.*)/=item $1/) {
163 output $_; nl(); next;
165 if (s/^=head2 (.*)/=item $1/) {
167 output "=over\n\n" unless $inhead2;
169 output $_; nl(); next;
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 output ", " if $initem;
200 output "\n\n=back\n\n";
209 ##print "\n\n=back\n\n";
218 my $NEWLINE; # how many newlines have we seen recently
219 my $LINE; # what remains to be printed
222 for (split /(\n)/, shift) {
225 print wrap('', '', $LINE);
233 elsif (/\S/ && length) {