/[Frey]/trunk/lib/Frey/DBI.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/DBI.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 455 by dpavlin, Wed Nov 19 15:28:23 2008 UTC revision 885 by dpavlin, Wed Dec 24 13:49:55 2008 UTC
# Line 29  has 'query' => ( Line 29  has 'query' => (
29  sub as_sponge {  sub as_sponge {
30          my ( $self ) = @_;          my ( $self ) = @_;
31    
32            warn "# dsn: ", $self->dsn;
33          my $dbh = DBI->connect( $self->dsn, '', '', { RaiseError => 1 } ) || die $DBI::errstr;          my $dbh = DBI->connect( $self->dsn, '', '', { RaiseError => 1 } ) || die $DBI::errstr;
34          $dbh->do( qq{ set client_encoding='utf-8' } );          $dbh->do( qq{ set client_encoding='utf-8' } );
35    
36            warn "# query: ", $self->query;
37          my $sth = $dbh->prepare( $self->query );          my $sth = $dbh->prepare( $self->query );
38          $sth->execute();          $sth->execute();
39    
Legend:
Removed from v.455  
changed lines
  Added in v.885
  ViewVC Help
Powered by ViewVC 1.1.26