package integer;
+our $VERSION = '1.00';
+
=head1 NAME
integer - Perl pragma to compute arithmetic in integer instead of double
=cut
+$integer::hint_bits = 0x1;
+
sub import {
- $^H |= 1;
+ $^H |= $integer::hint_bits;
}
sub unimport {
- $^H &= ~1;
+ $^H &= ~$integer::hint_bits;
}
1;