File Coverage

blib/lib/Math/Int64/native_if_available.pm
Criterion Covered Total %
statement 9 10 90.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 3 4 75.0
pod n/a
total 14 19 73.6


line stmt bran cond sub pod time code
1             package Math::Int64::native_if_available;
2              
3 2     2   8 use strict;
  2         2  
  2         58  
4 2     2   8 use warnings;
  2         3  
  2         155  
5              
6             sub import {
7 2 50 33 2   16 if (Math::Int64::_backend() eq 'IV' and $] >= 5.008) {
8 2         5 Math::Int64::_set_may_use_native(1);
9 2         8 $^H{'Math::Int64::native_if_available'} = 1;
10             }
11             }
12              
13             sub unimport {
14 0     0     undef $^H{'Math::Int64::native_if_available'};
15             }
16              
17             1;
18              
19             # ABSTRACT: Use the native Perl 64-bit integer implementation when available
20              
21             __END__