use Moose;

has 'why_pass_self' => { is => 'Str', default => 'dunno, is this ok?' };

my $self;

sub BUILD {
  my $s = shift;
  $self = $s;
}

sub _kool_func {
  print $self->why_pass_self;
}

sub kool_func_for_users {
  my $self = shift;
  $self->_kool_func;
}