sub dump_subs {
    my $package = shift;
    my @subs = sort grep defined *{$package."::$_"}{"CODE"}, keys %{$package."::};
    for my $isa (@{$package."::ISA"}) {
        push @subs, dump_subs($isa);
    }
    @subs;
}