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 cc4699b..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 {
@@ -24,12 +26,13 @@ sub database_version {
 # this is why it's deprecated guys... Serially.
 sub create {
   my $self = shift;
+  my $args = shift;
 
   my @tm = gettimeofday();
   my @dt = gmtime ($tm[0]);
 
   $self->next::method({
-    version => $version,
+    %{$args},
     installed => sprintf("v%04d%02d%02d_%02d%02d%02d.%03.0f",
       $dt[5] + 1900,
       $dt[4] + 1,
@@ -44,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)
+
+