Commits

Anonymous committed 46e66ba

Inlined and removed the $start_para closure.

  • Participants
  • Parent commits 7072c82

Comments (0)

Files changed (1)

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

                     && $event->{'tag'} eq "para"
                 )
                 {
-                    my $start_para = sub {
+                    if ($event->{'type'} eq "open")
+                    {
                         my $new_elem = 
                             XML::Grammar::Fiction::Struct::Tag::Para->new(
                                 name => "p",
                         push @{$self->_tags_stack()}, $new_elem; 
 
                         $self->_in_para(1);
-                    };
-                    if ($event->{'type'} eq "open")
-                    {
-                        $start_para->();
                     }
                     else
                     {
                         $self->_tags_stack->[-1]->append_children([ $new_elem ]);
 
                         $self->_in_para(0);
-
-                        # $start_para->();
                     }
                 }
                 elsif ($event->{'type'} eq "elem")