1 package org.perl.inline.java ; 2 3 4 public class InlineJavaPerlException extends Exception { 5 private Object obj ; 6 7 InlineJavaPerlException(Object o)8 public InlineJavaPerlException(Object o){ 9 super(o.toString()) ; 10 obj = o ; 11 } 12 InlineJavaPerlException(String s)13 public InlineJavaPerlException(String s){ 14 super(s) ; 15 obj = s ; 16 } 17 GetObject()18 public Object GetObject(){ 19 return obj ; 20 } 21 GetString()22 public String GetString(){ 23 return (String)obj ; 24 } 25 } 26