Commits

Anonymous committed e2cf823

Refactoring: convert to a ? : ? :.

  • Participants
  • Parent commits 6651cf1

Comments (0)

Files changed (1)

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

 
     my $l = $self->curr_line_ref();
 
-    if ($$l eq "\n")
-    {
-        return $self->_main_loop_iter_on_empty_line;
-    }
-    elsif ($$l =~ m{\G[ \t]+\n?\z})
-    {
-        return $self->_main_loop_iter_on_whitepsace;
-    }
-    else
-    {
-        return 1;
-    }
+    return
+    (
+        ($$l eq "\n")
+        ? $self->_main_loop_iter_on_empty_line
+        : ($$l =~ m{\G[ \t]+\n?\z})
+        ? $self->_main_loop_iter_on_whitepsace
+        : 1
+    );
 }