Commits

Anonymous committed 7d371d6

Extracted the $self->_curr_line_ref() expression into someplace.

Comments (0)

Files changed (1)

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

 {
     my ($self, $sub_ref) = @_;
 
-    return $sub_ref->(\($self->_lines()->[$self->_curr_line_idx()]));
+    return $sub_ref->( $self->_curr_line_ref() );
 }
 
 sub _next_line_ref