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);
}

##</code><code>##

multimethod process (Foo $thing, String $data) { ... }

multimethod process (Bar $thing, String $data) { ... }

multimethod process (Baz $thing, String $data) { ... }

##</code><code>##

sub name {
  my ($self, $name) = @_;
  $self->{name} = $name if $name;
  return $self->{name};
}