1 package DBIx::Class::Fixtures::Versioned;
6 use base qw/DBIx::Class::Fixtures/;
7 use DBIx::Class::Fixtures::SchemaVersioned;
12 DBIx::Class::Fixtures::Versioned
16 Just ignore it for now, but it will vaguely tie in to DBIx::Class::Schema::Versioned's functionality eventually.
24 $self->schema_class("DBIx::Class::Fixtures::SchemaVersioned");
25 unless ($params->{version}) {
26 return DBIx::Class::Exception->throw('You must pass a version to populate');
28 return $self->next::method(@_);
31 sub _generate_schema {
35 # manually set the schema version
36 $DBIx::Class::Fixtures::SchemaVersioned::VERSION = $params->{version};
38 my $schema = $self->next::method(@_);
40 # set the db version to the schema version
41 $schema->upgrade(); # set version number