lib/DBIx/Class/DeploymentHandler.pm

   1 package DBIx::Class::DeploymentHandler;
   2
   3 use Moose;
   4
   5 extends 'DBIx::Class::DeploymentHandler::Dad';
   6 # a single with would be better, but we can't do that
   7 # see: http://rt.cpan.org/Public/Bug/Display.html?id=46347
   8 with 'DBIx::Class::DeploymentHandler::WithSqltDeployMethod',
   9      'DBIx::Class::DeploymentHandler::WithMonotonicVersions',
  10      'DBIx::Class::DeploymentHandler::WithStandardVersionStorage';
  11 with 'DBIx::Class::DeploymentHandler::WithReasonableDefaults';
  12
  13 sub prepare_version_storage_install {
  14   my $self = shift;
  15
  16   $self->prepare_resultsource_install(
  17     $self->version_storage->version_rs->result_source
  18   );
  19 }
  20
  21 sub install_version_storage {
  22   my $self = shift;
  23
  24   $self->install_resultsource(
  25     $self->version_storage->version_rs->result_source
  26   );
  27 }
  28
  29 __PACKAGE__->meta->make_immutable;
  30
  31 1;
  32
  33 __END__
  34
  35 vim: ts=2 sw=2 expandtab