Added stanp method.

diff --git a/system/modules/CNFDateTime.pm b/system/modules/CNFDateTime.pm
index 09d481567cc0481610bf85ee18921d4b6c3e0879..e8cc8fc67c1a6d180799cde58e94ccee139f0764 100644 (file)
--- a/system/modules/CNFDateTime.pm
+++ b/system/modules/CNFDateTime.pm
@@ -72,6 +72,11 @@ sub toSchlong($self){
     return $self->{long} if exists $self->{long};
     $self->{long} = $self->datetime() -> strftime(FORMAT_SCHLONG)
 }
+## Force the daylights out of this instance during initialisation, usefull for debugging.
+sub stamp($self){
+    $self -> {timestamp} = $self->datetime() -> strftime(FORMAT_NANO);
+    return $self;
+}
 
 sub _listAvailableCountryCodes(){
      require DateTime::TimeZone;