Commit | Line | Data |
d50cb536 |
1 | class Sample { |
2 | public static void main(String[] args) { |
3 | Sample sam = new Sample(); |
4 | System.out.println(sam.foo("manny","moe","jack")); |
5 | System.out.println(sam.foo(1)); |
6 | System.out.println(sam.foo(3.0)); |
7 | sam.foo(); |
8 | } |
9 | |
10 | public static int thrice(int i) { |
11 | return i * 3; |
12 | } |
13 | |
14 | perl void foo() {{ |
15 | use POSIX; |
16 | print "TZ = ", POSIX::tzname(), "\n"; |
17 | print "Got to ${self}->foo() method\n"; |
18 | print "foo__I(2) = ", $self->foo__I__I(2),"\n"; |
19 | print "thrice(123) = ", JPL::Sample->thrice__I__I(123), "\n"; |
20 | print "thrice(12) = ", JPL::Sample->thrice__I__I(12), "\n"; |
21 | print $self->foo__sss__s("MANNY", "MOE", "JACK"), "\n"; |
22 | print 41 + $self->foo__sss__s("1", "2", "3"), "\n"; |
23 | print "Perl version is $]\n"; |
24 | }} |
25 | |
26 | perl int foo(int a) {{ |
27 | $a + $a; |
28 | }} |
29 | |
30 | perl double foo(double a) {{ |
31 | use JPL::Class 'java::util::Random'; |
32 | $rng = java::util::Random->new(); |
33 | print "RNG = $rng\n"; |
34 | print $rng->nextDouble____D(), "\n"; |
35 | print $rng->nextDouble____D(), "\n"; |
36 | print $rng->nextDouble____D(), "\n"; |
37 | print $rng->nextDouble____D(), "\n"; |
38 | return $a * $a; |
39 | }} |
40 | |
41 | perl String foo( String a, |
42 | String b, |
43 | String c ) {{ |
44 | print "a = $a, b = $b, c = $c\n"; |
45 | join "+", $a, $b, $c; |
46 | }} |
47 | |
48 | } |