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 v0.17;
21 foreach (qw/ base_len new zero one two copy str num add sub mul div inc dec
23 is_zero is_one is_odd is_even is_one check
26 my $name = "Math::BigInt::Calc::_$_";
28 *{"Math::BigInt::BareCalc::_$_"} = \&$name;
32 # catch and throw away