Port to Moo

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

diff --git a/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm b/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm
index 2e0a9f6..d5d2394 100644 (file)
--- a/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm
+++ b/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm
@@ -1,11 +1,8 @@
 package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated;
-use Moose;
-use DBIx::Class::DeploymentHandler::Logger;
-use Log::Contextual ':log', -package_logger =>
-  DBIx::Class::DeploymentHandler::Logger->new({
-    env_prefix => 'DBICDH'
-  });
-
+use Moo;
+use Sub::Quote 'quote_sub';
+use DBIx::Class::DeploymentHandler::LogImporter ':log';
+use DBIx::Class::DeploymentHandler::Types 'ResultSet';
 
 # ABSTRACT: (DEPRECATED) Use this if you are stuck in the past
 
@@ -15,7 +12,7 @@ has schema => (
 );
 
 has version_rs => (
-  isa        => 'DBIx::Class::ResultSet',
+  isa        => ResultSet,
   is         => 'ro',
   builder    => '_build_version_rs',
   handles    => [qw( database_version version_storage_is_installed )],
@@ -45,8 +42,6 @@ sub delete_database_version {
   $_[0]->version_rs->search({ version => $version})->delete
 }
 
-__PACKAGE__->meta->make_immutable;
-
 1;
 
 # vim: ts=2 sw=2 expandtab