Using exceptions in Perl 6
Exceptions in Perl 6 are objects that record error information; for example: that unexpected data was received; that a network connection is no longer available; or that a needed file is missing.
All built-in exceptions inherit from Exception, which provides some basic behavior, including the storage of a backtrace and an interface for the backtrace printer.
Ad hoc exceptions work just like in Perl 5, where
die is called with a description of the error.
die "oops, something went wrong";# RESULT: «oops, something went wrong in block <unit> at my-script.p6:1␤»
Typed exceptions provide more information about the error stored within an exception object.
For example, if while executing
.zombie copy on an object, a needed path
foo/bar becomes unavailable, then an X::IO::DoesNotExist exception can be raised:
die X::IO::DoesNotExist.new(:path("foo/bar"), :trying("zombie copy"))# RESULT: «Failed to find 'foo/bar' while trying to do '.zombie copy'# in block <unit> at my-script.p6:1»
Note how the object has provided the backtrace with information about what went wrong. A user of the code can now more easily find and correct the problem.
It's possible to handle exceptional circumstances by supplying a
die X::IO::DoesNotExist.new(:path("foo/bar"), :trying("zombie copy"));CATCH# RESULT: «some kind of IO exception was caught!»
Here, we are saying that if any exception of type
X::IO occurs, then the message
some kind of IO exception was caught! will be displayed.
CATCH block uses smart matching similar to how
given/when smart matches on options, thus it's possible to catch and handle various categories of exceptions inside a
To handle all exceptions, use a
Note that the match target is a role. To allow user defined exceptions to match in the same manner, they must implement the given role. Just existing in the same namespace will look alike but won't match in a
After a CATCH has handled the exception, the block enclosing the CATCH is exited.
In other words, even when the exception is handled successfully, the rest of the code in the enclosing block will never be executed.
die "something went wrong ...";CATCHsay "This won't be said."; # but this line will be never reached since# the enclosing block will be exited immediately# OUTPUT: «something went wrong ...␤»
Compare with this:
CATCHsay "Hi! I am at the outer block!"; # OUTPUT: «Hi! I am at the outer block!␤»
See "Resuming of Exceptions", for how to return control back to where the exception originated.
To contain an exception, use a
try block. Any exception that is thrown in such a block will be caught by the implicit
CATCH block or a
CATCH block provided by the user. In the latter case, any unhandled exception will be rethrown.
is Exceptiontrysay "I'm alive!";try
I'm alive!No, I expect you to DIE Mr. Bond!I'm immortal.Just stop already!in block <unit> at exception.p6 line 21
try-block is a normal block and as such treats it's last statement as the return value of itself. We can therefore use it as a RHS.
say try // "oh no";say try // "oh no";# OUTPUT: «99999␤oh no␤»
Try blocks support
else blocks indirectly by returning the return value of the expression or Nil if an exception was thrown.
with try +"♥"else# OUTPUT: «not my number!␤»
try can also be used with a statement instead of a block:
say try "some-filename.txt".IO.slurp // "sane default";# OUTPUT: «sane default␤»
Exceptions can be thrown explicitly with the
.throw method of an
This example throws an
AdHoc exception, catches it and allows the code to continue from the point of the exception by calling the
"OBAI".say;# OUTPUT: «OHAI␤OBAI␤»
CATCH block doesn't match the exception thrown, then the exception's payload is passed on to the backtrace printing mechanism.
"OBAI".say;# RESULT: «foo# in block <unit> at my-script.p6:1»
This next example doesn't resume from the point of the exception. Instead, it continues after the enclosing block, since the exception is caught, and then control continues after the
"OBAI".say;# OUTPUT: «OBAI␤»
throw can be viewed as the method form of
die, just that in this particular case, the sub and method forms of the routine have different names.
Exceptions interrupt control flow and divert it away from the statement following the statement that threw it. Any exception handled by the user can be resumed and control flow will continue with the statement following the statement that threw the exception. To do so, call the method
.resume on the exception object.
CATCH # this is step 2die "We leave control after this."; # this is step 1say "We have continued with control flow."; # this is step 3
If an exception is thrown and not caught, it causes the program to exit with a non-zero status code, and typically prints a message to the standard error stream of the program. This message is obtained by calling the
gist method on the exception object. You can use this to suppress the default behavior of printing a backtrace along with the message:
is X::AdHocdie X::WithoutLineNumber.new(payload => "message")# prints "message\n" to $*ERR and exits, no backtrace
# OUTPUT: «X::ControlFlow::Return: Attempt to return outside of any Routine␤»# was CX::Return