Re^4: Using Perl Exception Class

[Perllace]

Hi Corion, I'm sorry about this..I'm really ignorant about exceptions...

As of now, I have a module of the kind

package MyExceptions;

use strict;
use warnings;

use Exception::Class (
    'MyExceptions',
    'MyExceptions::RegionNotFound' =>
    { isa => 'MyExceptions' },
    'MyExceptions::CommandNotExecuted' =>
    { isa => 'MyExceptions' }
);

The other module is

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');
#I'm not sure how to do this..
}
1;

The user would inturn script something like this $Report->CheckResult($ABC->Command(100,100),"Tapping Home");

Thanks for your help..

[Corion]

Have you read the documentation I linked? Searching the documentation for "throw" shows me:

# try
eval { MyException->throw( error => 'I feel funny.' ) };

If you are unclear about the concept of structured exceptions in Perl, I can only recommend to avoid them alltogether. Structured exceptions are not well-supported in Perl, as the common way of exceptions are strings, as documented in die. If you feel you need to use something else, you should have good reasons to do so.