#!/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__