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 | |
6 | around qw( prepare_upgrade prepare_downgrade ) => sub { |
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 | |
18 | 1; |
19 | |
20 | __END__ |
21 | |
22 | vim: ts=2 sw=2 expandtab |