Perldoc
view release on metacpan or search on metacpan
12345678910111213141516171819#!/usr/bin/perl
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
);
Perldoc->kwid_to_html(
@args
);
}
else
{
warn
usage();
}
( run in 0.224 second using v1.01-cache-2.11-cpan-dcdd9aafbe2 )