sub in {
  my ($coderef)= shift(@_);
  my ($match)= shift(@_);
  my %dispatch = map { $_ => $coderef } @_;

  if ( exists $dispatch{$match} ) {
    $dispatch->($match);
  }
}