From b6855df288d1e2ac8bb16d2068504b529dd96ab9 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Sat, 21 Sep 2019 01:38:07 +0200
Subject: [PATCH] Make balance zero-crossing timestamp accessible

---
 lib/RevBank/Users.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/RevBank/Users.pm b/lib/RevBank/Users.pm
index a6356b8..f393f2c 100644
--- a/lib/RevBank/Users.pm
+++ b/lib/RevBank/Users.pm
@@ -22,6 +22,11 @@ sub balance {
     return _read()->{ lc $name }->[1];
 }
 
+sub since {
+    my ($name) = @_;
+    return _read()->{ lc $name }->[3];
+}
+
 sub create {
     my ($username) = @_;
     open my $fh, '>>', $filename or die $!;