From: Robert Bohne <rbo@cpan.org>
Date: Thu, 14 Oct 2010 07:25:27 +0000 (+0200)
Subject: Format source code, use spaces instead of tabs
X-Git-Tag: 0.07003~41
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ceb009d3c54726d2089a8a1345220728d4e2e7ef;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

Format source code, use spaces instead of tabs
---

diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm
index 50b4782..b261921 100644
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -1782,28 +1782,25 @@ sub _make_pod {
     } elsif ( $method eq 'add_columns' ) {
         $self->_pod( $class, "=head1 ACCESSORS" );
         my $col_counter = 0;
-	my @cols = @_;
+        my @cols = @_;
         while( my ($name,$attrs) = splice @cols,0,2 ) {
-	    $col_counter++;
+            $col_counter++;
             $self->_pod( $class, '=head2 ' . $name  );
-	    $self->_pod( $class,
-			 join "\n", map {
-			     my $s = $attrs->{$_};
-			     $s = !defined $s         ? 'undef'          :
-                                  length($s) == 0     ? '(empty string)' :
-                                  ref($s) eq 'SCALAR' ? $$s :
-                                  ref($s)             ? dumper_squashed $s :
-                                  looks_like_number($s) ? $s :
-                                                        qq{'$s'}
-                                  ;
-
-			     "  $_: $s"
-			 } sort keys %$attrs,
-		       );
-
-	    if (my $comment = $self->__column_comment($self->{_class2table}{$class}, $col_counter)) {
-		$self->_pod( $class, $comment );
-	    }
+            $self->_pod( $class,
+                join "\n", map {
+                    my $s = $attrs->{$_};
+                    $s = !defined $s          ? 'undef'             :
+                        length($s) == 0       ? '(empty string)'    :
+                        ref($s) eq 'SCALAR'   ? $$s                 :
+                        ref($s)               ? dumper_squashed $s  :
+                        looks_like_number($s) ? $s                  : qq{'$s'};
+
+                    "  $_: $s"
+                 } sort keys %$attrs,
+            );
+            if (my $comment = $self->__column_comment($self->{_class2table}{$class}, $col_counter)) {
+                $self->_pod( $class, $comment );
+            }
         }
         $self->_pod_cut( $class );
     } elsif ( $method =~ /^(belongs_to|has_many|might_have)$/ ) {
diff --git a/t/14ora_common.t b/t/14ora_common.t
index 294b1e5..c8ee80c 100644
--- a/t/14ora_common.t
+++ b/t/14ora_common.t
@@ -74,7 +74,7 @@ my $tester = dbixcsl_common_tests->new(
         'binary_double' => { data_type => 'double precision', original => { data_type => 'binary_double' } },
 
         # these are not mentioned in the summary chart, must be aliased
-	real            => { data_type => 'real',             original => { data_type => 'float', size => 63  } },
+        real            => { data_type => 'real',             original => { data_type => 'float', size => 63  } },
         'float(63)'     => { data_type => 'real',             original => { data_type => 'float', size => 63  } },
         'float(64)'     => { data_type => 'double precision', original => { data_type => 'float', size => 64  } },
         'float(126)'    => { data_type => 'double precision', original => { data_type => 'float', size => 126 } },