File Coverage

lib/ExtUtils/XSpp/Typemap/wrapper.pm
Criterion Covered Total %
statement 13 16 81.2
branch n/a
condition n/a
subroutine 9 12 75.0
pod 7 11 63.6
total 29 39 74.3


line stmt bran cond sub pod time code
1             package ExtUtils::XSpp::Typemap::wrapper;
2              
3 1     1   1082 use base 'ExtUtils::XSpp::Typemap';
  1         2  
  1         7  
4              
5             sub init {
6 2     2 0 21 my $this = shift;
7 2         6 my %args = @_;
8              
9 2         16 $this->{TYPEMAP} = $args{typemap};
10             }
11              
12 1     1 1 7 sub type { shift->{TYPEMAP}->type( @_ ) }
13 2     2 1 9 sub cpp_type { shift->{TYPEMAP}->cpp_type( @_ ) }
14 0     0 1 0 sub input_code { shift->{TYPEMAP}->input_code( @_ ) }
15 0     0 0 0 sub precall_code { shift->{TYPEMAP}->precall_code( @_ ) }
16 1     1 1 5 sub output_code { shift->{TYPEMAP}->output_code( @_ ) }
17 0     0 1 0 sub cleanup_code { shift->{TYPEMAP}->cleanup_code( @_ ) }
18 1     1 1 6 sub call_parameter_code { shift->{TYPEMAP}->call_parameter_code( @_ ) }
19 1     1 1 7 sub call_function_code { shift->{TYPEMAP}->call_function_code( @_ ) }
20 2     2 0 19 sub output_list { shift->{TYPEMAP}->output_list( @_ ) }
21              
22 3     3 0 32 sub typemap { $_[0]->{TYPEMAP} }
23              
24             1;