Merge pull request #4831 from Raku/coke/examples-1

Fix some example compilation tests

Author: coke

doc/Type/Attribute.rakudoc

@@ -82,7 +82,7 @@ error.
         has $.a is required
     }
     my $c = C.new;
-    CATCH{ default { say .^name, ': ', .Str } }
+    CATCH { default { say .^name, ': ', .Str } }
     # OUTPUT: «X::Attribute::Required: The attribute '$!a' is required, but you did not provide a value for it.␤»
 
 This trait also allows attributes to be typed with types that have a
@@ -104,7 +104,7 @@ class D {
     has $.a is required("it is a good idea");
 }
 my $d = D.new;
-CATCH{ default { say .^name, ': ', .Str } }
+CATCH { default { say .^name, ': ', .Str } }
 # OUTPUT: «X::Attribute::Required: The attribute '$!a' is required because it is a good idea,␤but you did not provide a value for it.␤»
 =end code
 

doc/Type/Failure.rakudoc

@@ -71,7 +71,7 @@ would be a L<C<Str>|/type/Str> with an error message. A list of payloads is also
 
     my $e = Failure.new(now.DateTime, 'WELP‼');
     say $e;
-    CATCH{ default { say .^name, ': ', .Str } }
+    CATCH { default { say .^name, ': ', .Str } }
     # OUTPUT: «X::AdHoc: 2017-09-10T11:56:05.477237ZWELP‼␤»
 
 =head2 method handled