Re^2: Exception::Class

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

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

Comment on Re^2: Exception::Class - how to use?

Replies are listed 'Best First'.
Re^3: Exception::Class - how to use? by Perllace (Acolyte) on Apr 21, 2011 at 13:48 UTC
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]

Replies are listed 'Best First'.

Re^3: Exception::Class - how to use?
by Perllace (Acolyte) on Apr 21, 2011 at 13:48 UTC

use Exception::Class (
        'MyExceptions::Test' => {                  
                   fields => [qw{message}],
   }  
);

use Moose::Util::TypeConstraints;

class_type 'MyExceptions::ExecutionTest';

no Moose::Util::TypeConstraints;
1;
[download]

MyExceptions::ExceptionTest->throw( message => $data )
[download]

 if ( my $ex = $@ )
{
my $e;

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

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom