Commits

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

Extract a method.

  • Participants
  • Parent commits 690c6a3

Comments (0)

Files changed (1)

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

     return $self->_start_para();
 }
 
-sub _handle_open_saying
+sub _create_open_saying_tag
 {
     my $self = shift;
     my $event = shift;
 
-    my $new_tag =
+    return
         XML::Grammar::Fiction::Struct::Tag->new(
             {
                 name => "saying",
                 children => [],
             }
         );
+}
 
-    $self->_push_tag($new_tag);
+sub _handle_open_saying
+{
+    my ($self, $event) = @_;
+
+    $self->_push_tag($self->_create_open_saying_tag($event));
 
     $self->_in_saying(1);