X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FDeploymentHandler%2FVersionStorage%2FDeprecated%2FVersionResultSet.pm;h=e1de0849532e477438040285d0326a8f75d1c8f1;hb=e068a12a3063eba99bd5339781b634245cefcdba;hp=cc4699bd7f1baffa75b0ab6d7c1f90b7efb8ac7c;hpb=013429985a2df1b341d8e27f98252fa14f878c1f;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 cc4699b..e1de084 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;
 
@@ -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)
+
+