Currently testing under nom.

lib/Exemel.pm

@@ -132,11 +132,16 @@ class Exemel::Element does Exemel {
   }
 
   method parse-node ($node, $mother?) {
-    my $name = ~$node<name>;
+    $*ERR.say: "node: $node";
+    my $name = $node<name>.Str;
+    $*ERR.say: "name: $name";
     my %attribs;
     my @nodes;
 
+    $*ERR.say: "attr elems: "~$node<attribute>.elems;
+
     if ($node<attribute>) {
+      $*ERR.say: "attribute found";
       for @($node<attribute>) -> $a {
         my $an = ~$a<name>;
         %attribs{$an} = ~$a<value>;
@@ -149,7 +154,12 @@ class Exemel::Element does Exemel {
       $parent.parent = $mother;
     }
 
+    $*ERR.say: $node.caps;#.fmt('%s = %s',"\n");
+
+    $*ERR.say: "child elems: "~$node<child>.elems;
+
     if ($node<child>) {
+      $*ERR.say: "child found";
       for @($node<child>) -> $c {
         my $child;
         if ($c<cdata>) {

lib/Exemel/Grammar.pm

@@ -39,9 +39,8 @@ rule element {
   ]
 }
 
-## The \s+ below should not be necessary. Remove it once this is fixed in nom.
 rule attribute {
-   \s+ <name> '=' '"' <value>? '"'
+   <name> '=' '"' <value>? '"'
 }
 
 rule child {

t/02-parser.t

@@ -13,6 +13,7 @@ my $xml = Exemel::Document.parse($text);
 my $head = '<?xml version="1.0"?>';
 
 is $xml.root.name, 'test', 'root name parsed';
+$*ERR.say: "XML: $xml";
 is $xml.root.nodes[0].nodes[0], 'The title', 'text node parsed';
 is $xml.root.nodes[1].nodes[0].attribs<name>, 'first', 'attribute 1 parsed';
 is $xml.root.nodes[1].nodes[1].attribs<name>, 'second', 'attribute 2 parsed';