1 files changed, 21 insertions, 0 deletions
diff --git a/jpl/PerlInterpreter/PerlInterpreter.java b/jpl/PerlInterpreter/PerlInterpreter.java
new file mode 100644
index 0000000000..c26a4f2ba4
--- /dev/null
+++ b/jpl/PerlInterpreter/PerlInterpreter.java
@@ -0,0 +1,21 @@
+class PerlInterpreter {
+    static boolean initted = false;
+
+    public native void init(String s);
+    public native void eval(String s);
+
+//    public native long op(long i);
+
+    public PerlInterpreter fetch () {
+	if (!initted) {
+	    init("$JPL::DEBUG = $ENV{JPLDEBUG}");
+	    initted = true;
+	}
+	return this;
+    }
+
+    static {
+	System.loadLibrary("PerlInterpreter");
+    }
+}
+