$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 executed, so I do something like this..

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


##</code><code>##


sub CheckResult
{

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

#Now, I need something like this ..

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