Commits

Anonymous committed d758c46

Refactoring: extract a method.

Comments (0)

Files changed (1)

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

     return;
 }
 
-sub _close_para
+sub _process_closed_para
 {
-    my $self = shift;
-
-    my $open = $self->_pop_tag();
-
-    $self->_assert_top_is_para($open);
+    my ($self, $open) = @_;
 
     my $children = $open->detach_children();
 
         );
     }
 
+    return;
+}
+
+sub _close_para
+{
+    my $self = shift;
+
+    my $open = $self->_pop_tag();
+
+    $self->_assert_top_is_para($open);
+
+    $self->_process_closed_para($open);
+
     $self->_in_para(0);
 
     return;