foreach (keys %{*stash} ) {
    next if (defined $internal{$_} || /^_/);
    my $sub = *{$stash->{$_}}{CODE};
    next unless defined &$sub;    
    push(@methods,$_);
}