X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-DeploymentHandler.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FDeploymentHandler%2FProvideSchema%2FFromCurrent.pm;fp=lib%2FDBIx%2FClass%2FDeploymentHandler%2FProvideSchema%2FFromCurrent.pm;h=7129a25f6f9ad5201d917318c90faa8e0933b78a;hp=0000000000000000000000000000000000000000;hb=7d876442f151bedf8bcf7d594f30d58f6dad8b59;hpb=eb701ec6f072186383fcd7d6293a89eca85bfd48

diff --git a/lib/DBIx/Class/DeploymentHandler/ProvideSchema/FromCurrent.pm b/lib/DBIx/Class/DeploymentHandler/ProvideSchema/FromCurrent.pm
new file mode 100644
index 0000000..7129a25
--- /dev/null
+++ b/lib/DBIx/Class/DeploymentHandler/ProvideSchema/FromCurrent.pm
@@ -0,0 +1,22 @@
+package DBIx::Class::DeploymentHandler::ProvideSchema::SQL::FromCurrent;
+
+use Moose;
+with 'DBIx::Class::DeploymentHandler::HandlesProvideSchema';
+
+has schema => (is=>'ro', required=>1);
+
+sub migration_schema { shift->schema }
+
+1;
+
+# vim: ts=2 sw=2 expandtab
+
+__END__
+
+=method schema_for_run_files
+
+  my $schema = $dh->schema_for_run_files;
+
+Provides a L<DBIx::Class::Schema> object that we can pass to the Perl deploy
+scripts.  We just return whatever C<$schema> you passed when you instantiated
+the L<DBIx::Class::DeploymentHandler> object.