Hi Monks, This is my perl problem I have a script something like

$object1 = $ABC->Find('test1');

#Then I want to call a subroutine called CheckResult in #Report.pm

Report->CheckResult($object,”Finding the value”);

#In another case I want to report if a particular command #was execute
+d, so I do something like this..

Report->CheckResult($ABC->Command(100,100),”Performing the command”);
[download]

Now in Report.pm #Report.pm

sub CheckResult
{

my ($result,$information) = @_;

#Now, I need something like this ..

If( $result->isa(‘MyException’))
{
 #Some code to create the report
}
}
[download]

How do I use exception class and how to check if an exception is raised,and if so perform the task necessary..?? Thanks, Perllace