Commits

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

Extract a method.

  • Participants
  • Parent commits 564b67e

Comments (0)

Files changed (1)

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

     return ($is_tag_cond, $is_close);
 }
 
+sub _main_loop_iter_on_empty_line
+{
+    my $self = shift;
+
+    if ($self->_top_is_para())
+    {
+        $self->_close_para();
+    }
+
+    $self->next_line_ref();
+
+    return;
+}
+
 sub _main_loop_iter_body_prelude
 {
     my $self = shift;
 
     if ($$l eq "\n")
     {
-        if ($self->_top_is_para())
-        {
-            $self->_close_para();
-        }
-        $self->next_line_ref();
-        return;
+        return $self->_main_loop_iter_on_empty_line;
     }
     elsif ($$l =~ m{\G([ \t]+)\n?\z})
     {