Select Code to Download

use overload {
# . . . other operators
'atan2' =>      sub { atan2($_[0]->numify(),$_[1]) }, 
# . . . the rest of them
};

--- BigInt.pm~    Sat Jan  1 10:57:35 2005
+++ BigInt.pm    Sun Jan 23 22:04:36 2005
@@ -75,7 +75,9 @@
...
 
# are not yet overloadable
#'hex'  =>      sub { print "hex"; $_[0]; },

--- fallback.t~    Thu Dec 11 14:17:58 2003
+++ fallback.t    Sun Jan 23 22:36:17 2005
@@ -28,7 +28,7 @@
...
+ok (atan2($bi,$bf), atan2(1,0));
+ok (atan2($bf,$bi), atan2(0,1));

$ perl -e'use bignum;print atan2(1,0), " ", atan2(0,1),$/'
1.5707963267949 0
$