Commits

Anonymous committed 067bd1b

Extracted a _create_elem constructor from elsewhere.

Comments (0)

Files changed (1)

perl/modules/XML-Grammar-Fiction/lib/XML/Grammar/Fiction/FromProto/Parser/QnD.pm

 {
     my $self = shift;
     my $open = shift;
+    my $children =
+        shift || 
+        _new_node(
+            {
+                t => "List",
+                contents => []
+            },
+        );
 
     return
         _new_node(
             {
                 t => "Element",
                 name => $open->{name},
-                children => _new_node(
-                    {
-                        t => "List",
-                        contents => []
-                    },
-                ),
+                children => $children,
                 attrs => $open->{attrs},
             }
         );
             . "and $close->{name} on line $close->{line}"
         );
     }
-    return XML::Grammar::Fiction::FromProto::Node::Element->new(
-        name => $open->{name},
-        children => $inside,
-        attrs => $open->{attrs},
-        );
+    return $self->_create_elem($open, $inside);
 }
 
 sub _consume