Merge 'trunk' into 'sybase_insert_bulk'

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

diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm
index 5d7a665..e8c8b4a 100644 (file)
--- a/lib/DBIx/Class.pm
+++ b/lib/DBIx/Class.pm
@@ -30,7 +30,7 @@ $VERSION = '0.08111';
 $VERSION = eval $VERSION; # numify for warning-free dev releases
 
 # what version of sqlt do we require if deploy() without a ddl_dir is invoked
-# when changing also adjust $sqlt_recommends in Makefile.PL
+# when changing also adjust the corresponding author_require in Makefile.PL
 my $minimum_sqlt_version = '0.11002';
 
 sub MODIFY_CODE_ATTRIBUTES {
@@ -75,6 +75,19 @@ sub _attr_cache {
   sub _sqlt_minimum_version { $minimum_sqlt_version };
 }
 
+# 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;