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