/trunk/Examples/perl5/java/runme.pl
Perl | 29 lines | 18 code | 11 blank | 0 comment | 0 complexity | a5c210f243462a44942893c5b86472a0 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- use example;
- example::JvCreateJavaVM(undef);
- example::JvAttachCurrentThread(undef, undef);
- $e1 = new example::Example(1);
- print $e1->{mPublicInt},"\n";
- $e2 = new example::Example(2);
- print $e2->{mPublicInt},"\n";
- $i = $e1->Add(1,2);
- print $i,"\n";
- $d = $e2->Add(1.0,2.0);
- print $d,"\n";
- $d = $e2->Add("1","2");
- print $d,"\n";
- $e3 = $e1->Add($e1,$e2);
- print $e3->{mPublicInt},"\n";
- $s = $e2->Add("a","b");
- print $s,"\n";
- example::JvDetachCurrentThread()