[dbsrgits/DBIx-Class-DeploymentHandler.git] / lib / DBIx / Class / DeploymentHandler / WithReasonableDefaults.pm

package DBIx::Class::DeploymentHandler::WithReasonableDefaults;
use Moose::Role;

requires qw( prepare_upgrade prepare_downgrade database_version schema_version );

around qw( prepare_upgrade prepare_downgrade ) => sub {
  my $orig = shift;
  my $self = shift;

  my $from_version = shift || $self->database_version;
  my $to_version   = shift || $self->schema_version;
  my $version_set  = shift || [$from_version, $to_version];

  $self->$orig($from_version, $to_version, $version_set);
};


1;

__END__

vim: ts=2 sw=2 expandtab
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