File Coverage

blib/lib/FU/Pg.pm

Criterion	Covered	Total	%
statement	8	27	29.6
branch	0	4	0.0
condition	0	6	0.0
subroutine	3	8	37.5
pod			n/a
total	11	45	24.4

package FU::Pg 1.4;
use v5.36;
use FU::XS;

_load_libpq();

package FU::Pg::conn {
    sub lib_version { FU::Pg::lib_version() }

    sub SQL {
        require FU::SQL;
        my $s = shift;
        my($sql, $params) = FU::SQL::SQL(@_)->compile(
            placeholder_style => 'pg',
            in_style          => 'pg',
            quote_identifier  => sub { $s->conn->escape_identifier(@_) },
        );
        $s->sql($sql, @$params);
    }

    sub set_type($s, $n, @arg) {
        Carp::confess("Invalid number of arguments") if @arg == 0 || (@arg > 1 && @arg % 2);
        return $s->_set_type($n, $arg[0], $arg[0]) if @arg == 1;
        my %arg = @arg;
        $s->_set_type($n, $arg{send}, $arg{recv});
    }
};

*FU::Pg::txn::SQL = \*FU::Pg::conn::SQL;

# Compat
*FU::Pg::conn::q = \*FU::Pg::conn::sql;
*FU::Pg::txn::q = \*FU::Pg::txn::sql;
*FU::Pg::conn::Q = \*FU::Pg::conn::SQL;
*FU::Pg::txn::Q = \*FU::Pg::txn::SQL;

package FU::Pg::error {
    use overload '""' => sub($e, @) { $e->{full_message} };
}

1;
__END__