{
  my $action = "whatever";
  no strict 'refs';
  *{$action} = sub { my $pkg = shift; return $pkg->{$action}; };
}