8 perl perlfaq perlfaq1 perlfaq2 perlfaq3 perlfaq4 perlfaq5
9 perlfaq6 perlfaq7 perlfaq8 perlfaq9 perldelta perldata
10 perlsyn perlop perlre perlrun perlfunc perlvar perlsub
11 perlmod perlform perllocale perlref perldsc perllol perltoot
12 perlobj perltie perlbot perlipc perldebug perldiag perlsec
13 perltrap perlstyle perlpod perlbook perlembed perlapio perlxs
14 perlxstut perlguts perlcall
17 for (@pods) { s/$/.pod/ }
22 ($_= <<EOPOD2B) =~ s/^\t//gm && output($_);
26 perltoc - perl documentation table of contents
30 This page provides a brief table of contents for the rest of the Perl
31 documentation set. It is meant to be scanned quickly or grepped
32 through to locate the proper section you're looking for.
34 =head1 BASIC DOCUMENTATION
41 find \&getpods => qw(../lib ../ext);
45 # Skip .pm files that have corresponding .pod files, and Functions.pm.
46 return if /(.*)\.pm$/ && -f "$1.pod";
47 my $file = $File::Find::name;
48 return if $file eq '../lib/Pod/Functions.pm'; # Used only by pod itself
50 die "tut $name" if $file =~ /TUT/;
51 unless (open (F, "< $_\0")) {
52 warn "bogus <$file>: $!";
53 system "ls", "-l", $file;
58 if ($line =~ /^=head1\s+NAME\b/) {
69 die "no pods" unless @modpods;
72 #($name) = /(\w+)\.p(m|od)$/;
73 $name = path2modname($_);
74 if ($name =~ /^[a-z]/) {
78 # warn "already did $_\n";
86 ($_= <<EOPOD2B) =~ s/^\t//gm && output($_);
90 =head1 PRAGMA DOCUMENTATION
94 podset(sort @pragmata);
96 ($_= <<EOPOD2B) =~ s/^\t//gm && output($_);
100 =head1 MODULE DOCUMENTATION
104 podset( @modules[ sort { $modname[$a] cmp $modname[$b] } 0 .. $#modules ] );
106 ($_= <<EOPOD2B) =~ s/^\t//gm;
109 =head1 AUXILIARY DOCUMENTATION
111 Here should be listed all the extra programs' documentation, but they
112 don't all have manual pages yet:
135 Larry Wall <F<larry\@wall.org>>, with the help of oodles
141 output "\n"; # flush $LINE
148 if (s/^=head1 (NAME)\s*/=head2 /) {
149 $pod = path2modname($ARGV);
152 output "\n \n\n=head2 ";
154 if ( /^\s*$pod\b/ ) {
155 s/$pod\.pm/$pod/; # '.pm' in NAME !?
163 if (s/^=head1 (.*)/=item $1/) {
165 output $_; nl(); next;
167 if (s/^=head2 (.*)/=item $1/) {
169 output "=over\n\n" unless $inhead2;
171 output $_; nl(); next;
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 output ", " if $initem;
202 output "\n\n=back\n\n";
211 ##print "\n\n=back\n\n";
220 my $NEWLINE; # how many newlines have we seen recently
221 my $LINE; # what remains to be printed
224 for (split /(\n)/, shift) {
227 print wrap('', '', $LINE);
235 elsif (/\S/ && length) {