sub dispatch {
  my $self = shift;
  my $meth = { a=>"first", b=>"second" }->{shift(@_)};
  $self->$meth();
}