File Coverage

blib/lib/Math/Int64/native_if_available.pm
Criterion Covered Total %
statement 13 14 92.8
branch 1 2 50.0
condition 1 3 33.3
subroutine 4 5 80.0
pod n/a
total 19 24 79.1


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