view release on metacpan or  search on metacpan

lib/CXC/DB/DDL/Util.pm  view on Meta::CPAN

sub db_version( $dbh ) {

    my $dbd = $dbh->{Driver}->{Name};

    return $dbd eq DBD_POSTGRESQL
      ? $dbh->{pg_server_version}
      : $dbh->get_info( $GetInfoType{SQL_DBMS_VER} );
}

1;