/[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 932 by dpavlin, Tue Jan 6 00:21:29 2009 UTC revision 1133 by dpavlin, Tue Jun 30 15:10:55 2009 UTC
# Line 24  sub as_sponge { Line 24  sub as_sponge {
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 );
# Line 36  sub as_sponge { Line 36  sub as_sponge {
36          };          };
37  }  }
38    
39    __PACKAGE__->meta->make_immutable;
40    no Moose;
41    
42  1;  1;
Legend:
Removed from v.932  
changed lines
  Added in v.1133
  ViewVC Help
Powered by ViewVC 1.1.26