File Coverage

blib/lib/Linux/Perl/Pointer.pm
Criterion Covered Total %
statement 10 10 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 17 88.2


line stmt bran cond sub pod time code
1             package Linux::Perl::Pointer;
2              
3 3     3   17 use strict;
  3         5  
  3         70  
4 3     3   12 use warnings;
  3         4  
  3         102  
5              
6 3 50   3   23 use constant UNPACK_TMPL => (4 == length pack 'P') ? 'L' : 'Q';
  3         5  
  3         376  
7              
8             sub get_address {
9 13     13 0 191 return unpack( UNPACK_TMPL(), pack( 'P', $_[0] ) );
10             }
11              
12             1;