key/value hash slice operation

kvhslice operator that implements %h{1,2,3,4} syntax which
returns list of key value pairs rather than just values
(regular slices).

1 files changed, 11 insertions, 0 deletions

diff --git a/perly.y b/perly.y
index 0f98f59079..cf11a9918d 100644
--- a/perly.y
+++ b/perly.y
@@ -1215,6 +1215,17 @@ term	:	termbinop
 			  TOKEN_GETMAD($4,$$,';');
 			  TOKEN_GETMAD($5,$$,'}');
 			}
+	|	hsh '{' expr ';' '}'                 /* %hash{@keys} */
+			{ $$ = op_prepend_elem(OP_KVHSLICE,
+				newOP(OP_PUSHMARK, 0),
+				    newLISTOP(OP_KVHSLICE, 0,
+					list($3),
+					ref($1, OP_KVHSLICE)));
+			    PL_parser->expect = XOPERATOR;
+			  TOKEN_GETMAD($2,$$,'{');
+			  TOKEN_GETMAD($4,$$,';');
+			  TOKEN_GETMAD($5,$$,'}');
+			}
 	|	THING	%prec '('
 			{ $$ = $1; }
 	|	amper                                /* &foo; */