File Coverage

blib/lib/ExtUtils/XSpp/Typemap/simple.pm

Criterion	Covered	Total	%
statement	15	16	93.7
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	4	5	80.0
total	26	29	89.6

package ExtUtils::XSpp::Typemap::simple;

use base 'ExtUtils::XSpp::Typemap';

sub init {
  my $this = shift;
  my %args = @_;

  if( my $base = $args{base} ) {
    %args = ( xs_type => $base->{XS_TYPE},
              xs_input_code => $base->{XS_INPUT_CODE},
              xs_output_code => $base->{XS_OUTPUT_CODE},
              %args );
  }

  $this->{TYPE} = $args{type};
  $this->{NAME} = $args{name};
  $this->{XS_TYPE} = $args{xs_type};
  $this->{XS_INPUT_CODE} = $args{xs_input_code};
  $this->{XS_OUTPUT_CODE} = $args{xs_output_code};
}

sub cpp_type { $_[0]->{TYPE}->print }
sub output_code { undef } # likewise
sub call_parameter_code { undef }
sub call_function_code { undef }

1;