Inline::Java::Callback is a callback into Perl from Java.
SYNOPSIS
use Inline Java => <<END ;
import org.perl.inline.java.* ;
class Pod_caller extends InlineJavaPerlCaller {
public Pod_caller() throws InlineJavaException {
}
public String perl()
throws InlineJavaException, InlineJavaPerlException
{
return (String)CallPerlSub("main::perl",
new Object [] {}) ;
}
}
END
my $pc = new Pod_caller() ;
print($pc->perl() . "n") ; # prints
perl
sub perl {
return "perl" ;
}
Inline::Java::Callback allows you to call Perl functions from Java. To do this you need to create an org.perl.inline.java.InlinePerlCaller object. Here is a example of a typical use:
use Inline Java => <<END ;
import java.util.* ;
import org.perl.inline.java.* ;
class Pod_regexp extends InlineJavaPerlCaller {
public Pod_regexp() throws InlineJavaException {
}
public boolean match(String target, String pattern)
throws InlineJavaException {
try {
String m = (String)CallPerlSub("main::regexp",
new Object [] {target, pattern})
;
if (m.equals("1")){
return true ;
}
}
catch (InlineJavaPerlException pe){
// $@ is in pe.GetObject()
}
return false ;
}
}
END
my $re = new Pod_regexp() ;
my $match = $re->match("Inline::Java", "^Inline") ;
print($match . "n") ; # prints 1
sub regexp {
my $target = shift ;
my $pattern = shift ;
return ($target =~ /$pattern/) ;
}
