+ case 70:
+#line 605 "perly.y"
+ {
+ package((ps[-3].val.opval));
+
+ if ((ps[-4].val.opval)) {
+ package_version((ps[-4].val.opval));
+ }
+ class_setup_stash(PL_curstash);
+ if ((ps[-2].val.opval)) {
+ class_apply_attributes(PL_curstash, (ps[-2].val.opval));
+ }
+ }
+
+ break;
+
+ case 71:
+#line 617 "perly.y"
+ {
+ /* a block is a loop that happens once */
+ (yyval.opval) = newWHILEOP(0, 1, NULL,
+ NULL, block_end((ps[-3].val.ival), (ps[-1].val.opval)), NULL, 0);
+ if (parser->copline > (line_t)(ps[-4].val.ival))
+ parser->copline = (line_t)(ps[-4].val.ival);
+ }
+
+ break;
+
+ case 72:
+#line 625 "perly.y"
+ {