golfed.pl

# Expects to be live in .../zavolaj/
use lib '.';
use t::CompileTestLib;
use NativeCall;
    
compile_test_lib('08-callbacks');

sub TakeACallback(&cb()) is native('./08-callbacks') { * }

sub simple_callback() {
    say 'simple callback';
}   

TakeACallback(&simple_callback);
pir::sweep__vi(1);
    
# vim:ft=perl6 

And for reference, the pointer value changes a bit on each run (it could be a counter getting overridden a pointer) but it is consistently a very low hexadecimal number that is not a valid memory address.