while ( my ( $name, $code ) = each %hash ) {
    no strict 'refs';
    *$name = $code;
}

##</code><code>##

if ( my $method = $x->can('blah') ) {
    $x->$method;
}