|
package SL::Webdav::VersionScheme::Timestamp;
|
|
|
|
use strict;
|
|
use parent qw(Rose::Object);
|
|
|
|
use POSIX ();
|
|
|
|
sub separator { "_" }
|
|
|
|
sub extract_regexp { qr/\d{8}_\d{6}/ }
|
|
|
|
sub cmp { sub { $_[0]->version cmp $_[1]->version } }
|
|
|
|
sub first_version { goto &get_current_formatted_time }
|
|
|
|
sub next_version { goto &get_current_formatted_time }
|
|
|
|
sub keep_last_version {
|
|
0;
|
|
}
|
|
|
|
sub get_current_formatted_time {
|
|
return POSIX::strftime('%Y%m%d_%H%M%S', localtime());
|
|
}
|
|
|
|
1;
|