#!/usr/bin/perl --
use strict;
use warnings;
use Path::Tiny qw/ path /;
use Inline C =>
    Config =>
        BUILD_NOISY => 1,
        CLEAN_AFTER_BUILD => 0,
        typemaps => path( __FILE__ )->realpath->parent->path('mytypemap.txt'),
        NAME => 'markong',
        FORCE_BUILD => 1, ## debuggery
;;;;;;;;;;;;;

use Inline 'C' => <<'CODE';


typedef unsigned char * unmapped;

unmapped foo(unmapped name) {
  if(name) printf("True\n");
  else printf("False\n");
  return(NULL);
}

unsigned char * bar() {
  return (foo(NULL));
}


CODE

use Devel::Peek qw/ Dump /;
foo(undef);
bar();
exit( 0 );

__END__