my %subs;
while ( my ($k,$v)=each %{__PACKAGE__ . '::'} ) {
    $subs{$k}=$v if *{$v}{CODE};
}