get_all_dispatch.pl

gistfile1.txt

use strict;
use warnings;

use Data::Dumper;
use Class::Load;

my $wantclass = shift(@ARGV) or die;
Class::Load::load_class($wantclass);

print Dumper[grep { /^dispatch_/ } get_all_methods($wantclass)];

sub get_all_methods {
    my $class = shift;

    my @methods = ();

    my @class_isa;
    {
        no strict 'refs';
        @class_isa = @{"${class}::ISA"};
    }

    foreach my $parent (@class_isa) {
        push(@methods, get_all_methods($parent));
    }
    push(@methods, get_all_subs($class));

    wantarray ? @methods : \@methods;
}

sub get_all_subs {
    my $class = shift;

    {
        no strict 'refs'; ## no critic
        my $symbol_table = \%{"${class}::"};
        my @subs =
            grep { defined(*{$symbol_table->{$_}}{CODE}) }
            (keys %$symbol_table);

        wantarray ? @subs : \@subs;
    }
}