[livejournal] r20329: LJSUP-9908

A   trunk/cgi-bin/LJ/NumberUtil.pm

Added: trunk/cgi-bin/LJ/NumberUtil.pm
===================================================================
--- trunk/cgi-bin/LJ/NumberUtil.pm	                        (rev 0)
+++ trunk/cgi-bin/LJ/NumberUtil.pm	2011-10-14 14:25:15 UTC (rev 20329)
@@ -0,0 +1,23 @@
+package LJ::NumberUtil;
+use strict;
+use warnings;
+
+use base qw( Exporter );
+our @EXPORT_OK = qw( round );
+
+use POSIX;
+
+use constant ROUND_HALF => 0.50000000000008;
+
+# this is stolen from Math::Round on CPAN
+sub round {
+    my ($num) = @_;
+
+    if ( $num >= 0 ) {
+        return int POSIX::floor( $num  + ROUND_HALF );
+    } else {
+        return int POSIX::ceil( $num - ROUND_HALF );
+    }
+}
+
+1;