Hi monks,
I have a similar problem...I'm not sure how to use this package..moreover, I'm not sure if this package is actually right to meet my needs either.. Please have a look
package MyExceptions;
use strict;
use warnings;
use Exception::Class (
'MyExceptions',
'MyExceptions::RegionNotFound' =>
{ isa => 'MyExceptions' },
'MyExceptions::CommandNotExecuted' =>
{ isa => 'MyExceptions' }
);
1;
Then I have another module to report the exceptions handled
package ReportGenerator;
use strict;
use warnings;
sub CheckResult {
my ( $result, $info ) = @_;
#Here is want to check of $result and throw an exception of the kin
+d MyExceptions::RegionNotFound->throw(error => 'bad number');
#how do I do it??
}
The user would script something like this
$Report->CheckResult($ABC->Command(100,100),"Someinfo")
Could you throw some light on this please..I have no idea is this kind of exception handling is the right way either..