[svn:DBD-Pg] r11666 - DBD-Pg/trunk

Author: turnstep
Date: Mon Aug 18 19:14:33 2008
New Revision: 11666

Modified:
   DBD-Pg/trunk/Changes
   DBD-Pg/trunk/Pg.pm

Log:
Quick little idea from a tracing discussion. Comments welcome.


Modified: DBD-Pg/trunk/Changes
==============================================================================
--- DBD-Pg/trunk/Changes	(original)
+++ DBD-Pg/trunk/Changes	Mon Aug 18 19:14:33 2008
@@ -1,5 +1,9 @@
 ('GSM' is Greg Sabino Mullane, [email protected])
 
+2.10.0
+
+	- Add the 'DBD' trace setting to output only non-DBI trace messages. [GSM]
+
 2.9.2 Released August 18, 2008 (subversion r11664)
 
 	- Empty Postgres arrays should return empty Perl arrays, not undef.

Modified: DBD-Pg/trunk/Pg.pm
==============================================================================
--- DBD-Pg/trunk/Pg.pm	(original)
+++ DBD-Pg/trunk/Pg.pm	Mon Aug 18 19:14:33 2008
@@ -80,6 +80,7 @@
 	## These two methods are here to allow calling before connect()
 	sub parse_trace_flag {
 		my ($class, $flag) = @_;
+		return 0x7FFFFF00 if $flag eq 'DBD';
 		return 0x01000000 if $flag eq 'pglibpq';
 		return 0x02000000 if $flag eq 'pgstart';
 		return 0x04000000 if $flag eq 'pgend';
@@ -1921,6 +1922,10 @@
   $h->trace($h->parse_trace_flags('SQL|pglibpq'));
   $h->trace($h->parse_trace_flags('1|pgstart'));
 
+  ## Simpler:
+  $h->trace('SQL|pglibpq');
+  $h->trace('1|pgstart');
+
   my $value = DBD::Pg->parse_trace_flag('pglibpq');
   DBI->trace($value);
 
@@ -1950,6 +1955,11 @@
 For maximum portability of output (but with a potential performance 
 hit), use with C<$dbh->{pg_server_prepare} = 0>
 
+=item DBD
+
+Turns on all non-DBI flags, in other words, only the ones that are specific 
+to DBD::Pg (all those below which start with the letters 'pg').
+
 =item pglibpq
 
 Outputs the name of each libpq function (without arguments) immediately