[parser] package - deduplicate coupled call sequence

Function combines call of original `package` and `package_version` when
new namespace statement is detected.

Instead of required three statements usage now consists of single function call.

Author: Branislav Zahradník

embed.fnc

@@ -2559,9 +2559,8 @@ px	|OP *	|op_unscope	|NULLOK OP *o
 ARdpx	|OP *	|op_wrap_finally|NN OP *block				\
 				|NN OP *finally
 : Used in perly.y
-p	|void	|package	|NN OP *o
-: Used in perly.y
-p	|void	|package_version|NN OP *v
+dp	|void	|package	|NN OP *name				\
+				|NULLOK OP *version
 Adp	|void	|packlist	|NN SV *cat				\
 				|NN const char *pat			\
 				|NN const char *patend			\

embed.h

@@ -1116,8 +1116,7 @@
 #   define oopsAV(a)                            Perl_oopsAV(aTHX_ a)
 #   define oopsHV(a)                            Perl_oopsHV(aTHX_ a)
 #   define op_unscope(a)                        Perl_op_unscope(aTHX_ a)
-#   define package(a)                           Perl_package(aTHX_ a)
-#   define package_version(a)                   Perl_package_version(aTHX_ a)
+#   define package(a,b)                         Perl_package(aTHX_ a,b)
 #   define pad_add_weakref(a)                   Perl_pad_add_weakref(aTHX_ a)
 #   define pad_block_start(a)                   Perl_pad_block_start(aTHX_ a)
 #   define pad_fixup_inner_anons(a,b,c)         Perl_pad_fixup_inner_anons(aTHX_ a,b,c)

op.c

@@ -6100,7 +6100,7 @@ Perl_newBINOP(pTHX_ I32 type, I32 flags, OP *first, OP *last)
                                ? 2  /* Otherwise, minimum of 2 hex digits */\
                                : NUM_HEX_CHARS(num)))))))
 
-/* To make evident, Configure with `-DDEBUGGING`, build, run 
+/* To make evident, Configure with `-DDEBUGGING`, build, run
  *  `./perl -Ilib -Dy t/op/tr.t`
  */
 void
@@ -8223,13 +8223,11 @@ Perl_newPVOP(pTHX_ I32 type, I32 flags, char *pv)
     return CHECKOP(type, pvop);
 }
 
-void
-Perl_package(pTHX_ OP *o)
+STATIC void
+S_set_package_name(pTHX_ OP *o)
 {
     SV *const sv = cSVOPo->op_sv;
 
-    PERL_ARGS_ASSERT_PACKAGE;
-
     SAVEGENERICSV(PL_curstash);
     save_item(PL_curstname);
 
@@ -8243,17 +8241,37 @@ Perl_package(pTHX_ OP *o)
     op_free(o);
 }
 
-void
-Perl_package_version( pTHX_ OP *v )
+STATIC void
+S_set_package_version( pTHX_ OP *v )
 {
     U32 savehints = PL_hints;
-    PERL_ARGS_ASSERT_PACKAGE_VERSION;
+
     PL_hints &= ~HINT_STRICT_VARS;
     sv_setsv( GvSV(gv_fetchpvs("VERSION", GV_ADDMULTI, SVt_PV)), cSVOPx(v)->op_sv );
     PL_hints = savehints;
     op_free(v);
 }
 
+/*
+=for apidoc package
+
+Function sets current stash name and if $version is not NULL, sets it as C<$VERSION>.
+
+It combines former C<package> and C<package_version> into single call.
+
+=cut
+*/
+
+void
+Perl_package (pTHX_ OP *name, OP *version)
+{
+    PERL_ARGS_ASSERT_PACKAGE;
+
+    S_set_package_name (aTHX_ name);
+    if (version)
+        S_set_package_version (aTHX_ version);
+}
+
 /* Extract the first two components of a "version" object as two 8bit integers
  * and return them packed into a single U16 in the format of PL_prevailing_version.
  * This function only ever has to cope with version objects already known
@@ -16846,7 +16864,7 @@ Perl_subsignature_append_positional(pTHX_ PADOFFSET padix, OPCODE defmode, OP *d
     signature->next_argix++;
 
     if(!padix && !defexpr)
-        /* This param has no var and no defaulting expression. There's 
+        /* This param has no var and no defaulting expression. There's
          * nothing else for us to do here.
          */
         return;