File Coverage

blib/lib/ExtUtils/Typemaps/PackedVal.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 19 68.4


line stmt bran cond sub pod time code
1             package ExtUtils::Typemaps::PackedVal;
2             $ExtUtils::Typemaps::PackedVal::VERSION = '0.004';
3 2     2   168818 use strict;
  2         5  
  2         106  
4 2     2   15 use warnings;
  2         5  
  2         133  
5              
6 2     2   14 use parent 'ExtUtils::Typemaps';
  2         4  
  2         15  
7              
8             sub new {
9 0     0 1   my $class = shift;
10              
11 0           my $self = $class->SUPER::new(@_);
12              
13 0           $self->add_inputmap(xstype => 'T_PACKEDVAL', code => '$var = XS_unpack_$ntype($arg)');
14 0           $self->add_outputmap(xstype => 'T_PACKEDVAL', code => '$arg = XS_pack_$ntype($var);');
15              
16 0           return $self;
17             }
18              
19             1;
20              
21             # ABSTRACT: Typemap for storing objects using external helper functions
22              
23             __END__