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