1 package DBIx::Class::DeploymentHandler::WithReasonableDefaults;
4 requires qw( prepare_upgrade prepare_downgrade database_version schema_version );
6 around prepare_upgrade => sub {
10 my $from_version = shift || $self->database_version;
11 my $to_version = shift || $self->schema_version;
12 my $version_set = shift || [$from_version, $to_version];
14 $self->$orig($from_version, $to_version, $version_set);
18 around prepare_downgrade => sub {
22 my $from_version = shift || $self->database_version;
23 my $to_version = shift || $self->schema_version;
24 my $version_set = shift || [$to_version, $from_version];
26 $self->$orig($from_version, $to_version, $version_set);
29 around install_resultsource => sub {
33 my $version = shift || $self->to_version;
35 $self->$orig($source, $version);
42 vim: ts=2 sw=2 expandtab