lib/DBIx/Class/DeploymentHandler/WithReasonableDefaults.pm

   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