Package introspection

[FloydATC]

Given a package name, is it possible to somehow get a list of all the subs that exist within that package?

I know I can check for a given sub like this
$sub = $obj->can("print");
but what I'd like is something like
@subnames = $obj->can(); # Just to illustrate, does not work
or even
@subnames = Some::Class::can(); # Just to illustrate, does not work

[jau]

You could use Class::Inspector, for example.

$function_names = Class::Inspector->functions( 'My::Class' );

Or:

$method_names = Class::Inspector->methods( 'My::Class' );

[FloydATC]

Exactly what I was looking for, thank you :-D

[JavaFan]

@subnames = grep {Test->can($_)} keys %Test::;

Although that gets tricky (both false positives and false negatives) in the face of inheritance. (But then, so does your use of can).

[chromatic]

In Moose this is something like:

my @methods = $obj->meta->get_all_methods();

[morgon]

You can also check the symbol table (you won't get any inherited methods then, which may or may not be what you want).

For a package "Hubba", the symbol table can be found in %Hubba:: (the keys of this hash are the symbols) and the subroutines are in the CODE-slot.

So you find all subs defined in a package $package you can simply grep for all symbols that have a defined CODE-slot like this ugly hack:

my @sub_names = grep { defined *{"${package}::$_"}{CODE} } keys %{"${p
+ackage}::"}

[FloydATC]

I'll use Class::Inspector for now as it looks a lot cleaner, but this is good to know and I bet this is exactly how that class works too.

[exussum0]

Class::Mop is my hammer now-a-days.