for my $method (qw/ ... /) {
    my $sub = sub { the code ... };
    no strict 'refs';
    *$method = $sub;
  }