NAME
Eve::Gateway::PgSql - a base class for PostgreSQL data gateways.
SYNOPSIS
# Creating a subclass
package Eve::Gateway::PgSql::Foo;
use parent qw(Eve::Gateway::PgSql);
# Adapting a stored function
sub do_something {
my $self = shift;
if (not exists $self->{'_do_something'}) {
$self->{'_do_something'} = $self->_pgsql->function(
name => 'do_something',
output_list => [{'result_code' => $self->_pgsql->smallint()}]);
}
my $row = $self->_do_something->execute();
return $row->{'result_code'};
}
1;
DESCRIPTION
Eve::Gateway::PgSql is a base class for PostgreSQL data gateways. It houses some generic initialization stuff.
Constructor arguments
pgsql
-
a Eve::Registry::PgSql instance.
METHODS
init()
SEE ALSO
LICENSE AND COPYRIGHT
Copyright 2012 Igor Zinovyev.
This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.