test cases for recent changes and test DBs other than mysql
[dbsrgits/DBIx-Class-DeploymentHandler.git] / lib / DBIx / Class / DeploymentHandler / MigrationSchema / FromCurrent.pm
CommitLineData
41a539b4 1package DBIx::Class::DeploymentHandler::MigrationSchema::FromCurrent;
7d876442 2
3use Moose;
41a539b4 4with 'DBIx::Class::DeploymentHandler::HandlesMigrationSchema';
7d876442 5
6has schema => (is=>'ro', required=>1);
7
8sub migration_schema { shift->schema }
9
101;
11
12# vim: ts=2 sw=2 expandtab
13
14__END__
15
41a539b4 16=method migration_schema
7d876442 17
41a539b4 18 my $schema = $dh->migration_schema;
7d876442 19
20Provides a L<DBIx::Class::Schema> object that we can pass to the Perl deploy
21scripts. We just return whatever C<$schema> you passed when you instantiated
22the L<DBIx::Class::DeploymentHandler> object.