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=a976d6e46695d7015239ee4c30cb3708f4ce7942;hp=de6abd1da038e270f487d7dcfe13a3be597d3c02;hpb=562030878a850a01073774f27769748077c79176;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 de6abd1..d5d2394 100644 --- a/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm +++ b/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated.pm @@ -1,7 +1,8 @@ package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated; -use Moose; +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 @@ -11,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 )], @@ -41,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