File Coverage

blib/lib/Linux/Perl/Base/BitsTest.pm
Criterion Covered Total %
statement 14 18 77.7
branch 0 4 0.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 27 70.3


line stmt bran cond sub pod time code
1             package Linux::Perl::Base::BitsTest;
2              
3 11     11   4924 use strict;
  11         25  
  11         288  
4 11     11   124 use warnings;
  11         29  
  11         600  
5              
6 11     11   64 use constant _PERL_CAN_64BIT => !!do { local $@; eval { pack 'Q' } };
  11         25  
  11         24  
  11         19  
  11         24  
  11         1867  
7              
8             sub _PACK_u64 {
9 22     22   116 return 'Q' if _PERL_CAN_64BIT();
10              
11 0         0 require Linux::Perl::Endian;
12 0 0       0 return Linux::Perl::Endian::SYSTEM_IS_BIG_ENDIAN() ? 'xxxxL!' : 'L!xxxx';
13             }
14              
15             sub _PACK_i64 {
16 6     6   22 return 'q' if _PERL_CAN_64BIT();
17              
18 0           require Linux::Perl::Endian;
19 0 0         return Linux::Perl::Endian::SYSTEM_IS_BIG_ENDIAN() ? 'xxxxl!' : 'l!xxxx';
20             }
21              
22             1;