Select Code to Download

sub add_action (&\%$) {
  my( $code, $h, $key ) = @_;
...

my %dispatch;
add_action { do_something_with_foo } %dispatch => qr/foo/;