X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fhomebank2ledger;a=blobdiff_plain;f=lib%2FApp%2FHomeBank2Ledger%2FUtil.pm;h=9f5b853f27dd3a9d505dcd008c3acf2428339d83;hp=d48f5d671639e70a41bf8d7fd52eeb48f802d04b;hb=acbf9960f68f612f5ba8cfaaec2fb7fda27e20e2;hpb=2752b344bcd543f73fceea80dcdbb11c20dc592a

diff --git a/lib/App/HomeBank2Ledger/Util.pm b/lib/App/HomeBank2Ledger/Util.pm
index d48f5d6..9f5b853 100644
--- a/lib/App/HomeBank2Ledger/Util.pm
+++ b/lib/App/HomeBank2Ledger/Util.pm
@@ -8,7 +8,7 @@ use Exporter qw(import);
 
 our $VERSION = '9999.999'; # VERSION
 
-our @EXPORT_OK = qw(commify);
+our @EXPORT_OK = qw(commify rtrim);
 
 =func commify
 
@@ -29,4 +29,18 @@ sub commify {
     return scalar reverse $str;
 }
 
+=func rtrim
+
+    $trimmed_str = rtrim($str);
+
+Right-trim a string.
+
+=cut
+
+sub rtrim {
+    my $str = shift;
+    $str =~ s/\h+$//;
+    return $str;
+}
+
 1;