X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FDeploymentHandler%2FVersionStorage%2FDeprecated.pm;h=d5d2394d30865ab7ebaa2a1b1399fa4fe10d3c6a;hb=refs%2Fheads%2Fmoo-port;hp=31471a8cc7c54d77daa8b39c91556e1a903b2646;hpb=0df68524a051e42f1a7f8606aee56e7c6b70b302;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git

diff --git a/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm b/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm
index 31471a8..d5d2394 100644
--- a/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm
+++ b/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm
@@ -1,23 +1,18 @@
 package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated;
-use Moose;
-use Log::Contextual::WarnLogger;
-use Log::Contextual ':log', -default_logger => Log::Contextual::WarnLogger->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
 
-use Method::Signatures::Simple;
-
 has schema => (
-  isa      => 'DBIx::Class::Schema',
   is       => 'ro',
   required => 1,
 );
 
 has version_rs => (
-  isa        => 'DBIx::Class::ResultSet',
+  isa        => ResultSet,
   is         => 'ro',
   builder    => '_build_version_rs',
   handles    => [qw( database_version version_storage_is_installed )],
@@ -37,18 +32,16 @@ sub _build_version_rs {
 sub add_database_version {
   # deprecated doesn't support ddl or upgrade_ddl
   my $version = $_[1]->{version};
-  log_debug { "[DBICDH] Adding database version $version" };
+  log_debug { "Adding database version $version" };
   $_[0]->version_rs->create({ version => $version })
 }
 
 sub delete_database_version {
   my $version = $_[1]->{version};
-  log_debug { "[DBICDH] Deleting database version $version" };
+  log_debug { "Deleting database version $version" };
   $_[0]->version_rs->search({ version => $version})->delete
 }
 
-__PACKAGE__->meta->make_immutable;
-
 1;
 
 # vim: ts=2 sw=2 expandtab
@@ -85,3 +78,8 @@ new Standard VersionStorage:
  $dh->version_storage->add_database_vesion({ version => $_ })
    for @versions;
 
+=head1 SEE ALSO
+
+This class is an implementation of
+L<DBIx::Class::DeploymentHandler::HandlesVersionStorage>.  Pretty much all the
+documentation is there.