From: Arthur Axel "fREW" Schmidt Date: Wed, 8 Sep 2010 17:23:57 +0000 (+0000) Subject: rename DBIC::Storage::PP and get ready to re-release X-Git-Tag: v1.70~75 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FSQL-Abstract.git;a=commitdiff_plain;h=0d5df7d60d8e2f22e0119d51a7690eca5a6edaed rename DBIC::Storage::PP and get ready to re-release --- diff --git a/Changes b/Changes index 4b42eaa..c024a7b 100644 --- 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 --- 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 --- 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 --- 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