my %dispatch = (
  Foo => \&_foo,
  Bar => \&_bar,
  Baz => \&_baz,
);

sub process {
  my ($self, $thing, $data) = @_;
  my $type   = ref $thing || '';
  my $method = $dispatch{$type} || die "Can't find method ...";
  $self->$method($data);
}