package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResultSet;
+# ABSTRACT: (DEPRECATED) Predefined searches to find what you want from the version storage
+
use strict;
use warnings;
# 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,
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)
+
+