1 package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated;
3 use Method::Signatures::Simple;
6 isa => 'DBIx::Class::Schema',
12 isa => 'DBIx::Class::ResultSet',
14 builder => '_build_version_rs',
15 handles => [qw( database_version version_storage_is_installed )],
18 with 'DBIx::Class::DeploymentHandler::HandlesVersionStorage';
20 use DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResult;
21 sub _build_version_rs {
22 $_[0]->schema->register_class(
23 dbix_class_schema_versions =>
24 'DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResult'
26 $_[0]->schema->resultset('dbix_class_schema_versions')
29 sub add_database_version {
30 # deprecated doesn't support ddl or upgrade_ddl
31 $_[0]->version_rs->create({ version => $_[1]->{version} })
34 sub delete_database_version {
35 $_[0]->version_rs->search({ version => $_[1]->{version}})->delete
38 __PACKAGE__->meta->make_immutable;
42 # vim: ts=2 sw=2 expandtab
48 Here's how to convert from that crufty old Deprecated VersionStorage to a shiny
49 new Standard VersionStorage:
51 my $s = My::Schema->connect(...);
52 my $dh = DeploymentHandler({
56 $dh->prepare_version_storage_install;
57 $dh->install_version_storage;
59 my @versions = $s->{vschema}->resultset('Table')->search(undef, {
60 order_by => 'installed',
61 })->get_column('version')->all;
63 $dh->version_storage->add_database_vesion({ version => $_ })