package MyExceptions; use strict; use warnings; use Exception::Class ( 'MyExceptions', 'MyExceptions::RegionNotFound' => { isa => 'MyExceptions' }, 'MyExceptions::CommandNotExecuted' => { isa => 'MyExceptions' } ); 1; #### package ReportGenerator; use strict; use warnings; sub CheckResult { my ( $result, $info ) = @_; #Here is want to check of $result and throw an exception of the kind MyExceptions::RegionNotFound->throw(error => 'bad number'); #how do I do it?? } #### $Report->CheckResult($ABC->Command(100,100),"Someinfo")