view release on metacpan or  search on metacpan

t/encoders/dbi.t  view on Meta::CPAN

        my $envvar = 'TEST_DRSE_' . uc( $_ );
        exists $ENV{$envvar} ? ( $_ => $ENV{$envvar} ) : ();
    } @dsn_fields;
    $dbd{dbd} = $driver;
    $dbd{table} //= TABLE;

    if ( defined $dbd{dbname} ) {

    push @DBDs, \%dbd;

    $dbd{user} //= getpwuid( $< )->name;

    shift @DBDs if $ENV{TEST_DRSE_ALTERNATE_ONLY};
}
    else {
        bail_out "No dbname set; specify it via the TEST_DRSE_DBNAME env variable" ;
    }

}

@DBDs