{
    no strict 'refs'
    eval "sub $action { my \$pkg = shift; return(\$pkg->{\"$action\"}); }"
        unless defined &{$action};
}