comment on

Update: On closer inspection, I see that it only gives methods for the given object, and not inherited objects. Oh well...

Update 2: As tye aptly points out, there is a method in the Perl debugger 'perl5db.pl' which does what I think you are looking for (the subroutine is called methods_via()).

Normally of course if just prints out the methods it finds. I played around with it, and created a subroutine which is based on it. The new subroutine, find_methods creates a closure which can then be called with the name of your class, or the blessed object itself, which then returns a data structure containing references to lists of methods for each class, starting with the given class (or object), and visiting each parent class from which the given class is a subclass.

Here is the updated code:

use strict;
use warnings;

use lib ".";
use Bah;
use Data::Dumper;

my $bah = Bah->new();

print $bah->toString() . "\n";
$bah->printBah();

# Create anonymous subroutine for generating all methods
my $p_get_methods = find_methods();
my $presults = $p_get_methods->($bah);
printf "Modules = %s\n\n", Dumper($presults);

#
#  find_methods()
#  061226 by liverpole
#  Based on 'methods_via()' from the Perl debugger 'perl5db.pl'.
#
#  Takes 1 argument, a classname (eg. "Bah") or a blessed object (eg. 
+$bah),
#  and returns a hash containing all methods for the given class and a
+ny
#  classes from which it is inherited.  For example:
#
#        {
#           'Bah' => [
#                      'new',
#                      'printBah'
#                    ],
#           'Object' => [
#                         'new',
#                         'test_method',
#                         'toString'
#                       ]
#        };
#
#
sub find_methods {
    my %seen;
    my %methods;

    my $psub = sub {
        my $class = shift;

        # Fix the class name (eg. "Bah=HASH(0x192a324)" => "Bah")
        $class =~ s/=.*//;

        # If we've processed this class already, just quit.
        if ($seen{$class}++) {
            return \%methods;
        }

        no strict;

        # Extract from all the symbols in this class.
        my @syms = sort keys %{"${class}::"};

        # Get entire list of defined subroutines in this class.
        my @subs = grep { defined &{ ${"${class}::"}{$_} } } @syms;

        for my $subname (@subs) {
            # If we printed this already, skip it.
            next if $seen{$subname}++;

            # Save the new method name.
            local $\ = '';
            local $, = '';
            $methods{$class} ||= [ ];
            push @{$methods{$class}}, $subname;
        }

        # Keep going up the tree.  
        # Find all the classes this one is a subclass of.
        #
        my @super = @{"${class}::ISA"};
        for $name (@super) {
            # Crawl up the tree and keep trying to crawl up.
            # Then dump the results into the %methods hash
            #
            my $pnewsub  = find_methods();
            my $pmethods = $pnewsub->($name);
            foreach my $val (values %$pmethods) {
                $methods{$name} ||= [ ];
                # Fixed original line, which created a double
                # array reference:
                #     push @{$methods{$name}}, $val;
                map { push @{$methods{$name}}, $_ } @$val;
            }
        }

        return \%methods;
    };

    return $psub;
}
[download]

Update 3: Fixed doubly-referenced array bug as pointed out below (sorry for that annoyance :-/).

Update 4: This still didn't function quite as expected; please see my later post for a version which, for now, appears to work.

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

In reply to Re: Getting methods existing in a Perl Object! by liverpole
in thread Getting methods existing in a Perl Object! by Ace128

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.