package Carnet::bench ;
use lib qw(/home/lib);
use strict ;
use warnings ;
use Apache2::Const -compile => qw( OK REDIRECT ) ;
sub handler {
my $r = shift ;
my $dbh = DBI->connect_cached( "DBI:Pg:dbname=xyz", 'john', undef, {
PrintError => 1,
RaiseError => 1,
AutoCommit => 1,
pg_bool_tf => 1
} )
or die "Cannot connect to db" ;
my $sql = 'select name from names' ;
my $data_set = $dbh->selectall_arrayref($sql) ;
my $list ;
for ( @{$data_set} ) {
$list .= '' . $_->[0] . '' ;
}
my $content = '' ;
$r->content_type('text/html; charset=utf-8') ;
print $content ;
return Apache2::Const::OK ;
}
1 ;