SL/Webdav/VersionScheme/Timestamp.pm

   1 package SL::Webdav::VersionScheme::Timestamp;
   2
   3 use strict;
   4 use parent qw(Rose::Object);
   5
   6 use POSIX ();
   7
   8 sub separator { "_" }
   9
  10 sub extract_regexp { qr/\d{8}_\d{6}/ }
  11
  12 sub cmp { sub { $_[0]->version cmp $_[1]->version } }
  13
  14 sub first_version { goto &get_current_formatted_time }
  15
  16 sub next_version { goto &get_current_formatted_time }
  17
  18 sub keep_last_version {
  19   0;
  20 }
  21
  22 sub get_current_formatted_time {
  23   return POSIX::strftime('%Y%m%d_%H%M%S', localtime());
  24 }
  25
  26 1;