sub init
{
    my ($self, $config) = @_;
    @$self{ keys %$config } = values %$config;
    $self->{ sql } = $SQL;
    $self->connect( ) || return;
    return $self;
}