Merge 'trunk' into 'sybase_support'

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class.pm

diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm
index 3c36722..530bac2 100644 (file)
--- a/lib/DBIx/Class.pm
+++ b/lib/DBIx/Class.pm
@@ -43,6 +43,19 @@ sub _attr_cache {
   return $@ ? $cache : { %$cache, %$rest };
 }
 
+# Pretty printer for debug messages
+sub _pretty_print {
+
+  require Data::Dumper;
+  local $Data::Dumper::Terse = 1;
+  local $Data::Dumper::Indent = 1;
+  local $Data::Dumper::Useqq = 1;
+  local $Data::Dumper::Quotekeys = 0;
+  local $Data::Dumper::Sortkeys = 1;
+
+  return Data::Dumper::Dumper ($_[1]);
+}
+
 1;
 
 =head1 NAME