rename exception class

Author: MARTIMM

lib/SemiXML.pm6

@@ -26,7 +26,7 @@ package SemiXML:auth<github:MARTIMM> {
 }
 
 #-------------------------------------------------------------------------------
-class X::SemiXML is Exception {
+class X::SemiXML::Parse is Exception {
 
   has Str $.message;
 
@@ -36,5 +36,19 @@ class X::SemiXML is Exception {
   #-----------------------------------------------------------------------------
   # prevent a stackdump, see 'Uncaught Exceptions' at
   # https://docs.perl6.org/language/exceptions#Catching_exceptions
-  multi method gist(X::SemiXML:D:) { $.message }
+  multi method gist(X::SemiXML::Parse:D:) { $.message }
+}
+
+#-------------------------------------------------------------------------------
+class X::SemiXML::Core is Exception {
+
+  has Str $.message;
+
+  #-----------------------------------------------------------------------------
+  submethod BUILD ( :$!message ) { }
+
+  #-----------------------------------------------------------------------------
+  # prevent a stackdump, see 'Uncaught Exceptions' at
+  # https://docs.perl6.org/language/exceptions#Catching_exceptions
+  multi method gist(X::SemiXML::Core:D:) { $.message }
 }

lib/SemiXML/Element.pm6

@@ -543,15 +543,15 @@ class Element does SemiXML::Node {
     my $object = $objects{$!module} if $objects{$!module}:exists;
 
     if $object.defined {
-      die X::SemiXML.new(
+      die X::SemiXML::Parse.new(
         :message(
           "Method $!method in module $!module ($object.^name()) not defined"
         )
       ) unless $object.^can($!method);
     }
 
     else {
-      die X::SemiXML.new(:message("Module $!module not defined"));
+      die X::SemiXML::Parse.new(:message("Module $!module not defined"));
     }
 
     $object

lib/SemiXML/Grammar.pm6

@@ -33,7 +33,7 @@ grammar Grammar {
           " line $l\n... $t0.substr( *-$i, *-0)",  color('red'),
           "\x[23CF]", $t1.substr( 0, 28), color('reset'), "\n\n";
 
-    my X::SemiXML $x .= new(:$message);
+    my X::SemiXML::Parse $x .= new(:$message);
     die $x;
   }
 

t/010-simple.t

@@ -16,7 +16,7 @@ subtest 'test oneliners', {
 
   throws-like(
     { $xml = parse('$st [ $f w [] hj ]'); },
-    X::SemiXML, 'Parse failure',
+    X::SemiXML::Parse, 'Parse failure',
     :message(/:s Cannot start a content body/)
   );
 
@@ -75,14 +75,16 @@ sub parse ( Str $content is copy --> Str ) {
   my Bool $r = $x.parse(
     :$content,
     :config( {
-        T => { :!config, :!parse },
+        T => { :!config, :parse },
       }
-    )
+    ),
+    :!trace
   );
 #  $content ~~ s:g/\n/ /;
 #  $content ~~ s:g/\s+/ /;
 #  ok $r, "match $content";
 
+  #diag ~$x;
   ~$x
 }
 

t/030-methods.t

@@ -79,7 +79,7 @@ throws-like {
 
   # exception is thrown when result is retrieved
   $x.Str;
-}, X::SemiXML, 'Too many nodes on top',
+}, X::SemiXML::Core, 'Too many nodes on top',
 :message(/:s Too many nodes on top level/);
 
 lives-ok {