1 package Math::BigInt::BareCalc;
5 # use warnings; # dont use warnings for older Perls
8 use vars qw/@ISA $VERSION/;
13 # Package to to test Bigint's simulation of Calc
15 # uses Calc, but only features the strictly necc. methods.
17 use Math::BigInt::Calc '0.33';
22 foreach (qw/ base_len new zero one two copy str num add sub mul div inc dec
24 is_zero is_one is_odd is_even is_one check
28 my $name = "Math::BigInt::Calc::_$_";
29 *{"Math::BigInt::BareCalc::_$_"} = \&$name;
31 print "# BareCalc using Calc v$Math::BigInt::Calc::VERSION\n";
34 # catch and throw away