Examples/perl5/java/runme.pl

   1 use example;
   2
   3 example::JvCreateJavaVM(undef);
   4 example::JvAttachCurrentThread(undef, undef);
   5
   6 $e1 = new example::Example(1);
   7 print $e1->{mPublicInt},"\n";
   8
   9 $e2 = new example::Example(2);
  10 print $e2->{mPublicInt},"\n";
  11
  12 $i = $e1->Add(1,2);
  13 print $i,"\n";
  14
  15 $d = $e2->Add(1.0,2.0);
  16 print $d,"\n";
  17
  18 $d = $e2->Add("1","2");
  19 print $d,"\n";
  20
  21 $e3 = $e1->Add($e1,$e2);
  22 print $e3->{mPublicInt},"\n";
  23
  24
  25 $s = $e2->Add("a","b");
  26 print $s,"\n";
  27
  28
  29 example::JvDetachCurrentThread()