/usr/local/CPAN/ExtUtils-XSpp/ExtUtils/XSpp/Typemap/simple.pm

• package ExtUtils::XSpp::Typemap::simple
  • init
  • cpp_type
  • output_code
  • call_parameter_code
  • call_function_code
• EOF

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

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

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

  $this->{TYPE} = $args{type};
}

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

1;