The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

NINE / Inline-Perl6-0.10 / t / 04call_function.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13

              
use 5.10.0;
use strict;
use warnings;
use utf8;
use Inline::Perl6 'OO';
STDOUT->autoflush(1);
say '1..2';
Inline::Perl6::initialize;
say 'ok 1';
Inline::Perl6::call('say', 'ok 2 -');
Inline::Perl6::destroy;