Advertisement
Guest User

Untitled

a guest
Jun 25th, 2017
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.40 KB | None | 0 0
  1. pir::loadlib__s('libjit_fb');
  2. use NativeCall;
  3.  
  4. sub my_connect( OpaquePointer $client) returns Int is native('libmongoc') { ... }
  5. sub mongo_count( OpaquePointer $client, Str $db, Str $ns, OpaquePointer $query ) returns Int is native('libmongoc') { ... }
  6.  
  7. my OpaquePointer $connection;
  8. my_connect($connection);
  9. 'done'.say;
  10. my OpaquePointer $bson;
  11. mongo_count($connection,'test','test',$bson);
  12. 'done'.say;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement