isnet Internet/Isnet Internet CD.iso/prog/hiz/09/09.exe/adynware.exe/perl/lib/integer.pm

Perl POD Document | 1999-12-28 | 577 b | 32 lines

package integer;

=head1 NAME

integer - Perl pragma to compute arithmetic in integer instead of double

=head1 SYNOPSIS

    use integer;
    $x = 10/3;

=head1 DESCRIPTION

This tells the compiler that it's okay to use integer operations
from here to the end of the enclosing BLOCK.  On many machines,
this doesn't matter a great deal for most computations, but on those
without floating point hardware, it can make a big difference.

See L<perlmod/Pragmatic Modules>.

=cut

sub import {
    $^H |= 1;
}

sub unimport {
    $^H &= ~1;
}

1;