X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDebug%2FPrettyPrint.pm;fp=lib%2FDBIx%2FClass%2FStorage%2FPrettyPrinter.pm;h=1fbedcfc40da5f67493b693ff7e0b23b6c6736d8;hb=0d5df7d60d8e2f22e0119d51a7690eca5a6edaed;hp=d71995f7f862cc83468018d3911ab52c18d15517;hpb=ba0151e5740cfd831a936420c396b5b788a6a410;p=scpubgit%2FQ-Branch.git

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
  }