Data commit

Task/Exceptions/Raku/exceptions-1.raku

@@ -0,0 +1,17 @@
+try {
+    die "Help I'm dieing!";
+    CATCH {
+        when X::AdHoc { note .Str.uc; say "Cough, Cough, Aiee!!" }
+        default { note "Unexpected exception, $_!" }
+    }
+}
+
+say "Yay. I'm alive.";
+
+die "I'm dead.";
+
+say "Arrgh.";
+
+CATCH {
+    default { note "No you're not."; say $_.Str; }
+}

Task/Exceptions/Raku/exceptions-2.raku

@@ -0,0 +1,13 @@
+sub f(){
+        ENTER { note '1) f has been entered' }
+        LEAVE { note '2) f has been left' }
+        say '3) here be dragons';
+        die '4) that happend to be deadly';
+}
+
+f();
+say '5) am I alive?';
+
+CATCH {
+        when X::AdHoc { note q{6) no, I'm dead}; }
+}