eval { $ref->$method() };  # updated: forgot the $method :-(
die $@ if $@ and $@!~/^Undefined subroutine/;

##</code><code>##

$dispatch{$method}->() if $dispatch{$method};