my ($meth,@parts)=/.../;
  exists($dispatch{$meth}) and $disptach{$meth}->(@parts);