Lines Matching full:pod
12 use Pod::Html 1.32;
13 use Pod::Html::Util 1.32 qw(anchorify relativize_url);
17 installhtml - converts a collection of POD pages to HTML format.
28 I<installhtml> converts a collection of POD pages to a corresponding
29 collection of HTML pages. This is used to convert the pod pages found in the
31 converter/installer of POD pages in HTML format. See L<Pod::Html>.)
41 =item B<--podroot> POD search path base directory
43 The base directory to search for all .pod and .pm files to be converted.
46 =item B<--podpath> POD search path
48 The list of directories to search for .pod and .pm files to be converted.
53 Whether or not to convert all .pm and .pod files found in subdirectories
66 =item B<--splithead> POD files to split on =head directive
68 Comma-separated list of pod files to split by the =head directive. The
69 .pod suffix is optional. These files should have names specified
72 =item B<--splititem> POD files to split on =item directive
74 Comma-separated list of all pod files to split by the =item directive. The
75 .pod suffix is optional. I<installhtml> does not do the actual split, rather
82 The directory containing the splitpod program. The default is 'podroot/pod'.
100 ./installhtml --podpath=lib:ext:pod:vms \
104 --splithead=pod/perlipc \
105 --splititem=pod/perlfunc \
124 --podpath - colon-separated list of directories containing .pod and
135 --splithead - comma-separated list of .pod or .pm files to split. will
137 of a pod =head[1-6] directive.
138 --splititem - comma-separated list of .pod or .pm files to split using
141 (\$podroot/pod by default).
150 @podpath = ( "lib" ); # colon-separated list of directories containing .pod
162 $pod2html = "pod/pod2html";
193 $splitpod = "$podroot/pod" unless $splitpod;
214 # convert the pod pages found in @poddirs
222 # now go through and create master indices for each pod we split
229 (my $pod = $dir) =~ s,^.*/,,;
230 $dir .= ".pod" unless $dir =~ /(\.pod|\.pm)$/;
235 $dir =~ /^(.*?)(\.pod|\.pm)?$/sm;
300 (my $pod = $dir) =~ s,^.*/,,;
345 my($pod, $dirname, $filename);
347 # split the files specified in @splithead on =head[1-6] pod directives
349 foreach $pod (@splithead) {
351 $pod =~ s,^([^/]*)$,/$1,;
352 $pod =~ m,(.*)/(.*?)(\.pod)?$,;
354 $filename = "$2.pod";
359 # split the pod
374 foreach my $pod (@splititem) {
376 $pod =~ s,^([^/]*)$,/$1,;
377 $pod =~ m,(.*)/(.*?)(\.pod)?$,;
379 $filename = "$2.pod";
382 push(@$ignore, "$podroot/$dirname.pod");
384 # split the pod
402 # splitpod - splits a .pod file into several smaller .pod files
403 # where a new file is started each time a =head[1-6] pod directive
407 my($pod, $poddir, $htmldir, $splitdirs) = @_;
411 print "splitting $pod\n" if $verbose;
415 open(SPLITIN, '<', $pod) ||
416 die "$0: error opening $pod for input: $!\n";
419 die "$0: error closing $pod: $!\n";
440 $pod =~ s,.*/(.*),$1,; # get the last part of the name
441 my $dir = $pod;
442 $dir =~ s/\.pod//g;
452 # for each section of the file create a separate pod file
467 $file = "$dir/" . anchorify($section) . ".pod";
469 # create the new .pod file
489 # installdir - takes care of converting the .pod and .pm files in the
496 my @podlist; # .pod files to install
511 : s/\.pod$// ? \@podlist
528 foreach my $pod (@podlist) {
530 next if $pod =~ m(/t/); # comes from a test file
531 next if grep($_ eq "$pod.pod", @$ignore);
534 if (grep($_ eq $pod, @pmlist)) {
535 print "$0: Warning both '$podroot/$pod.pod' and "
536 . "'$podroot/$pod.pm' exist, using pod\n";
537 push(@ignore, "$pod.pm");
539 runpod2html("$pod.pod", $doindex);
554 # runpod2html - invokes pod2html to convert a .pod or .pm file to a .html
558 my($pod, $doindex) = @_;
561 $html = $pod;
562 $html =~ s/\.(pod|pm)$/.html/g;
576 print "$podroot/$pod => $htmldir/$html\n" if $verbose;
577 Pod::Html::pod2html(
585 "--infile=$podroot/$pod", "--outfile=$htmldir/$html");