sub _bar {
      my $self = shift;
      ...
  }