One Hat Cyber Team

Your IP : 172.16.0.254

Server IP : 58.26.163.33

Server : Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64

Server Software : Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25

PHP Version : 7.3.25

View File Name : native_if_available.pm

package Math::Int64::native_if_available;

use strict;
use warnings;

use Math::Int64 ();

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;
        goto &Math::Int64::_check_pragma_compatibility;
    }
}

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