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

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.

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;
    then to throw the exception
    MyExceptions::ExceptionTest->throw( message => $data )
    then the script has something like
    if ( my $ex = $@ ) { my $e; if ( $e = Exception::Class->caught('MyExceptions::ExecutionTest')) { print $e->message; } }
    Thanks for your help