### ----------------------------------------------------
### -- Inline::Perl5
### -- Licenses: Artistic-2.0
### -- Authors: Stefan Seifert
### -- File: t/call_p6_function_from_p5.t
### ----------------------------------------------------
#!/usr/bin/env perl6

use v6;
use Inline::Perl5;

my $p5 = Inline::Perl5.new();
$p5.run(q:to/PERL5/);
    use 5.10.0;

    STDOUT->autoflush(1);
    say '1..2';

    v6::call('say', 'ok 1');
    PERL5

say 'ok 2';

# vim: ft=raku


