Exemplo completo de chamadas naticas em Perl6.

sqlite-nc.pl

use NativeCall;
constant $LIBNAME = 'libsqlite3';

sub sqlite3_open   (Str, Array[OpaquePointer])                                      returns Int is native($LIBNAME) { * }
sub sqlite3_exec   (OpaquePointer, Str, OpaquePointer, OpaquePointer,OpaquePointer) returns Int is native($LIBNAME) { * }
sub sqlite3_errmsg (OpaquePointer)                                                  returns Str is native($LIBNAME) { * }
sub sqlite3_close  (OpaquePointer)                                                  returns Int is native($LIBNAME) { * }
    
my @handler := CArray[OpaquePointer].new;
@handler[0]  = OpaquePointer;
    
say sqlite3_open(@*ARGS[0], @handler);
say sqlite3_exec(@handler[0], "CREATE TABLE foo (bar NUMBER);", OpaquePointer, OpaquePointer, OpaquePointer);
say sqlite3_errmsg(@handler[0]);
say sqlite3_close(@handler[0]);