Then just dump the symbol table of your given package either by hand or using Juerd's Devel::GetSymbols. If you want to roll you own something like this ought do the trick

package Foo;

our $VERSION = 0.1;

sub new { bless {}, shift }
sub foo { print "i'm a method of Foo\n" }

package main;

for my $sym (keys %Foo::) {
    print "method - $sym\n" if *{"Foo::$sym"}{CODE};
}

__output__

method - foo
method - new
[download]

HTH

_________
broquaint