- Adds an .origin field to the X::Cro::Uri::ParseError exception so t…

…hat consuming code can add origination information if so desired.

lib/Cro/Uri.pm6

@@ -11,8 +11,14 @@ package EXPORT::decode-percents {
 class X::Cro::Uri::ParseError is Exception {
     has $.reason = 'malformed syntax';
     has $.uri-string is required;
+    has $.origin;
+
     method message() {
-        "Unable to parse URI '$!uri-string': $!reason"
+      [~](
+        "Unable to parse URI '$!uri-string'",
+        ($.origin ?? " from { $!origin }" !! ''),
+        ": $!reason"
+      )
     }
 }
 
@@ -548,4 +554,4 @@ class Cro::Uri does Cro::ResourceIdentifier {
         token modifier-level4 { <prefix> | '*' }
         token prefix { ':' <[\x31..\x39]> \d ** 0..3 }
     }
-}
+}