1 package DBIx::Class::Fixtures::Versioned;
6 use base qw/DBIx::Class::Fixtures/;
7 use DBIx::Class::Fixtures::SchemaVersioned;
16 our $VERSION = '1.000';
20 DBIx::Class::Fixtures::Versioned
24 Just ignore it for now, but it will vaguely tie in to DBIx::Class::Schema::Versioned's functionality eventually.
32 $self->schema_class("DBIx::Class::Fixtures::SchemaVersioned");
33 unless ($params->{version}) {
34 return DBIx::Class::Exception->throw('You must pass a version to populate');
36 return $self->next::method(@_);
39 sub _generate_schema {
43 # manually set the schema version
44 $DBIx::Class::Fixtures::SchemaVersioned::VERSION = $params->{version};
46 my $schema = $self->next::method(@_);
48 # set the db version to the schema version
49 $schema->upgrade(); # set version number