my $instance = new Class::Name; sub print_methods { my ($obj) = @_; my $class = ref $obj; foreach my $name (eval "keys %${class}::") { if ($obj->can($name)) { print "obj can do $name\n"; } } } print_methods($instance);