[Bast-commits] r6281 - DBIx-Class/0.08/trunk/t/lib/DBICTest

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-05-16 07:34:21 +0000 (Sat, 16 May 2009)
New Revision: 6281

Modified:
   DBIx-Class/0.08/trunk/t/lib/DBICTest/BaseResultSet.pm
Log:
Now we can do diag $rs->hri_dump, ain't that nice

Modified: DBIx-Class/0.08/trunk/t/lib/DBICTest/BaseResultSet.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/DBICTest/BaseResultSet.pm	2009-05-16 07:33:24 UTC (rev 6280)
+++ DBIx-Class/0.08/trunk/t/lib/DBICTest/BaseResultSet.pm	2009-05-16 07:34:21 UTC (rev 6281)
@@ -6,4 +6,8 @@
 
 use base qw/DBIx::Class::ResultSet/;
 
+sub hri_dump {
+  return shift->search ({}, { result_class => 'DBIx::Class::ResultClass::HashRefInflator' });
+}
+
 1;