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   19 use strict;
  3         7  
  3         81  
4 3     3   15 use warnings;
  3         6  
  3         149  
5              
6 3 50   3   17 use constant UNPACK_TMPL => (4 == length pack 'P') ? 'L' : 'Q';
  3         7  
  3         469  
7              
8             sub get_address {
9 13     13 0 75 return unpack( UNPACK_TMPL(), pack( 'P', $_[0] ) );
10             }
11              
12             1;