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]

_________
broquaint