Select Code to Download

CAVEATS

Do not try to be clever to insert some operations in between switching
+ libraries:
...
This will create objects with numbers stored in two different backend 
+libraries, and VERY BAD THINGS will happen when you use these togethe
+r:

#!/usr/bin/perl -w
use strict;
...
pp $float;
pp $float->bfloor();
pp int($float);

150 / 0.75 == 200
150.5->bfloor() == 200
...
bless({ _e => [7], _es => "-", _m => [1415926, 3], sign => "+" }, "Mat
+h::BigFloat")
bless({ _e => [0], _es => "+", _m => [3], sign => "+" }, "Math::BigFlo
+at")
bless({ sign => "+", value => [3] }, "Math::BigInt")