Select Code to Download

sub init
{
...
    $self->connect( ) || return;
    return $self;
}

$self->init($config);

sub new {
    my $class  = shift;
...
        || $class->error($self->error());
}

@$self{ keys %$config } = values %$config;