Simplify example

Author: zoffixznet

doc/Type/Failure.pod6

@@ -42,8 +42,10 @@ Defined as:
 
 Returns the L<Exception> object that the failure wraps.
 
-    sub f() { fail }; my $v = f; $v.exception.throw;
-    CATCH { default { put .^name, ': ', .Str } };
+    sub failer() { fail };
+    my $failure = failer;
+    my $ex = $failure.exception;
+    put $ex.^name, ': ', $ex.Str;
     # OUTPUT: «X::AdHoc: Failed␤»
 
 =head2 method Bool