summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Math/Int64/native_if_available.pm
blob: b52466005d794b98708b774736084465b0de27ed (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
package Math::Int64::native_if_available;

use strict;
use warnings;

sub import {
    if (Math::Int64::_backend() eq 'IV' and $] >= 5.008) {
        Math::Int64::_set_may_use_native(1);
        $^H{'Math::Int64::native_if_available'} = 1;
    }
}

sub unimport {
    undef $^H{'Math::Int64::native_if_available'};
}

1;

# ABSTRACT: Use the native Perl 64-bit integer implementation when available

__END__

=encoding UTF-8

=head1 NAME

Math::Int64::native_if_available - Use the native Perl 64-bit integer implementation when available

=head1 SYNOPSIS

  use Math::Int64 qw(uint64);
  use Math::Int64::native_if_available;

=head1 SEE ALSO

L<Math::Int64>.

=cut