—

              
#!/usr/bin/perl
use strict;
use warnings;
use Pod::Server 'On::Continuity';
use Getopt::Long;
my %opts = (
  port => 8088,
);
my $C = \%Pod::Server::CONFIG;
GetOptions(
  $C,
  "background_color|bg=s",
  "foreground_color|fg=s",
  "pre_background_color|pbg=s",
  "pre_foreground_color|pfg=s",
  "code_foreground_color|cfg=s",
  "a_foreground_color|afg=s",
  "a_hover_foreground_color|ahfg=s",
  "font_size=s",
  "sidebar|s=s",
  "first|f=s",
  "vim|v=s",
  "vim_comment=s",
  "vim_constant=s",
  "vim_identifier=s",
  "vim_statement=s",
  "vim_preproc=s",
  "vim_type=s",
  "vim_special=s",
  "vim_underlined=s",
  "vim_error_bg=s",
  "vim_error_fg=s",
  "vim_todo_bg=s",
  "vim_todo_fg=s",
  "title|t=s",
  "port|p=i",
  "help|h",
);
if ($C->{help}) {
print qq|Start a web server that serves locally installed perl documentation.
Usage: pod_server [OPTION]...
Options:
  -p,    --port NUM                  Port for web server (defaults to 8088)
  -t,    --title TITLE               Base title for pages (defaults to '$C->{title}')
  --font_size SIZE                   Font size (defaults to '$C->{font_size}') 
  -bg,   --background_color COLOR           (defaults to '$C->{background_color}') 
  -fg,   --foreground_color COLOR           (defaults to '$C->{foreground_color}') 
  -pbg,  --pre_background_color COLOR       (defaults to '$C->{pre_background_color}') 
  -pfg,  --pre_foreground_color COLOR       (defaults to '$C->{pre_foreground_color}') 
  -cfg,  --code_foreground_color COLOR      (defaults to '$C->{code_foreground_color}') 
  -afg,  --a_foreground_color COLOR         (defaults to '$C->{a_foreground_color}') 
  -ahfg, --a_hover_foreground_color COLOR   (defaults to '$C->{a_hover_foreground_color}') 
  --vim_comment COLOR                (defaults to '$C->{vim_comment}')
  --vim_constant COLOR               (defaults to '$C->{vim_constant}')
  --vim_identifier COLOR             (defaults to '$C->{vim_identifier}')
  --vim_statement COLOR              (defaults to '$C->{vim_statement}')
  --vim_preproc COLOR                (defaults to '$C->{vim_preproc}')
  --vim_type COLOR                   (defaults to '$C->{vim_type}')
  --vim_special COLOR                (defaults to '$C->{vim_special}')
  --vim_underlined COLOR             (defaults to '$C->{vim_underlined}')
  --vim_error_bg COLOR               (defaults to '$C->{vim_error_bg}')
  --vim_error_fg COLOR               (defaults to '$C->{vim_error_fg}')
  --vim_todo_bg COLOR                (defaults to '$C->{vim_todo_bg}')
  --vim_todo_fg COLOR                (defaults to '$C->{vim_todo_fg}')
  -s, --sidebar POSITION             Sidebar on 'left' or 'right'?
                                     (defaults to '$C->{sidebar}')
  -f, --first MODULE                 First POD you see in framed mode
                                     (defaults to '$C->{first}')
  -v, --vim BOOLEAN                  Syntax highlight source code with vim?
                                     Set to "0" to disable.
                                     (defaults to '$C->{vim}')
  -h, --help                         This help message
Examples:
  Run in "daemonized" mode:
    ( pod_server > /dev/null 2>&1 ) &
  Use a light colored theme:
    pod_server -bg '#fff' -fg '#222' -cfg '#224' -pbg '#223' -afg '#48f' -ahfg '#248'
  Use a red theme:
    pod_server -bg '#100' -pbg '#211' -afg '#f44' -ahfg '#fcc'
|;
exit 0;
}
if ($C->{port}) {
  $opts{port} = $C->{port};
}
Pod::Server->init;
Pod::Server->continue(%opts);
HideShow 115 lines of Pod
=head1 NAME
pod_server - start a web server that serves locally installed perl docs
=head1 SYNOPSIS
Usage:
  pod_server [OPTION]...
Run in "daemonized" mode:
  ( pod_server > /dev/null 2>&1 ) &
Use a light colored theme:
  pod_server -bg '#fff' -fg '#222' -cfg '#224' -pbg '#223' -afg '#48f' -ahfg '#248'
Use a red theme:
  pod_server -bg '#100' -pbg '#211' -afg '#f44' -ahfg '#fcc'
=head1 DESCRIPTION
This script has been provided to make it easy to start Pod::Server.  It's
name is a homage to C<gem_server> from the Ruby world.
=head1 OPTIONS
=over 4
=item -p, --port NUM
This is the port that the web server should listen on.
=item -t, --title TITLE
This is the base title of the pages.
=item --font_size SIZE
This is the font size for the text
=item -bg, --background_color COLOR
=item -fg, --foreground_color COLOR
=item -pbg, --pre_background_color COLOR
=item -pfg, --pre_foreground_color COLOR
=item -cfg, --code_foreground_color COLOR
=item -afg, --a_foreground_color COLOR
=item -ahfg, --a_hover_foreground_color COLOR
=item --vim_comment COLOR
=item --vim_constant COLOR
=item --vim_identifier COLOR
=item --vim_statement COLOR
=item --vim_preproc COLOR
=item --vim_type COLOR
=item --vim_special COLOR
=item --vim_underlined COLOR
=item --vim_error_bg COLOR
=item --vim_error_fg COLOR
=item --vim_todo_bg COLOR
=item --vim_todo_fg COLOR
I hope all these colors are self-explanatory.  The color argument should
be expressed in terms that CSS understands.  For example:
  #301
  #ffffff
  rgb(128,230,255)
  blue
=item -s, --sidebar POSITION
When viewing POD in the optional framed mode, you may choose to put the
sidebar on the 'left' or the 'right'.
=item -f, --first MODULE
When you enter framed mode, you get to see this POD first.
=item -v, --vim BOOLEAN
If this setting is true, vim will be used to syntax highlight the
source code view.  Set this to "0" to disable vim's syntax highlighting.
=item -h, --help
Display the useful help message.
=back
=head1 AUTHOR
John BEPPU E<lt>beppu@cpan.orgE<gt>
=cut