Add support for Exasol (#15)

Author: jwarlander

lib/URI/exasol.pm

@@ -0,0 +1,23 @@
+package URI::exasol;
+use base 'URI::_odbc';
+our $VERSION = '0.18';
+
+sub default_port { 8563 }
+
+sub _dbi_param_map {
+    my $self = shift;
+    my $host = $self->host;
+    my $port = $self->_port;
+
+    # Just return the DSN if no host or port.
+    return [ DSN => scalar $self->dbname ] unless $host || $port;
+
+    # Fetch the driver from the query params.
+    require URI::QueryParam;
+    return (
+        [ EXAHOST   => $host                        ],
+        [ EXAPORT   => $port || $self->default_port ],
+    );
+}
+
+1;

t/engines.t

@@ -47,6 +47,7 @@ for my $spec (
     [ derby      => 1527,  'derby'     ],
     [ vertica    => 5433,  'vertica'   ],
     [ ldapdb     => undef, 'ldapdb'    ],
+    [ exasol     => 8563,  'exasol'    ],
 ) {
     my ($engine, $port, $canon) = @{ $spec };
     my $prefix = "db:$engine";