From e4b813d7b89062a926ff494332b8f7d8ccb70eb7 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Thu, 3 Mar 2005 16:02:37 +0000
Subject: [PATCH] fixed numeric opperators

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@161 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/JSON.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/perlmods/JSON.pm b/src/perlmods/JSON.pm
index cbdbc3e..1b86899 100644
--- a/src/perlmods/JSON.pm
+++ b/src/perlmods/JSON.pm
@@ -5,7 +5,14 @@ sub new {
 	return bless \$x => __PACKAGE__;
 }
 use overload ( '""' => \&toString );
-use overload ( '0+' => sub { ${$_[0]} } );
+use overload ( '0+' => sub { $_[0]->toString } );
+use overload ( '+' => sub { int($_[0]) + int($_[1]) } );
+use overload ( '-' => sub { int($_[0]) - int($_[1]) } );
+use overload ( '*' => sub { int($_[0]) * int($_[1]) } );
+use overload ( '/' => sub { int($_[0]) / int($_[1]) } );
+use overload ( '%' => sub { int($_[0]) % int($_[1]) } );
+use overload ( '**' => sub { int($_[0]) ** int($_[1]) } );
+use overload ( 'neg' => sub { neg(int($_[0])) } );
 
 sub toString { defined($_[1]) ? ${$_[1]} : ${$_[0]} }
 
-- 
2.43.2