[Bast-commits] r5979 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-04-24 16:22:05 +0100 (Fri, 24 Apr 2009)
New Revision: 5979

Modified:
   DBIx-Class/0.08/trunk/t/72pg.t
Log:
Cosmetic change

Modified: DBIx-Class/0.08/trunk/t/72pg.t
===================================================================
--- DBIx-Class/0.08/trunk/t/72pg.t	2009-04-24 14:27:20 UTC (rev 5978)
+++ DBIx-Class/0.08/trunk/t/72pg.t	2009-04-24 15:22:05 UTC (rev 5979)
@@ -19,14 +19,13 @@
   __PACKAGE__->column_info_from_storage(1);
   __PACKAGE__->set_primary_key('id');
 
-sub store_column {
+  sub store_column {
     my ($self, $name, $value) = @_;
     $value = '#'.$value if($name eq "storecolumn");
     $self->maybe::next::method($name, $value);
+  }
 }
 
-}
-
 {
   package DBICTest::Schema::ArrayTest;
 
@@ -278,4 +277,3 @@
         $dbh->do("DROP SCHEMA testschema;");
     }
 }
-