#!/usr/bin/perl
use Devel::Peek qw(CvGV);
use UNIVERSAL::require;

my ($class, $method) = (shift =~ /(.*)->(.*)/);
$class->require;

$stuff= CvGV($class->can($method));
die "Doesn't exist!\n" unless $stuff;
$stuff =~ /\*(.*)::(.*)/;
print "$1->$2\n";