24 |
|
|
25 |
warn "# dsn: ", $self->dsn; |
warn "# dsn: ", $self->dsn; |
26 |
my $dbh = DBI->connect( $self->dsn, '', '', { RaiseError => 1 } ) || die $DBI::errstr; |
my $dbh = DBI->connect( $self->dsn, '', '', { RaiseError => 1 } ) || die $DBI::errstr; |
27 |
$dbh->do( qq{ set client_encoding='utf-8' } ); |
$dbh->do( qq{ set client_encoding='utf-8' } ) if $self->dsn =~ m{pg}i; |
28 |
|
|
29 |
warn "# query: ", $self->query; |
warn "# query: ", $self->query; |
30 |
my $sth = $dbh->prepare( $self->query ); |
my $sth = $dbh->prepare( $self->query ); |