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