Gecko [ tsuru-no-tsurugi.tokyo ]

Name	Size	Permission	Date
BlackBox.pm	84.66 KB	-rw-r--r--	2026-06-23 17:11
Checker.pm	5.3 KB	-rw-r--r--	2026-06-23 17:11
Debug.pm	4.52 KB	-rw-r--r--	2026-06-23 17:11
DumpAsText.pm	3.94 KB	-rw-r--r--	2026-06-23 17:11
DumpAsXML.pm	4.45 KB	-rw-r--r--	2026-06-23 17:11
HTML.pm	33.94 KB	-rw-r--r--	2026-06-23 17:11
HTMLBatch.pm	39.7 KB	-rw-r--r--	2026-06-23 17:11
HTMLLegacy.pm	2.69 KB	-rw-r--r--	2026-06-23 17:11
JustPod.pm	9.41 KB	-rw-r--r--	2026-06-23 17:11
LinkSection.pm	4.2 KB	-rw-r--r--	2026-06-23 17:11
Methody.pm	3.49 KB	-rw-r--r--	2026-06-23 17:11
Progress.pm	2.36 KB	-rw-r--r--	2026-06-23 17:11
PullParser.pm	25.13 KB	-rw-r--r--	2026-06-23 17:11
PullParserEndToken.pm	2.82 KB	-rw-r--r--	2026-06-23 17:11
PullParserStartToken.pm	4.05 KB	-rw-r--r--	2026-06-23 17:11
PullParserTextToken.pm	3.28 KB	-rw-r--r--	2026-06-23 17:11
PullParserToken.pm	3.91 KB	-rw-r--r--	2026-06-23 17:11
RTF.pm	23 KB	-rw-r--r--	2026-06-23 17:11
Search.pm	35 KB	-rw-r--r--	2026-06-23 17:11
SimpleTree.pm	4.52 KB	-rw-r--r--	2026-06-23 17:11
Subclassing.pod	32.92 KB	-rw-r--r--	2026-06-23 17:11
Text.pm	4.98 KB	-rw-r--r--	2026-06-23 17:11
TextContent.pm	2.46 KB	-rw-r--r--	2026-06-23 17:11
TiedOutFH.pm	2.69 KB	-rw-r--r--	2026-06-23 17:11
Transcode.pm	736 B	-rw-r--r--	2026-06-23 17:11
TranscodeDumb.pm	2.63 KB	-rw-r--r--	2026-06-23 17:11
TranscodeSmart.pm	715 B	-rw-r--r--	2026-06-23 17:11
XHTML.pm	25.97 KB	-rw-r--r--	2026-06-23 17:11
XMLOutStream.pm	4.56 KB	-rw-r--r--	2026-06-23 17:11

Rename

require 5;
package Pod::Simple::HTMLLegacy;
use strict;

use vars qw($VERSION);
use Getopt::Long;

$VERSION = "5.01";

#--------------------------------------------------------------------------
# 
# This class is meant to thinly emulate bad old Pod::Html
#
# TODO: some basic docs

sub pod2html {
  my @args = (@_);
  
  my( $verbose, $infile, $outfile, $title );
  my $index = 1;
 
  {
    my($help);

my($netscape); # dummy
    local @ARGV = @args;
    GetOptions(
      "help"       => \$help,
      "verbose!"   => \$verbose,
      "infile=s"   => \$infile,
      "outfile=s"  => \$outfile,
      "title=s"    => \$title,
      "index!"     => \$index,

"netscape!"   => \$netscape,
    ) or return bad_opts(@args);
    bad_opts(@args) if @ARGV; # it should be all switches!
    return help_message() if $help;
  }

for($infile, $outfile) { $_ = undef unless defined and length }
  
  if($verbose) {
    warn sprintf "%s version %s\n", __PACKAGE__, $VERSION;
    warn "OK, processed args [@args] ...\n";
    warn sprintf
      " Verbose: %s\n Index: %s\n Infile: %s\n Outfile: %s\n Title: %s\n",
      map defined($_) ? $_ : "(nil)",
       $verbose,     $index,     $infile,     $outfile,     $title,
    ;
    *Pod::Simple::HTML::DEBUG = sub(){1};
  }
  require Pod::Simple::HTML;
  Pod::Simple::HTML->VERSION(3);
  
  die "No such input file as $infile\n"
   if defined $infile and ! -e $infile;

my $pod = Pod::Simple::HTML->new;
  $pod->force_title($title) if defined $title;
  $pod->index($index);
  return $pod->parse_from_file($infile, $outfile);
}

#--------------------------------------------------------------------------

sub bad_opts     { die _help_message();         }
sub help_message { print STDOUT _help_message() }

#--------------------------------------------------------------------------

sub _help_message {

join '',

"[", __PACKAGE__, " version ", $VERSION, qq~]
Usage:  pod2html --help --infile=<name> --outfile=<name>
   --verbose --index --noindex

Options:
  --help         - prints this message.
  --[no]index    - generate an index at the top of the resulting html
                   (default behavior).
  --infile       - filename for the pod to convert (input taken from stdin
                   by default).
  --outfile      - filename for the resulting html file (output sent to
                   stdout by default).
  --title        - title that will appear in resulting html file.
  --[no]verbose  - self-explanatory (off by default).

Note that pod2html is DEPRECATED, and this version implements only
 some of the options known to older versions.
For more information, see 'perldoc pod2html'.
~;

}

1;
__END__

OVER the underpass! UNDER the overpass! Around the FUTURE and BEYOND REPAIR!!