16 lines
172 B
Perl
16 lines
172 B
Perl
|
package integer;
|
||
|
|
|
||
|
|
our $VERSION = '1.01';
|
||
|
|
|
||
|
|
$integer::hint_bits = 0x1;
|
||
|
|
|
||
|
|
sub import {
|
||
|
|
$^H |= $integer::hint_bits;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub unimport {
|
||
|
|
$^H &= ~$integer::hint_bits;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|