[Bast-commits] r5703 - DBIx-Class/0.08/branches/prefetch/t/prefetch

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-03-06 22:10:02 +0000 (Fri, 06 Mar 2009)
New Revision: 5703

Modified:
   DBIx-Class/0.08/branches/prefetch/t/prefetch/multiple_hasmany.t
Log:
Add query to output as well

Modified: DBIx-Class/0.08/branches/prefetch/t/prefetch/multiple_hasmany.t
===================================================================
--- DBIx-Class/0.08/branches/prefetch/t/prefetch/multiple_hasmany.t	2009-03-06 22:06:23 UTC (rev 5702)
+++ DBIx-Class/0.08/branches/prefetch/t/prefetch/multiple_hasmany.t	2009-03-06 22:10:02 UTC (rev 5703)
@@ -149,7 +149,8 @@
 );
 
 use Text::Table;
-my ($cols) = ( ${$rs->as_query}->[0] =~ /SELECT (.+) FROM/);
+my $query = ${$rs->as_query}->[0];
+my ($cols) = ( $query =~ /SELECT (.+) FROM/);
 my $tb = Text::Table->new (map { $_ => \ ' | ' } (split /,\s*/, $cols) );
 
 my $c = $rs->cursor;
@@ -158,7 +159,8 @@
 }
 
 $rs->reset;
-print STDERR Dumper [
+diag Dumper [
+  "\n$query",
   "\n$tb",
   $rs->next
 ];