Log::Report::Exception(3) a collected report


# created within a try block
try { error "help!" };
my $exception = [email protected]>wasFatal;
$exception->throw if $exception;
[email protected]>reportFatal; # combination of above two lines
my $message = $exception->message; # the Log::Report::Message
if($message->inClass('die')) ...
if($exception->inClass('die')) ... # same
if([email protected]>wasFatal(class => 'die')) ... # same


In Log::Report, exceptions are not as extended as available in languages as Java: you do not create classes for them. The only thing an exception object does, is capture some information about an (untranslated) report.



 -Option     --Default
  message      <required>
  reason       <required>
  report_opts  {}
message => Log::Report::Message
reason => REASON
report_opts => HASH


Returns whether this exception has a severity which makes it fatal when thrown. See Log::Report::Util::is_fatal().


  if($ex->isFatal) { $ex->throw(reason => 'ALERT') }
  else { $ex->throw }
$obj->message( [$message] )
Change the $message of the exception, must be a Log::Report::Message object.

When you use a "Log::Report::Message" object, you will get a new one returned. Therefore, if you want to modify the message in an exception, you have to re-assign the result of the modification.


 $e->message->concat('!!')); # will not work!
 $e->message(__x"some message {msg}", msg => $xyz);
$obj->reason( [$reason] )


Check whether any of the classes listed in the message match $class (string) or the Regexp. This uses Log::Report::Message::inClass().
$obj->print( [$fh] )
The default filehandle is STDOUT.


 print $exception;  # via overloading
 $exception->print; # OO style
Insert the message contained in the exception into the currently defined dispatchers. The "throw" name is commonly known exception related terminology for "report".

The %options overrule the captured options to Log::Report::report(). This can be used to overrule a destination. Also, the reason can be changed.

example: overrule defaults to report

 try { print {to => 'stderr'}, ERROR => 'oops!' };
 [email protected]>reportFatal(to => 'syslog');
 $exception->throw(to => 'syslog');
 [email protected]>wasFatal->throw(reason => 'WARNING');
$obj->toHTML( [$locale] )
[1.11] as toString(), and escape HTML volatile characters.
$obj->toString( [$locale] )
Prints the reason and the message. Differently from throw(), this only represents the textual content: it does not re-cast the exceptions to higher levels.

example: printing exceptions

 print $_->toString for [email protected]>exceptions;
 print $_ for [email protected]>exceptions;   # via overloading


overload: stringification
Produces ``reason: message''.


Copyrights 2007-2016 by [Mark Overmeer]. For other contributors see ChangeLog.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://www.perl.com/perl/misc/Artistic.html