Help for this page
%dispatch = ( foo => \&foo, ... { $dispatch{$method}->(); }
package dispatch; sub foo {} ... { $ref->(); }