BEGIN {
  no strict 'refs';
  my %wrappers = (
    foo_bar    => [qw/foo bar/],
    foo_baz    => [qw/foo baz/],
    quux_xyzzy => [qw/quux xyzzy/],
  );
  while (my ($wrapper, $methods) = each %wrappers)
  {
    *{$wrapper} = sub
    {
      my $self = shift;
      $self->$_ foreach @$methods;
    };
  }
}