1. Shlomi Fish
  2. Fiction-XML

Commits

shl...@52c325ad-5fd0-0310-8a0f-c43feede02cc  committed 6651cf1

Extract a method.

  • Participants
  • Parent commits 65bbdcd
  • Branches default

Comments (0)

Files changed (1)

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

View file
  • Ignore whitespace
     return;
 }
 
+sub _main_loop_iter_on_whitepsace
+{
+    my $self = shift;
+
+    $self->_add_to_top_tag( $self->_new_text([" "]) );
+
+    $self->next_line_ref();
+
+    return;
+}
+
 sub _main_loop_iter_body_prelude
 {
     my $self = shift;
     }
     elsif ($$l =~ m{\G[ \t]+\n?\z})
     {
-        $self->_add_to_top_tag( $self->_new_text([" "]) );
-
-        $self->next_line_ref();
-
-        return;
+        return $self->_main_loop_iter_on_whitepsace;
     }
     else
     {