[parser] package_v544 - deduplicate coupled call sequence

Function combines call of `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

@@ -2486,6 +2486,8 @@ ARdpx	|OP *	|op_wrap_finally|NN OP *block				\
 				|NN OP *finally
 : Used in perly.y
 p	|void	|package	|NN OP *o
+p	|void	|package_v544	|NN OP *o				\
+				|NULLOK OP *v
 : Used in perly.y
 p	|void	|package_version|NN OP *v
 Adp	|void	|packlist	|NN SV *cat				\

embed.h

@@ -1118,6 +1118,7 @@
 #   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_v544(a,b)                    Perl_package_v544(aTHX_ a,b)
 #   define package_version(a)                   Perl_package_version(aTHX_ a)
 #   define pad_add_weakref(a)                   Perl_pad_add_weakref(aTHX_ a)
 #   define pad_block_start(a)                   Perl_pad_block_start(aTHX_ a)

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
@@ -8243,6 +8243,27 @@ Perl_package(pTHX_ OP *o)
     op_free(o);
 }
 
+/*
+=for apidoc package_v544
+
+Function combines C<package> and C<package_version>
+into single call.
+
+Available since: v5.44
+
+=cut
+*/
+
+void
+Perl_package_v544(pTHX_ OP *o, OP *v)
+{
+    PERL_ARGS_ASSERT_PACKAGE_V544;
+
+    package (o);
+    if (v)
+        package_version (v);
+}
+
 void
 Perl_package_version( pTHX_ OP *v )
 {
@@ -16846,7 +16867,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;