#!/usr/bin/perl -w
use strict;
use warnings;
use Devel::PerlySense;

{
    my ($module_name, $sub_name) = @ARGV;
    $module_name &&  $sub_name or die("Syntax: $0 MODULE SUB\n");

    my $ps = Devel::PerlySense->new();
    my $class = $ps->classByName(name => $module_name, dirOrigin => ".")
            or die("Could not find module ($module_name)\n");

    my $location = $class->oLocationMethodDoc(method => $sub_name)
            or die("Could not find sub ($sub_name)\n");

    my $pod_text = $location->rhProperty->{text} || "No docs";
    print("$pod_text\n");
}

__END__

##</code><code>##

psdoc.pl HTTP::Response base
DESCRIPTION
    $r->base
        Returns the base URI for this response. The return value will be a
        reference to a URI object.

        The base URI is obtained from one the following sources (in priority
        order):

##</code><code>##

psdoc.pl Devel::CoverX::Covered::Db test_files_covering
METHODS
  test_files_covering($source_file_name, [$sub]) : @test_file_names
    Return list of test files that cover any line in $source_file_name. Or
    if $sub is passed, limit to test files covering that sub.