view release on metacpan or  search on metacpan

perl-doc  view on Meta::CPAN

#!/usr/bin/perl
use lib 'lib';
use strict; use warnings;
use Perldoc;

my ($options, $input_file) = get_options();

if ($options->{version}) {
    warn "This is perl-doc version '$Perldoc::VERSION'\n";
}
elsif ($options->{'kwid-to-html'}) {
    my @args = $input_file
    ? (filepath => $input_file)
    : (filehandle => \*STDIN);
    print Perldoc->kwid_to_html(@args);
}
else {
    warn usage();
}