Commits

Anonymous committed f63ed32

Add the create_start_para.

Comments (0)

Files changed (1)

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

     return;
 }
 
-sub _start_para
+sub _create_start_para
 {
     my $self = shift;
 
-    my $new_elem = 
+    return
         XML::Grammar::Fiction::Struct::Tag::Para->new(
             name => "p",
             is_standalone => 0,
             attrs => [],
             children => [],
         );
+}
 
-    $self->_push_tag($new_elem);
+sub _start_para
+{
+    my $self = shift;
+
+    $self->_push_tag($self->_create_start_para());
 
     $self->_in_para(1);