From: Will Budic <redacted>
Date: Tue, 25 Jun 2024 10:26:58 +0000 (+1000)
Subject: Added stanp method.
X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=5a7b72865fcd90910000a28f52fb30f5da5dff0b;p=PerlCNF.git

Added stanp method.
---

diff --git a/system/modules/CNFDateTime.pm b/system/modules/CNFDateTime.pm
index 09d4815..e8cc8fc 100644
--- 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;