refactor: enable perl signature Packaging.pm (#7202)

Replacing "shift" prototypes with perl signatures

lib/ProductOpener/Packaging.pm

@@ -32,8 +32,7 @@ ProductOpener::Packaging
 
 package ProductOpener::Packaging;
 
-use utf8;
-use Modern::Perl '2017';
+use ProductOpener::PerlStandards;
 use Exporter    qw< import >;
 
 use Log::Any qw($log);
@@ -69,12 +68,7 @@ Extract packaging data from packaging info / recycling instructions photo.
 
 =cut
 
-sub extract_packaging_from_image($$$$) {
-
-	my $product_ref = shift;
-	my $id = shift;
-	my $ocr_engine = shift;
-	my $results_ref = shift;
+sub extract_packaging_from_image($product_ref, $id, $ocr_engine, $results_ref) {
 
 	my $lc = $product_ref->{lc};
 
@@ -175,10 +169,7 @@ Packaging object (hash) reference with optional properties: recycling, material,
 
 =cut
 
-sub parse_packaging_from_text_phrase($$) {
-
-	my $text = shift;
-	my $text_language = shift;
+sub parse_packaging_from_text_phrase($text, $text_language) {
 
 	$log->debug("parse_packaging_from_text_phrase - start", { text => $text, text_language => $text_language }) if $log->is_debug();
 
@@ -325,10 +316,7 @@ properties (material, shape, recycling). In case of a draw, the priority is give
 
 =cut
 
-sub guess_language_of_packaging_text($$) {
-
-	my $text = shift;
-	my $potential_lcs_ref = shift;
+sub guess_language_of_packaging_text($text, $potential_lcs_ref) {
 
 	$log->debug("guess_language_of_packaging_text - start", { text => $text, potential_lcs_ref => $potential_lcs_ref }) if $log->is_debug();
 
@@ -378,9 +366,7 @@ And combines them in an updated packagings data structure.
 
 =cut
 
-sub analyze_and_combine_packaging_data($) {
-
-	my $product_ref = shift;
+sub analyze_and_combine_packaging_data($product_ref) {
 
 	$log->debug("analyze_and_combine_packaging_data - start", { existing_packagings => $product_ref->{packagings} }) if $log->is_debug();