$dispatcher{$code}->($self, $parameter)

##</code><code>##

foo => sub {$self = shift; $self->set_foo(shift); },