Skip to content
This repository
Fetching contributors…

Cannot retrieve contributors at this time

file 11 lines (8 sloc) 0.285 kb
1 2 3 4 5 6 7 8 9 10 11
use t::CompileTestLib;
use NativeCall;

say("1..1");

compile_test_lib('04-pointers');

sub ReturnSomePointer() returns OpaquePointer is native("./04-pointers") { * }
sub TakeSomePointer(OpaquePointer) is native("./04-pointers") { * }
my $x = ReturnSomePointer();
TakeSomePointer($x);
Something went wrong with that request. Please try again.