gistfile1.txt

package Some::Thing;
use fields qw(
_private
public
);

sub new {
  my Some::Thing $self = shift;
  unless (ref $self) {
    $self = fields::new($self)
  }
  return $self;
}

1;