--TEST-- Test 12: calling perl user function --SKIPIF-- <?php require_once('skipif.inc'); ?> --FILE-- <?php $perl = new Perl(); $perl->eval(<<<PERL_END sub f_integer { return 5; } sub f_double { return 2.5; } sub f_string { return "str"; } sub f_array { my @x=(2); return \\@x; } sub f_hash { my %x=('str'=>'str'); return \\%x; } PERL_END ); var_dump($perl->f_integer()); var_dump($perl->f_double()); var_dump($perl->f_string()); var_dump($perl->f_array()); var_dump($perl->f_hash()); echo "ok\n"; ?> --EXPECT-- int(5) float(2.5) string(3) "str" array(1) { [0]=> int(2) } array(1) { ["str"]=> string(3) "str" } ok