#! perl -slw
package NODE;
use Inline C => Config => BUILD_NOISY => 1; #, TYPEMAPS => './ICobject.tmap';
use Inline C => <<'END_C',  NAME => 'ICobject', CLEAN_AFTER_BUILD => 0;


struct _node {
      struct _node  *left;
      struct _node  *right;
};

typedef struct _node Node;

Node* new( char *class ) {
    Node* node;
    warn("new\n"); // DEBUG
    Newx(node, 1, Node);
    // node->... = ...;
    return node;
}

Node* insert( Node* root ) {
    warn("insert\n"); // DEBUG
    return root;
}

void DESTROY(Node* node) {
    warn("DESTROY\n"); // DEBUG
    Safefree(node);
}

END_C

package main;
use strict;
use Devel::Peek;

my $tree = NODE->new();

print Dump $tree;

print $tree;

$tree->insert( 'fred', 3 );