OpenResty::Backend::PLPerl - Pg backend for OpenResty running via PL/Perl

OpenResty documentation Contained in the OpenResty distribution.

Index

Code Index:

NAME

Top

OpenResty::Backend::PLPerl - Pg backend for OpenResty running via PL/Perl

INHERITANCE

Top

    OpenResty::Backend::PLPerl
        ISA OpenResty::Backend::Pg

DESCRIPTION

Top

At the moment this backend is highly experimental and any serious uses are strongly discouraged.

AUTHOR

Top

Agent Zhang (agentzh) <agentzh@yahoo.cn>

SEE ALSO

Top

OpenResty::Backend::Base, OpenResty::Backend::Pg, OpenResty::Backend::PgFarm, OpenResty::Backend::PgMocked, OpenResty.

OpenResty documentation Contained in the OpenResty distribution. 
package OpenResty::Backend::PLPerl;

use strict;
use warnings;

use base 'OpenResty::Backend::Pg';
use OpenResty::Limits;

sub new {
    return bless { user => undef }, $_[0];
}

sub select {
    my ($self, $sql, $opts) = @_;
    my $rv = ::spi_exec_query($sql, $MAX_SELECT_LIMIT) or
        return [];
    my $rows = $rv->{rows} || [];
    unless ($opts->{use_hash}) {
        map { $_ = [values %$_] } @$rows;
    }
    return $rows;
}

sub do {
    my ($self, $sql) = @_;
    my $rv = ::spi_exec_query($sql) or return 0;
    return $rv->{processed};
}

sub quote {
    my $val = pop;
    return undef unless defined $val;
    $val =~ s/\\/\\\\/g;
    $val =~ s/'/''/g;
    "'$val'";
}

sub quote_identifier {
    my $val = pop;
    return undef unless defined $val;
    $val =~ s/\\/\\\\/g;
    $val =~ s/"/""/g;
    qq{"$val"};
}

sub ping { 1; }

1;
__END__