module type DBI_DRIVER =
  sig
    type connection
    val connect :
      ?host:string ->
      ?port:string ->
      ?user:string -> ?password:string -> string -> connection
    val close : connection -> unit
    val closed : connection -> bool
    val commit : connection -> unit
    val ping : connection -> bool
    val rollback : connection -> unit
  end
module type DBI_POOL =
  sig
    type connection
    val get :
      Netcgi.cgi ->
      ?host:string ->
      ?port:string ->
      ?user:string -> ?password:string -> string -> connection
  end
module DbiPool :
  functor (Dbi_driver : DBI_DRIVER) ->
    sig
      type connection = Dbi_driver.connection
      val get :
        Netcgi.cgi ->
        ?host:string ->
        ?port:string ->
        ?user:string -> ?password:string -> string -> connection
    end