1 package DBIx::Class::DeploymentHandler::VersionStorage::Deprecated::VersionResultSet;
6 use parent 'DBIx::Class::ResultSet';
9 use Time::HiRes 'gettimeofday';
11 sub version_storage_is_installed {
13 try { $self->next; 1 } catch { undef }
16 sub database_version {
18 $self->search(undef, {
19 order_by => { -desc => 'installed' },
21 })->get_column('version')->next;
24 # this is why it's deprecated guys... Serially.
29 my @tm = gettimeofday();
30 my @dt = gmtime ($tm[0]);
34 installed => sprintf("v%04d%02d%02d_%02d%02d%02d.%03.0f",
41 $tm[1] / 1000, # convert to millisecs, format as up/down rounded int above
50 vim: ts=2 sw=2 expandtab