my @subs = grep *{$_}{CODE}, keys %{__PACKAGE__ . '::'};