Now we can do diag $rs->hri_dump, ain't that nice

diff --git a/t/lib/DBICTest/BaseResultSet.pm b/t/lib/DBICTest/BaseResultSet.pm
index 7269f30..6d9df85 100644 (file)
--- a/t/lib/DBICTest/BaseResultSet.pm
+++ b/t/lib/DBICTest/BaseResultSet.pm
@@ -6,4 +6,8 @@ use warnings;
 
 use base qw/DBIx::Class::ResultSet/;
 
+sub hri_dump {
+  return shift->search ({}, { result_class => 'DBIx::Class::ResultClass::HashRefInflator' });
+}
+
 1;