view release on metacpan or  search on metacpan

bin/autodoc  view on Meta::CPAN

$opt = 'pod' if $options{p};
$opt = 'pod' if $options{H};
$opt = 'pod' if $options{m};

$opt ||= 'wide';

my $api = $my_app->new;

if ($options{H}) {
    my $pod2html = "pod2html --backlink --css http://st.pimg.net/tucs/style.css?3";
    open STDOUT, "| $pod2html" or die "Can't fork: $!";
    $api->autodoc($opt);
    close STDOUT or die "Can't close: $!";
}
elsif ($options{m}) {
    my $pod2markdown = "pod2markdown --html-encode-chars 1";
    open STDOUT, "| $pod2markdown" or die "Can't fork: $!";
    $api->autodoc($opt);
    close STDOUT or die "Can't close: $!";
}