Changeset 8255 for lang/perl/Catalyst-Model-Jifty-DBI/trunk/lib/Catalyst

Timestamp:

03/21/08 21:33:57 (5 years ago)

Author:

charsbar

Message:

lang/perl/Catalyst-Model-Jifty-DBI: added ->trace and 0.04 -> CPAN

Files:

• lang/perl/Catalyst-Model-Jifty-DBI/trunk/lib/Catalyst/Model/Jifty/DBI.pm (modified) (6 diffs)

lang/perl/Catalyst-Model-Jifty-DBI/trunk/lib/Catalyst/Model/Jifty/DBI.pm

@@ -6 +6 @@
 use base qw( Catalyst::Model Class::Accessor::Fast );
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 use NEXT;
@@ -206 +206 @@
 sub simple_query      { shift->handle->simple_query( @_ ) }
 sub fetch_result      { shift->handle->fetch_result( @_ ) }
+
+sub trace {
+  my ($self, $code) = @_;
+
+  if ( ref $code eq 'CODE' ) {
+    $self->handle->log_sql_statements(1);
+    $self->handle->log_sql_hook( trace => $code );
+  }
+  elsif ( $code ) {
+    require Data::Dump;
+    $self->handle->log_sql_statements(1);
+    $self->handle->log_sql_hook(
+      trace => sub { print STDERR Data::Dump::dump(@_) }
+    );
+  }
+  else {
+    $self->handle->log_sql_statements(0);
+  }
+}
 
 1;
@@ -307 +326 @@
               ->simple_query( $sql_statement, @binds );
 
+When you want to debug (against the default handle):
+
+  $c->model('JDBI')->trace(1);  # start logging
+  $c->model('JDBI')->trace(0);  # stop logging
+
 =head1 BACKWARD INCOMPATIBILITY
 
@@ -335 +359 @@
 =head2 new
 
-creates a model. Database connection may be or not be prepared, according to the number of connect_info. See above for the configuration.
+creates a model. Database connection may or may not be prepared, according to the number of connect_info. See above for the configuration.
 
 =head2 record
@@ -365 +389 @@
 =head2 collection
 
-creates and returns a corresponding (new) Jifty::DBI::Collection object. If you haven't created a Collection class but only a Schema/Record class, this model creates a plain Collection class on the fly. I recommend not to omit the obvious 'Collection' part of the class name, but if you prefer, you can spare that part when you explicitly call model("Model")->collection("Schema") (you can't omit if you follow the model("Model::Schema") convention). Other general usage and caveats are the same as ->record.
+creates and returns a corresponding (new) Jifty::DBI::Collection object. If you haven't created a Collection class but only a Schema/Record class, this model creates a plain Collection class on the fly. I recommend not to omit the obvious 'Collection' part of the class name, but if you prefer, you can spare that when you explicitly call model("Model")->collection("Schema") (you can't omit if you follow the model("Model::Schema") convention). Other general usage and caveats are the same as ->record.
 
   # this works.
@@ -465 +489 @@
 This also is a shortcut to ->handle->disconnect. You can pass an optional hash to specify target database.
 
+=head2 trace
+
+turns on and off the logging of sql statements. If this is set to true, C::M::Jifty::DBI spits the info to STDERR. If you want finer control, give it a code reference.
+
+  $c->model('JDBI')->trace(sub {
+    my ($time, $statement, $binding, $duration, $result) = @_;
+    warn $statement, "\n", @$binding;
+  });
+
+See L<Jifty::DBI::Handle> for details (log_sql_hook / sql_statement_log).
+
 =head1 SEE ALSO