free test

use NativeCall;

my $a = 0;

class Foo is repr('CPointer') {
	
	sub malloc(size_t $t) returns Foo is native { * }

	method new() {
		malloc(100);
	}

	sub free(Foo $t) is native { * }

	method DESTROY {
		say "boom ", $a++;
		free(self);
	}
}

loop {
	say $++;
	my $f = Foo.new;
}