view release on metacpan or  search on metacpan

perl-doc  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/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();
}