sub new {
    my ($class, $args) = @_;
    my $self = bless $args => $class;
    $self->init;
    return $self;
}

sub init {
    my ($self) = @_;

    if ($self->{storm_auth_login}) {
        ...
    }

    ... # other initialisation code here

    return;
}