From e3d7a57ee338b39d2d871ab8da7a784497d4b47d Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Mon, 16 Aug 2021 18:12:11 +0530
Subject: Add timestamp-to-date subroutine, module Timestamp

It returns Date object of given stamp.
---
 META6.json                   | 3 ++-
 lib/Taurus/Timestamp.rakumod | 7 +++++++
 2 files changed, 9 insertions(+), 1 deletion(-)
 create mode 100644 lib/Taurus/Timestamp.rakumod

diff --git a/META6.json b/META6.json
index 17c97eb..a150fba 100644
--- a/META6.json
+++ b/META6.json
@@ -8,7 +8,8 @@
     "perl" : "6.d",
     "provides" : {
         "Taurus::CLI" : "lib/Taurus/CLI.rakumod",
-        "Taurus::Seconds" : "lib/Taurus/Seconds.rakumod"
+        "Taurus::Seconds" : "lib/Taurus/Seconds.rakumod",
+        "Taurus::Timestamp" : "lib/Taurus/Timestamp.rakumod"
     },
     "depends" : [
         "CSV::Parser",
diff --git a/lib/Taurus/Timestamp.rakumod b/lib/Taurus/Timestamp.rakumod
new file mode 100644
index 0000000..e9013bc
--- /dev/null
+++ b/lib/Taurus/Timestamp.rakumod
@@ -0,0 +1,7 @@
+unit module Taurus::Timestamp;
+
+sub timestamp-to-date(Str $stamp --> Date) is export {
+    Date.new(
+        "%s-%s-%s".sprintf(.substr(6, 4), .substr(3, 2), .substr(0, 2))
+    ) with $stamp;
+}
-- 
cgit 1.4.1-2-gfad0