[Bast-commits] r7758 - in DBIx-Class/0.08/branches/sybase_bulkinsert_support: . lib/DBIx lib/DBIx/Class/Storage lib/DBIx/Class/Storage/DBI

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-10-03 19:46:56 +0000 (Sat, 03 Oct 2009)
New Revision: 7758

Modified:
   DBIx-Class/0.08/branches/sybase_bulkinsert_support/Makefile.PL
   DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class.pm
   DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class/Storage/DBI.pm
   DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class/Storage/DBI/Sybase.pm
Log:
remove _pretty_print

Modified: DBIx-Class/0.08/branches/sybase_bulkinsert_support/Makefile.PL
===================================================================
--- DBIx-Class/0.08/branches/sybase_bulkinsert_support/Makefile.PL	2009-10-03 19:16:22 UTC (rev 7757)
+++ DBIx-Class/0.08/branches/sybase_bulkinsert_support/Makefile.PL	2009-10-03 19:46:56 UTC (rev 7758)
@@ -45,6 +45,7 @@
 requires 'SQL::Abstract'            => '1.60';
 requires 'SQL::Abstract::Limit'     => '0.13';
 requires 'Sub::Name'                => '0.04';
+requires 'Data::Dumper::Concise'    => '1.000';
 
 my %replication_requires = (
   'Moose',                    => '0.87',

Modified: DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class/Storage/DBI/Sybase.pm
===================================================================
--- DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class/Storage/DBI/Sybase.pm	2009-10-03 19:16:22 UTC (rev 7757)
+++ DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class/Storage/DBI/Sybase.pm	2009-10-03 19:46:56 UTC (rev 7758)
@@ -9,8 +9,9 @@
 /;
 use mro 'c3';
 use Carp::Clan qw/^DBIx::Class/;
-use List::Util ();
-use Sub::Name ();
+use List::Util();
+use Sub::Name();
+use Data::Dumper::Concise();
 
 __PACKAGE__->mk_group_accessors('simple' =>
     qw/_identity _blob_log_on_update _writer_storage _is_extra_storage
@@ -779,7 +780,7 @@
 
       $self->throw_exception(
           "Could not find row in table '$table' for blob update:\n"
-        . $self->_pretty_print (\%where)
+        . Data::Dumper::Concise::Dumper (\%where)
       );
     }
 

Modified: DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class/Storage/DBI.pm	2009-10-03 19:16:22 UTC (rev 7757)
+++ DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class/Storage/DBI.pm	2009-10-03 19:46:56 UTC (rev 7758)
@@ -13,6 +13,7 @@
 use DBIx::Class::Storage::Statistics;
 use Scalar::Util();
 use List::Util();
+use Data::Dumper::Concise();
 
 # what version of sqlt do we require if deploy() without a ddl_dir is invoked
 # when changing also adjust the corresponding author_require in Makefile.PL
@@ -1438,7 +1439,7 @@
 
     $self->throw_exception(sprintf "%s for populate slice:\n%s",
       ($tuple_status->[$i][1] || $err),
-      $self->_pretty_print ({
+      Data::Dumper::Concise::Dumper({
         map { $cols->[$_] => $data->[$i][$_] } (0 .. $#$cols)
       }),
     );

Modified: DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class.pm
===================================================================
--- DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class.pm	2009-10-03 19:16:22 UTC (rev 7757)
+++ DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class.pm	2009-10-03 19:46:56 UTC (rev 7758)
@@ -43,19 +43,6 @@
   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