aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndinus <andinus@nand.sh>2021-08-16 18:12:11 +0530
committerAndinus <andinus@nand.sh>2021-08-16 18:12:11 +0530
commite3d7a57ee338b39d2d871ab8da7a784497d4b47d (patch)
treed9e374e1e4e4b8b6d604f505f99a99cb5b872db8
parentf7991707b48f6f503e18dbac31b9af80290d9991 (diff)
downloadtaurus-e3d7a57ee338b39d2d871ab8da7a784497d4b47d.tar.gz
Add timestamp-to-date subroutine, module Timestamp
It returns Date object of given stamp.
-rw-r--r--META6.json3
-rw-r--r--lib/Taurus/Timestamp.rakumod7
2 files changed, 9 insertions, 1 deletions
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;
+}