An example for serialize p6 CStructs

gistfile1.p6

use NativeHelpers::CStruct;
use NativeHelpers::Blob;
use NativeCall;
class Msg is repr<CStruct> { has uint16 $.bla is rw};
my $la = LinearArray[Msg].new(3);
$la[0].bla = 179;
$la[1] = Msg.new(:73bla);
$la[2].bla = 105;
say utf8-from-pointer($la.Pointer, $la.nativesizeof);

my $m = Msg.new(:10bla);
say utf8-from-pointer(pointer-to($m), nativesizeof($m));