package SL::Webdav::VersionScheme::Serial;

use strict;
use parent qw(Rose::Object);

use DateTime;

sub separator { "-" }

sub extract_regexp { qr/\d+/ }

sub cmp { sub { $_[0]->version <=> $_[1]->version } }

sub first_version { }

sub next_version { $_[1]->version + 1 }

sub keep_last_version {
  my ($self, $last) = @_;

  if ($::lx_office_conf->{webdav}{new_version_after_minutes}) {
    return DateTime->now <= $last->mtime + DateTime::Duration->new(minutes => $::lx_office_conf{webdav}{new_version_after_minutes});
  } else {
    return 0;
  }
}

1;