our $VERSION = '9999.999'; # VERSION
-our @EXPORT_OK = qw(commify);
+our @EXPORT_OK = qw(commify rtrim);
=func 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;