1 package Math::BigInt::BareCalc;
5 # use warnings; # dont use warnings for older Perls
8 use vars qw/@ISA $VERSION/;
13 sub api_version () { 1; }
15 # Package to to test Bigint's simulation of Calc
17 # uses Calc, but only features the strictly necc. methods.
19 use Math::BigInt::Calc '0.51';
25 base_len new zero one two ten copy str num add sub mul div mod inc dec
26 acmp alen len digit zeros
28 fac pow gcd log_int sqrt root
29 is_zero is_one is_odd is_even is_one is_two is_ten check
30 as_hex as_bin as_oct from_hex from_bin from_oct
35 my $name = "Math::BigInt::Calc::_$_";
36 *{"Math::BigInt::BareCalc::_$_"} = \&$name;
38 print "# BareCalc using Calc v$Math::BigInt::Calc::VERSION\n";
41 # catch and throw away