X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FDB.pm;h=007c82adbfa10219e694abc2e4c7e83ab0458fab;hb=777135501b00be497b61b3cc7c677a8c2596dc50;hp=07c8924910fd580c65b6411d09a2b82e97db1afb;hpb=7eb4ecc8fc02a8b99fbe8be59b03321dd773ab9a;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/lib/DBIx/Class/DB.pm b/lib/DBIx/Class/DB.pm
index 07c8924..007c82a 100644
--- a/lib/DBIx/Class/DB.pm
+++ b/lib/DBIx/Class/DB.pm
@@ -93,7 +93,8 @@ register themselves with it.
 
 sub setup_schema_instance {
   my $class = shift;
-  my $schema = bless({}, 'DBIx::Class::Schema');
+  my $schema = {};
+  bless $schema, 'DBIx::Class::Schema';
   $class->mk_classdata('schema_instance' => $schema);
 }
 
@@ -176,9 +177,6 @@ Alias for L<txn_commit>
 
 Alias for L<txn_rollback>
 
-
-1;
-
 =head1 AUTHORS
 
 Matt S. Trout <mst@shadowcatsystems.co.uk>
@@ -189,3 +187,4 @@ You may distribute this code under the same terms as Perl itself.
 
 =cut
 
+1;