17 lines
276 B
Perl
17 lines
276 B
Perl
package FU::PG 0.1;
|
|
use v5.36;
|
|
use FU::XS;
|
|
|
|
_load_libpq();
|
|
|
|
package FU::PG::conn {
|
|
sub lib_version { FU::PG::lib_version() }
|
|
};
|
|
|
|
package FU::PG::error {
|
|
use overload '""' => sub($e, @) {
|
|
$e->{verbose_message} || "$e->{severity}: $e->{message}\n";
|
|
};
|
|
}
|
|
|
|
1;
|