[ Mini Kiebo ]

Server: Windows NT DESKTOP-5B8S0D4 6.2 build 9200 (Windows 8 Professional Edition) i586 Path: D:/xampp182/perl/vendor/lib/Math/Int64/ [ Home ]

File: native_if_available.pm

package Math::Int64::native_if_available;

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;