sub sub2 {
  my ($self) = @_;
  $self->_sub1;
}