view release on metacpan or  search on metacpan

script/elide-pod  view on Meta::CPAN

            default => 9,
        },
    },
};
sub elide_pod {
    require Pod::Elide;

    my %args = @_;
    my $pod_file = $args{pod_file};

    return [404, "No such file"] unless (-f $pod_file) || $pod_file eq '-';
    my $pod = do {
        open my $fh, $pod_file
            or return [500, "Can't open file '$pod_file': $!"];
        local $/;
        scalar <$fh>;
    };

    return [
        200, "OK",
        Pod::Elide::elide(

script/podless  view on Meta::CPAN

    require Module::Path::More;

    my %args = @_;
    my $pod = $args{pod};
    my $ppath = Module::Path::More::module_path(
        module => $pod, find_pm=>0, find_pmc=>0, find_pod=>1, find_prefix=>0);
    if (defined $ppath) {
        system "less", $ppath;
        [200, "OK"];
    } else {
        [404, "Can't find pod $pod"];
    }
}

Perinci::CmdLine::Any->new(
    url => '/main/podless',
)->run;

# ABSTRACT: Show Perl POD source code with `less`
# PODNAME: podless