Add test case to cover GH #192.

The parsing of hash constructors has been improved in PPI and this bug is now fixed via Perl-Critic/PPI#92.
Perl-Critic · Nov 3, 2014 · 5b4ab50 · 5b4ab50
1 parent 05c7209
commit 5b4ab50
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/t/ValuesAndExpressions/ProhibitCommaSeparatedStatements.run b/t/ValuesAndExpressions/ProhibitCommaSeparatedStatements.run
@@ -291,6 +291,14 @@ sub new {
     return bless { foo => 1, bar => 2 }, __PACKAGE__;
 }
 
+#-----------------------------------------------------------------------------
+
+## name Hashref seen as block (GH #192)
+## failures 0
+## cut
+
+my $o = shift || {'file' => 1, 'exec' => 1};
+
 #-----------------------------------------------------------------------------
 # Local Variables:
 #   mode: cperl