Final round of detabify

[dbsrgits/DBIx-Class.git] / t / cdbi / 26-mutator.t

diff --git a/t/cdbi/26-mutator.t b/t/cdbi/26-mutator.t
index 5a1cf8f..7ba95bd 100644 (file)
--- a/t/cdbi/26-mutator.t
+++ b/t/cdbi/26-mutator.t
@@ -8,40 +8,40 @@ BEGIN {
 }
 
 BEGIN {
-       eval "use DBD::SQLite";
-       plan $@
-               ? (skip_all => 'needs DBD::SQLite for testing')
-               : (tests => 6);
+  eval "use DBD::SQLite";
+  plan $@
+    ? (skip_all => 'needs DBD::SQLite for testing')
+    : (tests => 6);
 }
 
 use lib 't/cdbi/testlib';
 require Film;
 
 sub Film::accessor_name_for {
-       my ($class, $col) = @_;
-       return "sheep" if lc $col eq "numexplodingsheep";
-       return $col;
+  my ($class, $col) = @_;
+  return "sheep" if lc $col eq "numexplodingsheep";
+  return $col;
 }
 
 my $data = {
-       Title    => 'Bad Taste',
-       Director => 'Peter Jackson',
-       Rating   => 'R',
+  Title    => 'Bad Taste',
+  Director => 'Peter Jackson',
+  Rating   => 'R',
 };
 
 my $bt;
 eval {
-       my $data = $data;
-       $data->{sheep} = 1;
-       ok $bt = Film->insert($data), "Modified accessor - with  
+  my $data = $data;
+  $data->{sheep} = 1;
+  ok $bt = Film->insert($data), "Modified accessor - with  
 accessor";
-       isa_ok $bt, "Film";
+  isa_ok $bt, "Film";
 };
 is $@, '', "No errors";
 
 eval {
-       ok $bt->sheep(2), 'Modified accessor, set';
-       ok $bt->update, 'Update';
+  ok $bt->sheep(2), 'Modified accessor, set';
+  ok $bt->update, 'Update';
 };
 is $@, '', "No errors";