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

package DBIx::Class::DeploymentHandler::MigrationSchema::SchemaLoader;

use Moose;
use DBIx::Class::Schema::Loader;

with 'DBIx::Class::DeploymentHandler::HandlesMigrationSchema';

has schema => (is=>'ro', required=>1);

my %opts = (
  naming => { ALL => 'v7'},
  use_namespaces => 1,
  debug => $ENV{DBIC_DEPLOYMENTHANDLER_DEBUG}||0);

my $cnt = 0;

sub migration_schema {
  my $schema = shift->schema->clone;
  my $name = ref($schema) . $cnt++;
  DBIx::Class::Schema::Loader::make_schema_at
    $name, \%opts, [ sub {$schema->storage->dbh} ];
}

1;

# vim: ts=2 sw=2 expandtab

__END__

=method migration_schema

  my $schema = $dh->migration_schema;

Provides a L<DBIx::Class::Schema> object that we can pass to the Perl deploy
scripts.  We reverse engineer a C<$schema> from whatever is currently deployed
to the database using L<DBIx::Class::Schema::Loader>
Commit	Line	Data
41a539b4	1	package DBIx::Class::DeploymentHandler::MigrationSchema::SchemaLoader;
7d876442	2
	3	use Moose;
	4	use DBIx::Class::Schema::Loader;
	5
41a539b4	6	with 'DBIx::Class::DeploymentHandler::HandlesMigrationSchema';
7d876442	7
	8	has schema => (is=>'ro', required=>1);
	9
	10	my %opts = (
	11	naming => { ALL => 'v7'},
	12	use_namespaces => 1,
	13	debug => $ENV{DBIC_DEPLOYMENTHANDLER_DEBUG}\|\|0);
	14
	15	my $cnt = 0;
	16
	17	sub migration_schema {
	18	my $schema = shift->schema->clone;
	19	my $name = ref($schema) . $cnt++;
	20	DBIx::Class::Schema::Loader::make_schema_at
	21	$name, \%opts, [ sub {$schema->storage->dbh} ];
	22	}
	23
	24	1;
	25
	26	# vim: ts=2 sw=2 expandtab
	27
	28	__END__
	29
41a539b4	30	=method migration_schema
7d876442	31
41a539b4	32	my $schema = $dh->migration_schema;
7d876442	33
	34	Provides a L<DBIx::Class::Schema> object that we can pass to the Perl deploy
	35	scripts. We reverse engineer a C<$schema> from whatever is currently deployed
	36	to the database using L<DBIx::Class::Schema::Loader>