[Bast-commits] r9700 - in SQL-Abstract/1.x/trunk: . lib/DBIx/Class/Storage lib/DBIx/Class/Storage/Debug lib/SQL

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-09-08 18:23:57 +0100 (Wed, 08 Sep 2010)
New Revision: 9700

Added:
   SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/
   SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
Removed:
   SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/PrettyPrinter.pm
Modified:
   SQL-Abstract/1.x/trunk/Changes
   SQL-Abstract/1.x/trunk/Makefile.PL
   SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
Log:
rename DBIC::Storage::PP and get ready to re-release

Modified: SQL-Abstract/1.x/trunk/Changes
===================================================================
--- SQL-Abstract/1.x/trunk/Changes	2010-09-08 03:09:29 UTC (rev 9699)
+++ SQL-Abstract/1.x/trunk/Changes	2010-09-08 17:23:57 UTC (rev 9700)
@@ -2,9 +2,9 @@
 
 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
 ----------------------------

Modified: SQL-Abstract/1.x/trunk/Makefile.PL
===================================================================
--- SQL-Abstract/1.x/trunk/Makefile.PL	2010-09-08 03:09:29 UTC (rev 9699)
+++ SQL-Abstract/1.x/trunk/Makefile.PL	2010-09-08 17:23:57 UTC (rev 9700)
@@ -19,7 +19,7 @@
 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';

Copied: SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm (from rev 9699, SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/PrettyPrinter.pm)
===================================================================
--- SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm	                        (rev 0)
+++ SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm	2010-09-08 17:23:57 UTC (rev 9700)
@@ -0,0 +1,56 @@
+package DBIx::Class::Storage::Debug::PrettyPrint;
+
+use base 'DBIx::Class::Storage::Statistics';
+
+use SQL::Abstract::Tree;
+
+__PACKAGE__->mk_group_accessors( simple => '_sqlat' );
+
+sub new {
+   my $class = shift;
+
+   my $sqlat = SQL::Abstract::Tree->new(shift @_);
+   my $self = $class->next::method(@_);
+
+   $self->_sqlat($sqlat);
+
+   return $self
+}
+
+sub query_start {
+  my $self = shift;
+  my $string = shift;
+
+  my $formatted = $self->_sqlat->format($string);
+
+  $self->next::method($formatted, @_);
+}
+
+1;
+
+=pod
+
+=head1 SYNOPSIS
+
+ package MyApp::Schema;
+
+ use parent 'DBIx::Class::Schema';
+
+ use DBIx::Class::Storage::Debug::PrettyPrint;
+
+ __PACKAGE__->load_namespaces;
+
+ my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
+   profile => 'console',
+ });
+
+ sub connection {
+   my $self = shift;
+
+   my $ret = $self->next::method(@_);
+
+   $self->storage->debugobj($pp);
+
+   $ret
+ }
+

Deleted: SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/PrettyPrinter.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/PrettyPrinter.pm	2010-09-08 03:09:29 UTC (rev 9699)
+++ SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/PrettyPrinter.pm	2010-09-08 17:23:57 UTC (rev 9700)
@@ -1,54 +0,0 @@
-package DBIx::Class::Storage::PrettyPrinter;
-
-use base 'DBIx::Class::Storage::Statistics';
-
-use SQL::Abstract::Tree;
-
-__PACKAGE__->mk_group_accessors( simple => '_sqlat' );
-
-sub new {
-	my $class = shift;
-
-	my $sqlat = SQL::Abstract::Tree->new(shift @_);
-	my $self = $class->next::method(@_);
-
-	$self->_sqlat($sqlat);
-
-	return $self
-}
-
-sub query_start {
-  my $self = shift;
-  my $string = shift;
-
-  my $formatted = $self->_sqlat->format($string);
-
-  $self->next::method($formatted, @_);
-}
-
-1;
-
-=pod
-
-=head1 SYNOPSIS
-
- package MyApp::Schema;
-
- use parent 'DBIx::Class::Schema';
-
- use DBIx::Class::Storage::PrettyPrinter;
-
- __PACKAGE__->load_namespaces;
-
- my $pp = DBIx::Class::Storage::PrettyPrinter->new({ profile => 'console' });
-
- sub connection {
-	my $self = shift;
-
-	my $ret = $self->next::method(@_);
-
-	$self->storage->debugobj($pp);
-
-	$ret
- }
-

Modified: SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2010-09-08 03:09:29 UTC (rev 9699)
+++ SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2010-09-08 17:23:57 UTC (rev 9700)
@@ -15,7 +15,7 @@
 # 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