sub new {
    my $class = shift;
    my $self  = bless {}, $class;
    @_ ? $self->init(@_) : $self;
}

sub init {
    my $self = shift;
    # do parameter validation, set attributes
    ...
    # and return the object
    $self;
}