use Class::Can;
use Data::Dumper;

my %methods = Class::Can->interrogate( ref $bah );
print Dumper(\%methods);
[download]

$VAR1 = {
          'printBah' => 'Bah',
          'new' => 'Bah',
          'toString' => 'Object'
        };

updated with example