Help for this page

Select Code to Download

Select or download this

   $self->{$method} = sub { my $self = shift; # etc };

...
     {
       die "Not a method";
   }