sub foo {
  my ( $self ) = @_;