Rashed Abdel-Tawab | 4db47f4 | 2019-09-06 10:38:22 -0700 | [diff] [blame] | 1 | package integer; |
2 | |||||
3 | our $VERSION = '1.01'; | ||||
4 | |||||
5 | $integer::hint_bits = 0x1; | ||||
6 | |||||
7 | sub import { | ||||
8 | $^H |= $integer::hint_bits; | ||||
9 | } | ||||
10 | |||||
11 | sub unimport { | ||||
12 | $^H &= ~$integer::hint_bits; | ||||
13 | } | ||||
14 | |||||
15 | 1; |