view release on metacpan or  search on metacpan

lib/PgSQL.pm  view on Meta::CPAN

	${*$self}{PGUSER} = $args{User} || $ENV{PGUSER} || ${*$self}{DBNAME};
	${*$self}{PGPASS} = $args{Password} || $ENV{PGPASS} || '';
	$self->blocking(0);
	eval { $self->handshake; };
	if ($@) 
	  { 
	    $self->close;
	    warn $@;
	    return undef;
	  }
	$self->setenv();
      }
    $self;
  }


sub handshake
  {
    my $self = shift;
    unless ($self->packetSend($self->startup_packet))
      {

lib/PgSQL.pm  view on Meta::CPAN

	  {
	    next if $self->pqGetnchar($salt, 4);
	    # FIXME, this does not work, I think!
	  }
	$self->sendauth($areq);
	$self->flush;
	last if ($areq == AUTH_REQ_OK);
      }
}

sub setenv
  {
    my $self = shift;
    for my $eo (keys %$EnvironmentOptions)
      {
	my $val = $ENV{$eo};
	if ($val)
	  {
	    my $setQuery = sprintf("SET %s = '%.60s'", $eo->pgName, $val);
	    $setQuery = sprintf("SET %s = default", $eo->pgName)
	      if $val eq "default";