X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FFixtures%2FVersioned.pm;h=3533688bf1278fdbc8e6c80ca4f5ed1ba0904aea;hb=9f96b203ed72d410bcb55a41b2d504eb5d8507d1;hp=0142814c56595cf9d1ce91f3f4af6f70ec4bfc20;hpb=9a9a783268273667dc1a9dd867a575aa927180c6;p=dbsrgits%2FDBIx-Class-Fixtures.git

diff --git a/lib/DBIx/Class/Fixtures/Versioned.pm b/lib/DBIx/Class/Fixtures/Versioned.pm
index 0142814..3533688 100644
--- a/lib/DBIx/Class/Fixtures/Versioned.pm
+++ b/lib/DBIx/Class/Fixtures/Versioned.pm
@@ -16,17 +16,11 @@ our $VERSION = '1.000';
 
 =head1 NAME
 
-=head1 SYNOPSIS
+DBIx::Class::Fixtures::Versioned
 
 =head1 DESCRIPTION
 
-=head1 AUTHOR
-
-=head1 CONTRIBUTORS
-
-=head1 METHODS
-
-=head2 new
+Just ignore it for now, but it will vaguely tie in to DBIx::Class::Schema::Versioned's functionality eventually.
 
 =cut
 
@@ -36,7 +30,7 @@ sub populate {
 
   $self->schema_class("DBIx::Class::Fixtures::SchemaVersioned");
   unless ($params->{version}) {
-      return DBIx::Class::Exception->throw('You must pass a version to populate');
+    return DBIx::Class::Exception->throw('You must pass a version to populate');
   }
 
   return $self->next::method(@_);
@@ -46,14 +40,14 @@ sub _generate_schema {
   my $self = shift;
   my ($params) = @_;
 
-  my $v = $self->schema_class;
   # manually set the schema version
-  ${$v::VERSION} = $params->{version};
+  $DBIx::Class::Fixtures::SchemaVersioned::VERSION = $params->{version};
 
   my $schema = $self->next::method(@_);
+  $schema->schema_version($params->{version});
 
   # set the db version to the schema version
-  $schema->upgrade(); # set version number  
+  $schema->upgrade(); # set version number
 
   return $schema;
 }