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

##</code><code>##

sub new
{
    my ($class, $args) = @_;
    return unless $args;
    # ...


##</code><code>##

sub new
{
    my ($class, $args) = @_;
    return unless $args;
    return unless UNIVERSAL::isa( $args, 'HASH' );
    # ...