say
"1..3"
;
EXTERNAL::eval_perl5(
'$| = 1'
);
$OUT
.unbuffered;
my
$foo
= EXTERNAL::eval_perl5('
package
Foo;
use
strict;
sub
test_fetch {
my
$fetched
=
$_
[1];
$fetched
;
return
;
}
sub
test_store {
$_
[1] =
"ok 3\n"
;
8;
}
bless
{},
"Foo"
;
');
my
$var1
=
"ok 1\n"
;
my
$var2
= EXTERNAL::eval_perl5(
'"ok 2\n"'
);
my
$var3
;
$foo
.test_fetch(
$var1
);
$foo
.test_fetch(
$var2
);
$foo
.test_store(
$var3
);
$foo
.test_fetch(
$var3
);