Anansi-Database-PostgreSQL
view release on metacpan or search on metacpan
lib/Anansi/Database/PostgreSQL.pm view on Meta::CPAN
)) {
my $OBJECT = Anansi::Database::PostgreSQL->new();
if($OBJECT->connect(
undef,
DATABASE => 'someDatabase',
PASSWORD => 'somePassword',
USERNAME => 'someUser',
)) {
my $records = $OBJECT->statement(
undef,
INPUT => [
{
DEFAULT => '0',
NAME => 'yetAnotherField',
}
],
SQL => 'SELECT some_field, another_field FROM some_table WHERE yet_another_field = ?;',
yetAnotherField => 123,
);
$OBJECT->disconnect();
if(defined($records)) {
lib/Anansi/Database/PostgreSQL.pm view on Meta::CPAN
if($OBJECT->channel(
'CONNECT',
$component,
DATABASE => 'someDatabase',
PASSWORD => 'somePassword',
USERNAME => 'someUser',
)) {
my $records = $OBJECT->channel(
'STATEMENT',
$component,
INPUT => [
{
DEFAULT => '0',
NAME => 'yetAnotherField',
}
],
SQL => 'SELECT some_field, another_field FROM some_table WHERE yet_another_field = ?;',
yetAnotherField => 123,
);
if(defined($records)) {
if(ref($records) =~ /^ARRAY$/i) {
lib/Anansi/Database/PostgreSQL.pm view on Meta::CPAN
Overrides L<Anansi::DatabaseComponent::connect|Anansi::DatabaseComponent/"connect">.
=cut
sub connect {
my ($self, $channel, %parameters) = @_;
return $self->SUPER::connect(
undef,
INPUT => [
{
INPUT => [
'dbi:Pg:dbname=', {
DEFAULT => $ENV{'PGDATABASE'} || '',
NAME => 'DATABASE',
REF => '',
},
';host=', {
DEFAULT => $ENV{'PGHOST'} || '127.0.0.1',
NAME => 'HOSTNAME',
REF => '',
},
lib/Anansi/Database/PostgreSQL.pm view on Meta::CPAN
REF => '',
}, {
DEFAULT => $ENV{'PGUSER'} || undef,
NAME => 'USERNAME',
REF => '',
}, {
DEFAULT => $ENV{'PGPASSWORD'} || undef,
NAME => 'PASSWORD',
REF => '',
}, {
INPUT => [
{
DEFAULT => 0,
NAME => 'AutoCommit',
REF => '',
}, {
DEFAULT => 1,
NAME => 'PrintError',
REF => '',
}, {
DEFAULT => 1,
( run in 0.420 second using v1.01-cache-2.11-cpan-4e96b696675 )