Commit | Line | Data |
394e6ffb |
1 | package Math::BigInt::BareCalc; |
2 | |
3 | use 5.005; |
4 | use strict; |
5 | # use warnings; # dont use warnings for older Perls |
6 | |
7 | require Exporter; |
8 | use vars qw/@ISA $VERSION/; |
9 | @ISA = qw(Exporter); |
10 | |
11 | $VERSION = '0.02'; |
12 | |
13 | # Package to to test Bigint's simulation of Calc |
14 | |
15 | # uses Calc, but only features the strictly necc. methods. |
16 | |
61f5c3f5 |
17 | use Math::BigInt::Calc '0.18'; |
394e6ffb |
18 | |
19 | BEGIN |
20 | { |
21 | foreach (qw/ base_len new zero one two copy str num add sub mul div inc dec |
22 | acmp len digit zeros |
23 | is_zero is_one is_odd is_even is_one check |
61f5c3f5 |
24 | to_small to_large |
394e6ffb |
25 | /) |
26 | { |
27 | my $name = "Math::BigInt::Calc::_$_"; |
28 | no strict 'refs'; |
29 | *{"Math::BigInt::BareCalc::_$_"} = \&$name; |
30 | } |
31 | } |
32 | |
33 | # catch and throw away |
34 | sub import { } |
35 | |
36 | 1; |