Use ->count instead of ->next to check if version storage is deployed

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

diff --git a/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResultSet.pm b/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResultSet.pm
index cff502c..08c15f1 100644 (file)
--- a/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResultSet.pm
+++ b/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResultSet.pm
@@ -1,5 +1,7 @@
 package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResultSet;
 
+# ABSTRACT: (DEPRECATED) Predefined searches to find what you want from the version storage
+
 use strict;
 use warnings;
 
@@ -10,7 +12,7 @@ use Time::HiRes 'gettimeofday';
 
 sub version_storage_is_installed {
   my $self = shift;
-  try { $self->next; 1 } catch { undef }
+  try { $self->count; 1 } catch { undef }
 }
 
 sub database_version {
@@ -45,6 +47,27 @@ sub create {
 
 1;
 
+# vim: ts=2 sw=2 expandtab
+
 __END__
 
-vim: ts=2 sw=2 expandtab
+=head1 DEPRECATED
+
+This component has been suplanted by
+L<DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResultSet>.
+In the next major version (1) we will begin issuing a warning on it's use.
+In the major version after that (2) we will remove it entirely.
+
+=method version_storage_is_installed
+
+True if (!!!) the version storage has been installed
+
+=method database_version
+
+The version of the database
+
+=method create
+
+Overridden to default C<installed> to the current time. (take a look, it's yucky)
+
+