Q Quoted strings do not have to have content.

Author: drgrice1

src/pg.grammar

@@ -344,7 +344,7 @@ semicolon { StatementEnd | automaticSemicolon }
 
 @skip {} {
     StringDoubleQuoted { '"' interpolationContent* '"' }
-    StringQQuoted { kw<"q"> injectedComments? QuoteLikeStartDelimiter StringContent QuoteLikeEndDelimiter }
+    StringQQuoted { kw<"q"> injectedComments? QuoteLikeStartDelimiter StringContent* QuoteLikeEndDelimiter }
     StringQqQuoted { kw<"qq"> injectedComments? QuoteLikeStartDelimiter interpolationContent* QuoteLikeEndDelimiter }
     QWList { kw<"qw"> injectedComments? QWListContent { QuoteLikeStartDelimiter QWElement* QuoteLikeEndDelimiter } }
     PatternMatchM {

test/perl-quote-and-quote-like-operators.txt

@@ -146,6 +146,7 @@ q/a b~~/c d/;
 q # this is a comment
     # this is another comment
     (abc);
+q{};
 
 ==>
 
@@ -173,7 +174,8 @@ Program(
     ExpressionStatement(
         StringQQuoted(q, Comment, Comment, QuoteLikeStartDelimiter, StringContent, QuoteLikeEndDelimiter),
         StatementEnd(";")
-    )
+    ),
+    ExpressionStatement(StringQQuoted(q, QuoteLikeStartDelimiter, QuoteLikeEndDelimiter), StatementEnd(";"))
 )
 
 # qq quoted strings
@@ -189,6 +191,7 @@ qq[ab[c]d];
 qq # Comment
     # another Comment
     (content $var more);
+qq{};
 
 ==>
 
@@ -284,7 +287,8 @@ Program(
             QuoteLikeEndDelimiter
         ),
         StatementEnd(";")
-    )
+    ),
+    ExpressionStatement(StringQqQuoted(qq, QuoteLikeStartDelimiter, QuoteLikeEndDelimiter), StatementEnd(";"))
 )
 
 # qw lists