rename DBIC::Storage::PP and get ready to re-release

diff --git a/Changes b/Changes
index 4b42eaa..c024a7b 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,9 +2,9 @@ Revision history for SQL::Abstract
 
 revision 1.67_02  2010-09-08
 ----------------------------
-    - renamed DBIx::Class::Storage::PrettyPrinter to
+    - rename DBIx::Class::Storage::PrettyPrinter to DBIx::Class::Storage::Debug::PrettyPrint
     - decreased a lot of indentation from ::Tree
-        - cleaned up handling of newlines inside of parens
+    - cleaned up handling of newlines inside of parens
 
 revision 1.67_01  2010-09-06
 ----------------------------

diff --git a/Makefile.PL b/Makefile.PL
index 0e6aec4..8c796f4 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -19,7 +19,7 @@ test_requires "Test::Exception" => 0;
 test_requires "Test::Warn"      => 0;
 test_requires "Storable"        => 0;   # for cloning in tests
 
-no_index package => 'DBIx::Class::Storage::PrettyPrinter';
+no_index package => 'DBIx::Class::Storage::Debug::PrettyPrint';
 no_index directory => 'examples';
 
 tests_recursive 't';

diff --git a/lib/DBIx/Class/Storage/PrettyPrinter.pm b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
similarity index 50%
rename from lib/DBIx/Class/Storage/PrettyPrinter.pm
rename to lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
index d71995f..1fbedcf 100644 (file)
--- a/lib/DBIx/Class/Storage/PrettyPrinter.pm
+++ b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
@@ -1,4 +1,4 @@
-package DBIx::Class::Storage::PrettyPrinter;
+package DBIx::Class::Storage::Debug::PrettyPrint;
 
 use base 'DBIx::Class::Storage::Statistics';
 
@@ -7,14 +7,14 @@ use SQL::Abstract::Tree;
 __PACKAGE__->mk_group_accessors( simple => '_sqlat' );
 
 sub new {
-       my $class = shift;
+   my $class = shift;
 
-       my $sqlat = SQL::Abstract::Tree->new(shift @_);
-       my $self = $class->next::method(@_);
+   my $sqlat = SQL::Abstract::Tree->new(shift @_);
+   my $self = $class->next::method(@_);
 
-       $self->_sqlat($sqlat);
+   $self->_sqlat($sqlat);
 
-       return $self
+   return $self
 }
 
 sub query_start {
@@ -36,19 +36,21 @@ sub query_start {
 
  use parent 'DBIx::Class::Schema';
 
- use DBIx::Class::Storage::PrettyPrinter;
+ use DBIx::Class::Storage::Debug::PrettyPrint;
 
  __PACKAGE__->load_namespaces;
 
- my $pp = DBIx::Class::Storage::PrettyPrinter->new({ profile => 'console' });
+ my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
+   profile => 'console',
+ });
 
  sub connection {
-       my $self = shift;
+   my $self = shift;
 
-       my $ret = $self->next::method(@_);
+   my $ret = $self->next::method(@_);
 
-       $self->storage->debugobj($pp);
+   $self->storage->debugobj($pp);
 
-       $ret
+   $ret
  }
 

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index ee6aca7..19b3225 100644 (file)
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -15,7 +15,7 @@ use Scalar::Util ();
 # GLOBALS
 #======================================================================
 
-our $VERSION  = '1.67_01';
+our $VERSION  = '1.67_02';
 
 # This would confuse some packagers
 $VERSION = eval $VERSION if $VERSION =~ /_/; # numify for warning-free dev releases