lib/DBIx/Class/DeploymentHandler/WithReasonableDefaults.pm

   1 package DBIx::Class::DeploymentHandler::WithReasonableDefaults;
   2 use Moose::Role;
   3
   4 # ABSTRACT: Make default arguments to a few methods sensible
   5
   6 requires qw( prepare_upgrade prepare_downgrade database_version schema_version );
   7
   8 around prepare_upgrade => sub {
   9   my $orig = shift;
  10   my $self = shift;
  11
  12   my $from_version = shift || $self->database_version;
  13   my $to_version   = shift || $self->schema_version;
  14   my $version_set  = shift || [$from_version, $to_version];
  15
  16   $self->$orig($from_version, $to_version, $version_set);
  17 };
  18
  19
  20 around prepare_downgrade => sub {
  21   my $orig = shift;
  22   my $self = shift;
  23
  24   my $from_version = shift || $self->database_version;
  25   my $to_version   = shift || $self->schema_version;
  26   my $version_set  = shift || [$to_version, $from_version];
  27
  28   $self->$orig($from_version, $to_version, $version_set);
  29 };
  30
  31 around install_resultsource => sub {
  32   my $orig = shift;
  33   my $self = shift;
  34   my $source = shift;
  35   my $version = shift || $self->to_version;
  36
  37   $self->$orig($source, $version);
  38 };
  39
  40 1;
  41
  42 __END__
  43
  44 vim: ts=2 sw=2 expandtab