$self->foo;
    $self->bar;

##</code><code>##

sub foo_bar {
  my $self = shift;
  $self->foo;
  $self->bar;
}
##</code><code>##

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;
    };
  }
}