sub some_method
  {
    my $self = _self_or_create(shift);
    # ...
  }