gistfile1.txt

zoffix@zoffix-VirtualBox:/tmp/tmp.N8R7kzFURS$ cat foo.p6 
    use NativeCall;

    sub open-tray(Str) is native('cdio', v13)
        is symbol('cdio_eject_media_drive') {};

    sub close-tray(Str, int32 $y = 0) is native('cdio', v13)
        is symbol('cdio_close_tray') {};

    say "Gimme a CD!";
    open-tray Str;

    sleep .5;
    say "Ha! Too slow!";
    close-tray Str, 0;

zoffix@zoffix-VirtualBox:/tmp/tmp.N8R7kzFURS$ perl6 foo.p6 
Gimme a CD!
++ WARN: Problems resolving device rootfs: No such file or directory

++ WARN: Problems resolving device sysfs: No such file or directory

++ WARN: Problems resolving device proc: No such file or directory

++ WARN: Problems resolving device udev: No such file or directory

++ WARN: Problems resolving device devpts: No such file or directory

++ WARN: Problems resolving device tmpfs: No such file or directory

++ WARN: Problems resolving device none: No such file or directory

++ WARN: Problems resolving device none: No such file or directory

++ WARN: Problems resolving device none: No such file or directory

++ WARN: Problems resolving device none: No such file or directory

++ WARN: Problems resolving device none: No such file or directory

++ WARN: Problems resolving device none: No such file or directory

++ WARN: Problems resolving device none: No such file or directory

++ WARN: Problems resolving device none: No such file or directory

++ WARN: Problems resolving device binfmt_misc: No such file or directory

++ WARN: Problems resolving device systemd: No such file or directory

++ WARN: Problems resolving device none: No such file or directory

++ WARN: Problems resolving device gvfsd-fuse: No such file or directory

Ha! Too slow!
Calling close-tray(Str, Int) will never work with declared signature     Expected: :(Str $, int32 $y = 0)
  in method CALL-ME at /home/zoffix/.rakudobrew/moar-nom/install/share/perl6/sources/24DD121B5B4774C04A7084827BFAD92199756E03 (NativeCall) line 295
  in block <unit> at foo.p6 line 14

zoffix@zoffix-VirtualBox:/tmp/tmp.N8R7kzFURS$