--TEST-- Test 17: calling function from external Perl module --SKIPIF-- <?php require_once('skipif.inc'); ?> --FILE-- <?php $perl = new Perl(); $perl->eval(<<<PERL_END use Digest::MD5 qw(md5_hex); PERL_END ); var_dump($perl->eval('md5_hex("Hello");')); var_dump($perl->md5_hex('Hello')); var_dump($perl->{'Digest::MD5::md5_hex'}('Hello')); echo "ok\n"; ?> --EXPECT-- string(32) "8b1a9953c4611296a827abf8c47804d7" string(32) "8b1a9953c4611296a827abf8c47804d7" string(32) "8b1a9953c4611296a827abf8c47804d7" ok