Anonymous avatar Anonymous committed 902686b

Refactoring: removed another instance of _with_curr_line().

Comments (0)

Files changed (1)

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

             }
             elsif ($which_tag eq "entity")
             {
-                $self->_with_curr_line(
-                    sub {
-                        my $l = shift;
-                        if ($$l !~ m{\G(\&\w+;)}g)
-                        {
-                            Carp::confess("Cannot match entity (e.g: \""\") at line " .
-                                $self->_get_line_num()
-                            );
-                        }
-                        push @contents, HTML::Entities::decode_entities($1);
-                    }
-                );
+                my $l = $self->_curr_line_ref();
+
+                if (my ($text) = ($$l =~ m{\G(\&\w+;)}g))
+                {
+                    push @contents, HTML::Entities::decode_entities($text);
+                }
+                else
+                {
+                    Carp::confess("Cannot match entity (e.g: \""\") at line " .
+                        $self->_get_line_num()
+                    );
+                }
+
                 redo CONTENTS_LOOP;
             }
         }
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.