namespace reorg
Arthur Axel 'fREW' Schmidt [Sat, 27 Feb 2010 10:30:49 +0000 (04:30 -0600)]
lib/DBIx/Class/DeploymentHandler/VersionHandler/DatabaseToSchemaVersions.pm [moved from lib/DBIx/Class/DeploymentHandler/DatabaseToSchemaVersions.pm with 85% similarity]
lib/DBIx/Class/DeploymentHandler/VersionHandler/ExplicitVersions.pm [moved from lib/DBIx/Class/DeploymentHandler/ExplicitVersions.pm with 95% similarity]
lib/DBIx/Class/DeploymentHandler/WithDatabaseToSchemaVersions.pm
t/03_explict_versions.t
t/04_db_schema_versions.t

@@ -1,4 +1,4 @@
-package DBIx::Class::DeploymentHandler::DatabaseToSchemaVersions;
+package DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions;
 use Moose;
 use Method::Signatures::Simple;
 
@@ -1,4 +1,4 @@
-package DBIx::Class::DeploymentHandler::ExplicitVersions;
+package DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions;
 use Moose;
 use Method::Signatures::Simple;
 use Carp 'croak';
index 9fcf439..e72c133 100644 (file)
@@ -1,7 +1,7 @@
 package DBIx::Class::DeploymentHandler::WithDatabaseToSchemaVersions;
 use Moose::Role;
 
-use DBIx::Class::DeploymentHandler::DatabaseToSchemaVersions;
+use DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions;
 
 use Carp 'carp';
 
@@ -20,7 +20,7 @@ sub _build_version_handler {
   };
 
   $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;
index d5aa657..d6232f9 100644 (file)
@@ -6,7 +6,7 @@ use Test::Exception;
 use lib 't/lib';
 use DBICTest;
 use DBIx::Class::DeploymentHandler;
-use DBIx::Class::DeploymentHandler::ExplicitVersions;
+use DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions;
 my $db = 'dbi:SQLite:db.db';
 my @connection = ($db, '', '', { ignore_version => 1 });
 my $sql_dir = 't/sql';
@@ -36,7 +36,7 @@ $handler->install;
 my $versions = [map "$_.0", 0..100];
 
 {
-  my $vh = DBIx::Class::DeploymentHandler::ExplicitVersions->new({
+  my $vh = DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions->new({
     schema => $s,
     ordered_versions => $versions,
     to_version => '1.0',
@@ -48,7 +48,7 @@ my $versions = [map "$_.0", 0..100];
 }
 
 {
-  my $vh = DBIx::Class::DeploymentHandler::ExplicitVersions->new({
+  my $vh = DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions->new({
     schema => $s,
     ordered_versions => $versions,
     to_version => '5.0',
@@ -64,7 +64,7 @@ my $versions = [map "$_.0", 0..100];
 }
 
 dies_ok {
-  my $vh = DBIx::Class::DeploymentHandler::ExplicitVersions->new({
+  my $vh = DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions->new({
     schema => $s,
     ordered_versions => $versions,
     to_version => '0.0',
index 7c6ec46..2510ed6 100644 (file)
@@ -6,7 +6,7 @@ use Test::Exception;
 use lib 't/lib';
 use DBICTest;
 use DBIx::Class::DeploymentHandler;
-use DBIx::Class::DeploymentHandler::ExplicitVersions;
+use DBIx::Class::DeploymentHandler::VersionHandler::ExplicitVersions;
 my $db = 'dbi:SQLite:db.db';
 my @connection = ($db, '', '', { ignore_version => 1 });
 my $sql_dir = 't/sql';
@@ -33,7 +33,7 @@ $handler->prepare_install();
 
 $handler->install;
 {
-  my $vh = DBIx::Class::DeploymentHandler::DatabaseToSchemaVersions->new({
+  my $vh = DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions->new({
     schema => $s,
     ordered_versions => $versions,
     to_version => '5.0',
@@ -46,7 +46,7 @@ $handler->install;
 }
 
 {
-  my $vh = DBIx::Class::DeploymentHandler::DatabaseToSchemaVersions->new({
+  my $vh = DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions->new({
     schema => $s,
     ordered_versions => $versions,
   });
@@ -56,7 +56,7 @@ $handler->install;
 }
 
 {
-  my $vh = DBIx::Class::DeploymentHandler::DatabaseToSchemaVersions->new({
+  my $vh = DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions->new({
     schema => $s,
     ordered_versions => $versions,
   });
@@ -68,7 +68,7 @@ $handler->install;
 {
   $DBICVersion::Schema::VERSION = '10.0';
 
-  my $vh = DBIx::Class::DeploymentHandler::DatabaseToSchemaVersions->new({
+  my $vh = DBIx::Class::DeploymentHandler::VersionHandler::DatabaseToSchemaVersions->new({
     schema => $s,
     ordered_versions => $versions,
   });