for (qw(foo bar)) {
   *{"$_"} = sub { my $self = shift; $self->foobar("$_", @_); };
}