/[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 932 by dpavlin, Tue Jan 6 00:21:29 2009 UTC
# Line 4  use Moose; Line 4  use Moose;
4  extends 'Frey';  extends 'Frey';
5    
6  use DBI;  use DBI;
 use Moose::Util::TypeConstraints;  
   
 subtype 'dsn'  
 => as 'Str'  
 => where {  
         DBI->parse_dsn( $_ );  
 };  
7    
8  has 'dsn' => (  has 'dsn' => (
9          is => 'ro',          is => 'ro',
# Line 29  has 'query' => ( Line 22  has 'query' => (
22  sub as_sponge {  sub as_sponge {
23          my ( $self ) = @_;          my ( $self ) = @_;
24    
25            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' } );
28    
29            warn "# query: ", $self->query;
30          my $sth = $dbh->prepare( $self->query );          my $sth = $dbh->prepare( $self->query );
31          $sth->execute();          $sth->execute();
32    
Legend:
Removed from v.455  
changed lines
  Added in v.932
  ViewVC Help
Powered by ViewVC 1.1.26