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

##</code><code>##

      $self->_bar("do something");