Commits

Anonymous committed ec2b5a6

Extract _main_loop_iter_body_prelude .

Comments (0)

Files changed (3)

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

     return ($is_tag_cond, $is_close);
 }
 
-sub _main_loop_iter_body
+sub _main_loop_iter_body_prelude
 {
     my $self = shift;
 
     $self->skip_space();
 
-    $self->_ret_tag(scalar($self->_look_for_and_handle_tag()));
-
-    return;
+    return 1;
 }
 
 before '_parse_all' => sub {

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

     return $self->_main_loop_iter_body();
 }
 
+sub _attempt_to_calc_new_ret_tag
+{
+    my $self = shift;
+    
+    $self->_ret_tag(scalar($self->_look_for_and_handle_tag()));
+
+    return;
+}
+
+sub _main_loop_iter_body
+{
+    my $self = shift;
+
+    if ($self->_main_loop_iter_body_prelude())
+    {
+        $self->_attempt_to_calc_new_ret_tag();
+    }
+
+    return;
+}
+
 =head1 NAME
 
 XML::Grammar::Fiction::FromProto::Parser::XmlIterator - line iterator base

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

     return ($is_tag_cond, $is_close);
 }
 
-sub _main_loop_iter_body
+sub _main_loop_iter_body_prelude
 {
     my $self = shift;
 
         return;
     }
     
-    $self->_ret_tag(scalar($self->_look_for_and_handle_tag()));
-
-    return;
+    return 1;
 }
 
 
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.