This is an automated email from the git hooks/post-receive script. js pushed a commit to tag 0.55 in repository libinline-java-perl.
commit c141eaf7a6cdd6ebf911e0f7af5209c219f42d10 Author: Patrick LeBoutillier <p...@cpan.org> Date: Mon Dec 10 14:30:55 2001 +0000 Initial revision --- Java/Callback.pm | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) diff --git a/Java/Callback.pm b/Java/Callback.pm new file mode 100644 index 0000000..b1911f6 --- /dev/null +++ b/Java/Callback.pm @@ -0,0 +1,39 @@ +package Inline::Java::Callback ; + + +use strict ; + +$Inline::Java::Callback::VERSION = '0.31' ; + + +use Carp ; + + +__DATA__ + +/* + Callback to Perl... +*/ +public class InlineJavaPerlCaller { + protected InlineJavaPerlCaller(){ + } + + + class InlineJavaPerlCallerException extends Exception { + InlineJavaPerlCallerException(String s) { + super(s) ; + } + } + + + protected Object CallPerl(String pkg, String method, Object args[]) throws InlineJavaPerlCallerException { + try { + return InlineJavaServer.instance.Callback(pkg, method, args) ; + } + catch (InlineJavaServer.InlineJavaException e){ + throw new InlineJavaPerlCallerException(e.getMessage()) ; + } + } +} + + -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits