sub new { my $class = shift; my $self = bless {}, $class; $self->_init; } sub _init { # instance initialization }