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 perlmodlib perlmodinstall perlform perllocale
12 perlref perlreftut perldsc
13 perllol perltoot perlobj perltie perlbot perlipc perldebug
14 perldiag perlsec perltrap perlport perlstyle perlpod perlbook
15 perlembed perlapio perlxs perlxstut perlguts perlcall
19 for (@pods) { s/$/.pod/ }
24 ($_= <<EOPOD2B) =~ s/^\t//gm && output($_);
28 perltoc - perl documentation table of contents
32 This page provides a brief table of contents for the rest of the Perl
33 documentation set. It is meant to be scanned quickly or grepped
34 through to locate the proper section you're looking for.
36 =head1 BASIC DOCUMENTATION
43 find \&getpods => qw(../lib ../ext);
47 # Skip .pm files that have corresponding .pod files, and Functions.pm.
48 return if /(.*)\.pm$/ && -f "$1.pod";
49 my $file = $File::Find::name;
50 return if $file eq '../lib/Pod/Functions.pm'; # Used only by pod itself
52 die "tut $name" if $file =~ /TUT/;
53 unless (open (F, "< $_\0")) {
54 warn "bogus <$file>: $!";
55 system "ls", "-l", $file;
60 if ($line =~ /^=head1\s+NAME\b/) {
71 die "no pods" unless @modpods;
74 #($name) = /(\w+)\.p(m|od)$/;
75 $name = path2modname($_);
76 if ($name =~ /^[a-z]/) {
80 # warn "already did $_\n";
88 ($_= <<EOPOD2B) =~ s/^\t//gm && output($_);
92 =head1 PRAGMA DOCUMENTATION
96 podset(sort @pragmata);
98 ($_= <<EOPOD2B) =~ s/^\t//gm && output($_);
102 =head1 MODULE DOCUMENTATION
106 podset( @modules[ sort { $modname[$a] cmp $modname[$b] } 0 .. $#modules ] );
108 ($_= <<EOPOD2B) =~ s/^\t//gm;
111 =head1 AUXILIARY DOCUMENTATION
113 Here should be listed all the extra programs' documentation, but they
114 don't all have manual pages yet:
137 Larry Wall <F<larry\@wall.org>>, with the help of oodles
143 output "\n"; # flush $LINE
150 if (s/^=head1 (NAME)\s*/=head2 /) {
151 $pod = path2modname($ARGV);
154 output "\n \n\n=head2 ";
156 if ( /^\s*$pod\b/ ) {
157 s/$pod\.pm/$pod/; # '.pm' in NAME !?
165 if (s/^=head1 (.*)/=item $1/) {
167 output $_; nl(); next;
169 if (s/^=head2 (.*)/=item $1/) {
171 output "=over\n\n" unless $inhead2;
173 output $_; nl(); next;
176 if (s/^=item ([^=].*)\n/$1/) {
177 next if $pod eq 'perldiag';
178 s/^\s*\*\s*$// && next;
182 next if $pod eq 'perlmodlib' && /^ftp:/;
183 ##print "=over\n\n" unless $initem;
184 output ", " if $initem;
204 output "\n\n=back\n\n";
213 ##print "\n\n=back\n\n";
222 my $NEWLINE; # how many newlines have we seen recently
223 my $LINE; # what remains to be printed
226 for (split /(\n)/, shift) {
229 print wrap('', '', $LINE);
237 elsif (/\S/ && length) {