Commit | Line | Data |
41219a5d |
1 | package DBIx::Class::DeploymentHandler::WithReasonableDefaults; |
2 | use Moose::Role; |
3 | |
4 | requires qw( prepare_upgrade prepare_downgrade database_version schema_version ); |
5 | |
4a65f60b |
6 | around prepare_upgrade => sub { |
41219a5d |
7 | my $orig = shift; |
8 | my $self = shift; |
9 | |
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]; |
13 | |
14 | $self->$orig($from_version, $to_version, $version_set); |
15 | }; |
16 | |
17 | |
4a65f60b |
18 | around prepare_downgrade => sub { |
19 | my $orig = shift; |
20 | my $self = shift; |
21 | |
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]; |
25 | |
26 | $self->$orig($from_version, $to_version, $version_set); |
27 | }; |
28 | |
29 | |
41219a5d |
30 | 1; |
31 | |
32 | __END__ |
33 | |
34 | vim: ts=2 sw=2 expandtab |