sub foo_bar {
  my $self = shift;
  $self->foo;
  $self->bar;
}