http://qs321.pair.com?node_id=900319


in reply to Exception::Class - how to use?

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;

[download]

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??
}

[download]

The user would script something like this 

$Report->CheckResult($ABC->Command(100,100),"Someinfo")

[download]
Could you throw some light on this please..I have no idea is this kind of exception handling is the right way either..

Replies are listed 'Best First'.
Re^2: Exception::Class - how to use?
by Corion (Patriarch) on Apr 20, 2011 at 11:59 UTC

    See Using Perl Exception Class.

    It makes little sense to ask the same question in two locations, especially in a thread that is 5 years old.

[reply]
      Yes Corion..was in fix to get this done and... i didn't notice that the thread was 5 years old.. cud finally figure out how to do this ... 
      use Exception::Class (
        'MyExceptions::Test' => {                  
                   fields => [qw{message}],
   }  
);

use Moose::Util::TypeConstraints;

class_type 'MyExceptions::ExecutionTest';

no Moose::Util::TypeConstraints;
1;

      [download]
      then to throw the exception 
      MyExceptions::ExceptionTest->throw( message => $data )

      [download]
      then the script has something like 
       if ( my $ex = $@ )
{
my $e;

  if ( $e = Exception::Class->caught('MyExceptions::ExecutionTest'))
 {       
   print $e->message;
  }
 }

      [download]
      Thanks for your help
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom