Help language development. Donate to The Perl Foundation

Inline::Perl5 cpan:NINE last updated on 2020-05-07

t/v5-inline.t
BEGIN {
    say "1..8";
}
{
    use v5-inline;
    use v5.10.0;
    $| = 1;
    BEGIN { say "ok 1 - First message from Perl 5"; }
    if (1) {
        say "ok 2 - Conditional message from Perl 5";
    }
    raku {
        say "ok 3 - Message from Raku";
        $*OUT.flush;
        if True {
            say "ok 4 - Conditional message from Raku";
            $*OUT.flush;
        }
        {
            use v5-inline;
            use v5.10.0;
            say "ok 5 - Message from Perl 5 from Raku";}}
    say "ok 6 - Last message from Perl 5";

    sub give_me_a_string {
        "a string"}}
if True {
    say "ok 7 - Still alive";
    $*OUT.flush;
}

say give_me_a_string() eq "a string"
    ?? "ok 8 - sub in v5-inline block found"
    !! "not ok 8 - sub in v5-inline block not found";