my $m = $self->{method};
  $self->{funcs}{$m} = $self->can($m);

##</code><code>##

  if (my $code = $self->{funcs}{$self->{method}}) {
    $self->$code(@params);
  }
  else {
    die "...";
  }

##</code><code>##

  $self->{funcs}{$m} = sub { $self->$m(@_) };