Add YugabyteDB

Its default port is 5433, but since the DBI interface uses DBD::Pg, always
explicitly pass the port in the DBI params, because otherwise DBD::Pg woudl
assume the default was 5432.

Author: theory

Changes

@@ -1,7 +1,7 @@
 Revision history for Perl extension URI::db.
 
 0.20
-      - Added URI::cockroach.
+      - Added URI::cockroach and URI::yugabyte.
 
 0.19  2018-07-19T15:15:04Z
       - Added URI::snowflake.

lib/URI/cockroach.pm

@@ -10,7 +10,7 @@ sub _dbi_param_map {
     my $self = shift;
     return (
         [ host   => scalar $self->host   ],
-        [ port   => scalar $self->port ],
+        [ port   => scalar $self->port   ], # Always pass the port
         [ dbname => scalar $self->dbname ],
     );
 }

lib/URI/yugabyte.pm

@@ -0,0 +1,18 @@
+package URI::yugabyte;
+use base 'URI::_db';
+our $VERSION = '0.20';
+
+sub default_port { 5433 }
+sub dbi_driver   { 'Pg' }
+sub canonical_engine { 'pg' }
+
+sub _dbi_param_map {
+    my $self = shift;
+    return (
+        [ host   => scalar $self->host   ],
+        [ port   => scalar $self->port   ], # Always pass the port
+        [ dbname => scalar $self->dbname ],
+    );
+}
+
+1;

lib/URI/yugabytedb.pm

@@ -0,0 +1,5 @@
+package URI::yugabytedb;
+use base 'URI::yugabyte';
+our $VERSION = '0.20';
+
+1;

t/dbi.t

@@ -448,6 +448,36 @@ for my $spec (
         dbi => [ [host => 'foo'], [port => 123], [dbname => 'try'] ],
         qry => [ foo => 1, foo => 2, lol => 'yes' ],
     },
+    {
+        uri => 'db:yugabyte:',
+        dsn => 'dbi:Pg:port=5433',
+        dbi => [ [host => undef], [port => 5433], [dbname => undef] ],
+        qry => [],
+    },
+    {
+        uri => 'db:yugabyte://xxx:5432',
+        dsn => 'dbi:Pg:host=xxx;port=5432',
+        dbi => [ [host => 'xxx'], [port => 5432], [dbname => undef] ],
+        qry => [],
+    },
+    {
+        uri => 'db:yugabyte://foo:123/try?foo=1&foo=2&lol=yes',
+        dsn => 'dbi:Pg:host=foo;port=123;dbname=try;foo=1;foo=2;lol=yes',
+        dbi => [ [host => 'foo'], [port => 123], [dbname => 'try'] ],
+        qry => [ foo => 1, foo => 2, lol => 'yes' ],
+    },
+    {
+        uri => 'db:yugabytedb:',
+        dsn => 'dbi:Pg:port=5433',
+        dbi => [ [host => undef], [port => 5433], [dbname => undef] ],
+        qry => [],
+    },
+    {
+        uri => 'db:yugabytedb://foo:123/try?foo=1&foo=2&lol=yes',
+        dsn => 'dbi:Pg:host=foo;port=123;dbname=try;foo=1;foo=2;lol=yes',
+        dbi => [ [host => 'foo'], [port => 123], [dbname => 'try'] ],
+        qry => [ foo => 1, foo => 2, lol => 'yes' ],
+    },
 ) {
     my $uri = $spec->{uri};
     ok my $u = URI->new($uri), "URI $uri";

t/engines.t

@@ -51,6 +51,8 @@ for my $spec (
     [ snowflake   => 443,   'snowflake' ],
     [ cockroach   => 26257, 'cockroach' ],
     [ cockroachdb => 26257, 'cockroach' ],
+    [ yugabyte    => 5433,  'pg'        ],
+    [ yugabytedb  => 5433,  'pg'        ],
 ) {
     my ($engine, $port, $canon) = @{ $spec };
     my $prefix = "db:$engine";