X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FDeploymentHandler%2FVersionStorage%2FDeprecated%2FVersionResultSet.pm;h=08c15f1be13ae34adff5f610d2a2700e491b2980;hb=456f757182928d5a1590ffe0588b51cdb2ed7854;hp=cff502c9a45600a74bf214f2d3abaa0eb31c6607;hpb=fe3b6dffd232cf147c614485fcdb139b3079ff2b;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git

diff --git a/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResultSet.pm b/lib/DBIx/Class/DeploymentHandler/VersionStorage/Deprecated/VersionResultSet.pm
index cff502c..08c15f1 100644
--- 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)
+
+