Help for this page

Select Code to Download


  1. or download this
      my $m = $self->{method};
      $self->{funcs}{$m} = $self->can($m);
    
  2. or download this
      if (my $code = $self->{funcs}{$self->{method}}) {
        $self->$code(@params);
      }
      else {
        die "...";
      }
    
  3. or download this
      $self->{funcs}{$m} = sub { $self->$m(@_) };