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   6239 use strict;
  11         22  
  11         311  
4 11     11   58 use warnings;
  11         16  
  11         589  
5              
6 11     11   66 use constant _PERL_CAN_64BIT => !!do { local $@; eval { pack 'Q' } };
  11         18  
  11         19  
  11         19  
  11         23  
  11         2005  
7              
8             sub _PACK_u64 {
9 22     22   117 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   25 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;