spread TODOs out

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

diff --git a/lib/DBIx/Class/DeploymentHandler/WithDatabaseToSchemaVersions.pm b/lib/DBIx/Class/DeploymentHandler/WithDatabaseToSchemaVersions.pm
index 9fcf439..a1daf09 100644 (file)
--- a/lib/DBIx/Class/DeploymentHandler/WithDatabaseToSchemaVersions.pm
+++ b/lib/DBIx/Class/DeploymentHandler/WithDatabaseToSchemaVersions.pm
@@ -1,7 +1,9 @@
 package DBIx::Class::DeploymentHandler::WithDatabaseToSchemaVersions;
 use Moose::Role;
 
-use DBIx::Class::DeploymentHandler::DatabaseToSchemaVersions;
+# ABSTRACT: Delegate/Role for DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions
+
+use DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions;
 
 use Carp 'carp';
 
@@ -16,15 +18,18 @@ sub _build_version_handler {
   my $self = shift;
 
   my $args = {
-    schema => $self->schema,
+    database_version => $self->database_version,
+    schema_version   => $self->schema_version,
   };
 
   $args->{to_version} = $self->to_version if $self->has_to_version;
-  DBIx::Class::DeploymentHandler::DatabaseToSchemaVersions->new($args);
+  DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions->new($args);
 }
 
 1;
 
+# vim: ts=2 sw=2 expandtab
+
 __END__
 
-vim: ts=2 sw=2 expandtab
+TODO: pod