Basic readline wrapper

Readline.pm6

use v6;
module Readline;

use NativeCall;

my constant read_lib = 'libreadline.so.5';
my constant hist_lib = 'libhistory.so.5';

sub readline   (Str) returns Str is native(read_lib) { * };
sub add_history(Str) is native(hist_lib) { * };

sub read-line(Str $prompt) returns Str is export {
    my $input = readline($prompt);
    add_history($input);
    return $input;
}