Commits

Anonymous committed 776096a

Extracted _new_list from everywhere.

Comments (0)

Files changed (1)

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

     my $open = shift;
     my $children =
         shift || 
-        $self->_new_node(
-            {
-                t => "List",
-                contents => []
-            },
-        );
+        $self->_new_list([]);
 
     return
         $self->_new_node(
     # If it's whitespace - return an empty list.
     if ((scalar(@ret) == 1) && (ref($ret[0]) eq "") && ($ret[0] !~ m{\S}))
     {
-        return 
-            $self->_new_node(
-                {
-                    t => 'List',
-                    contents => []
-                }
-            );
+        return $self->_new_list([]);
     }
 
-    return 
-        $self->_new_node(
-            {
-                t => "List",
-                contents => \@ret,
-            }
-        );
+    return $self->_new_list(\@ret);
 }
 
 sub _consume_paragraph
             {
                 t => "InnerDesc",
                 start => $start_line,
-                children => _new_node->(
-                    {
-                        t => "List",
-                        contents => $inside,
-                    }
-                ),
+                children => $self->_new_list($inside),
             }
         );
 }
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.