kivitendo/SL/Webdav/VersionScheme/Timestamp.pm @ a4193657
| dc6d8231 | Sven Schöling | package SL::Webdav::VersionScheme::Timestamp;
|
||
use strict;
|
||||
use parent qw(Rose::Object);
|
||||
| ece6d212 | Sven Schöling | use POSIX ();
|
||
| dc6d8231 | Sven Schöling | |||
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;
|