Tidied.

Kernel/GenericInterface/ErrorHandling/RequestRetry.pm

@@ -85,7 +85,7 @@ sub Run {
     return $ModuleConfigCheck if !$ModuleConfigCheck->{Success};
 
     # Set basic information including possibly existing past execution data.
-    my $RetryCount = $Param{PastExecutionData}->{RetryCount} // 0;
+    my $RetryCount      = $Param{PastExecutionData}->{RetryCount} // 0;
     my $CurrentDateTime = $Kernel::OM->Create('Kernel::System::DateTime');
 
     # Get date-time of last (=this) request. If we are not in a retry, use current date-time.

Kernel/GenericInterface/Event/Handler.pm

@@ -844,7 +844,7 @@ sub _ConditionCheck {
                     for my $ArrayField (@ArrayFields) {
                         next ARRAYFIELD if ref $Param{Data}->{$ArrayField} ne '';
                         if ( $Param{Data}->{$ArrayField} !~ $ActualCondition->{Fields}->{$FieldName}->{Match} ) {
-                            next ARRAYFIELD
+                            next ARRAYFIELD;
                         }
 
                         $FieldSuccess++;

Kernel/GenericInterface/Mapping/Simple.pm

@@ -239,7 +239,7 @@ sub Map {
         # check if we have a value mapping for the specific key
         my $ValueMap;
         if ( $Config->{ValueMap} && $Config->{ValueMap}->{$NewKey} ) {
-            $ValueMap = $Config->{ValueMap}->{$NewKey}
+            $ValueMap = $Config->{ValueMap}->{$NewKey};
         }
 
         if ($ValueMap) {

Kernel/GenericInterface/Operation/Ticket/Common.pm

@@ -301,7 +301,7 @@ sub ValidateCustomer {
 
     # if customer is not registered in the database, check if email is valid
     if ( !IsHashRefWithData( \%CustomerData ) ) {
-        return $Self->ValidateFrom( From => $Param{CustomerUser} )
+        return $Self->ValidateFrom( From => $Param{CustomerUser} );
     }
 
     # if ValidID is present, check if it is valid!
@@ -742,7 +742,7 @@ sub ValidatePendingTime {
     # check that no time attribute is empty or negative
     for my $TimeAttribute ( sort keys %{ $Param{PendingTime} } ) {
         return if $Param{PendingTime}->{$TimeAttribute} eq '';
-        return if int $Param{PendingTime}->{$TimeAttribute} < 0,
+        return if int $Param{PendingTime}->{$TimeAttribute} < 0;
     }
 
     # try to convert pending time to a DateTime object
@@ -783,7 +783,7 @@ sub ValidateAutoResponseType {
     return if !%AutoResponseType;
 
     for my $AutoResponseType ( values %AutoResponseType ) {
-        return 1 if $AutoResponseType eq $Param{AutoResponseType}
+        return 1 if $AutoResponseType eq $Param{AutoResponseType};
     }
     return;
 }
@@ -1273,7 +1273,7 @@ sub SetDynamicFieldValue {
 
     return {
         Success => $Success,
-        }
+    };
 }
 
 =head2 CreateAttachment()

Kernel/GenericInterface/Operation/Ticket/TicketCreate.pm

@@ -349,7 +349,7 @@ sub Run {
 
     my $PermissionUserID = $UserID;
     if ( $UserType eq 'Customer' ) {
-        $UserID = $Kernel::OM->Get('Kernel::Config')->Get('CustomerPanelUserID')
+        $UserID = $Kernel::OM->Get('Kernel::Config')->Get('CustomerPanelUserID');
     }
 
     # check needed hashes
@@ -774,7 +774,7 @@ sub _CheckTicket {
     # if everything is OK then return Success
     return {
         Success => 1,
-        }
+    };
 }
 
 =head2 _CheckArticle()
@@ -1444,10 +1444,10 @@ sub _TicketCreate {
 
     # Create article.
     my $ArticleID = $ArticleBackendObject->ArticleCreate(
-        NoAgentNotify => $Article->{NoAgentNotify} || 0,
-        TicketID      => $TicketID,
-        SenderTypeID  => $Article->{SenderTypeID}  || '',
-        SenderType    => $Article->{SenderType}    || '',
+        NoAgentNotify        => $Article->{NoAgentNotify} || 0,
+        TicketID             => $TicketID,
+        SenderTypeID         => $Article->{SenderTypeID} || '',
+        SenderType           => $Article->{SenderType} || '',
         IsVisibleForCustomer => $Article->{IsVisibleForCustomer},
         From                 => $From,
         To                   => $To,
@@ -1590,7 +1590,7 @@ sub _TicketCreate {
             Success      => 0,
             ErrorMessage => 'Could not get new ticket information, please contact the system'
                 . ' administrator',
-            }
+        };
     }
 
     # get web service configuration

Kernel/GenericInterface/Operation/Ticket/TicketGet.pm

@@ -326,7 +326,7 @@ sub Run {
         $ArticleSenderType = $Param{Data}->{ArticleSenderType};
     }
     elsif ( IsStringWithData( $Param{Data}->{ArticleSenderType} ) ) {
-        $ArticleSenderType = [ $Param{Data}->{ArticleSenderType} ]
+        $ArticleSenderType = [ $Param{Data}->{ArticleSenderType} ];
     }
 
     # By default, do not include HTML body as attachment, unless it is explicitly requested.

Kernel/GenericInterface/Operation/Ticket/TicketUpdate.pm

@@ -363,7 +363,7 @@ sub Run {
     my $PermissionUserID = $UserID;
 
     if ( $UserType eq 'Customer' ) {
-        $UserID = $Kernel::OM->Get('Kernel::Config')->Get('CustomerPanelUserID')
+        $UserID = $Kernel::OM->Get('Kernel::Config')->Get('CustomerPanelUserID');
     }
 
     # get ticket object
@@ -548,7 +548,7 @@ sub Run {
                 return {
                     Success => 0,
                     %{$ArticleCheck},
-                    }
+                };
             }
             return $Self->ReturnError( %{$ArticleCheck} );
         }
@@ -1474,7 +1474,7 @@ sub _CheckUpdatePermissions {
 
     return {
         Success => 1,
-        }
+    };
 }
 
 =head2 _TicketUpdate()
@@ -1562,7 +1562,7 @@ sub _TicketUpdate {
                 Success => 0,
                 Errormessage =>
                     'Ticket title could not be updated, please contact system administrator!',
-                }
+            };
         }
     }
 
@@ -1594,7 +1594,7 @@ sub _TicketUpdate {
                 Success => 0,
                 ErrorMessage =>
                     'Ticket queue could not be updated, please contact system administrator!',
-                }
+            };
         }
     }
 
@@ -1626,7 +1626,7 @@ sub _TicketUpdate {
                 Success => 0,
                 Errormessage =>
                     'Ticket lock could not be updated, please contact system administrator!',
-                }
+            };
         }
     }
 
@@ -1659,7 +1659,7 @@ sub _TicketUpdate {
                 Success => 0,
                 Errormessage =>
                     'Ticket type could not be updated, please contact system administrator!',
-                }
+            };
         }
     }
 
@@ -1715,14 +1715,14 @@ sub _TicketUpdate {
                         Errormessage =>
                             'Ticket pendig time could not be updated, please contact system'
                             . ' administrator!',
-                        }
+                    };
                 }
             }
             else {
                 return $Self->ReturnError(
                     ErrorCode    => 'TicketUpdate.MissingParameter',
                     ErrorMessage => 'Can\'t set a ticket on a pending state without pendig time!'
-                    )
+                );
             }
         }
 
@@ -1753,7 +1753,7 @@ sub _TicketUpdate {
                 Success => 0,
                 Errormessage =>
                     'Ticket state could not be updated, please contact system administrator!',
-                }
+            };
         }
     }
 
@@ -1819,7 +1819,7 @@ sub _TicketUpdate {
                 Success => 0,
                 Errormessage =>
                     'Ticket service could not be updated, please contact system administrator!',
-                }
+            };
         }
     }
 
@@ -1861,7 +1861,7 @@ sub _TicketUpdate {
                 Success => 0,
                 Errormessage =>
                     'Ticket SLA could not be updated, please contact system administrator!',
-                }
+            };
         }
     }
 
@@ -1905,7 +1905,7 @@ sub _TicketUpdate {
                 Success => 0,
                 Errormessage =>
                     'Ticket customer user could not be updated, please contact system administrator!',
-                }
+            };
         }
     }
 
@@ -1938,7 +1938,7 @@ sub _TicketUpdate {
                 Success => 0,
                 Errormessage =>
                     'Ticket priority could not be updated, please contact system administrator!',
-                }
+            };
         }
     }
 
@@ -1975,7 +1975,7 @@ sub _TicketUpdate {
                 Success => 0,
                 Errormessage =>
                     'Ticket owner could not be updated, please contact system administrator!',
-                }
+            };
         }
     }
 
@@ -2015,7 +2015,7 @@ sub _TicketUpdate {
                 Success => 0,
                 Errormessage =>
                     'Ticket responsible could not be updated, please contact system administrator!',
-                }
+            };
         }
     }
 
@@ -2075,10 +2075,10 @@ sub _TicketUpdate {
 
         # Create article.
         $ArticleID = $ArticleBackendObject->ArticleCreate(
-            NoAgentNotify => $Article->{NoAgentNotify} || 0,
-            TicketID      => $TicketID,
-            SenderTypeID  => $Article->{SenderTypeID}  || '',
-            SenderType    => $Article->{SenderType}    || '',
+            NoAgentNotify        => $Article->{NoAgentNotify} || 0,
+            TicketID             => $TicketID,
+            SenderTypeID         => $Article->{SenderTypeID} || '',
+            SenderType           => $Article->{SenderType} || '',
             IsVisibleForCustomer => $Article->{IsVisibleForCustomer},
             From                 => $From,
             To                   => $To,
@@ -2105,7 +2105,7 @@ sub _TicketUpdate {
                 Success => 0,
                 ErrorMessage =>
                     'Article could not be created, please contact the system administrator'
-                }
+            };
         }
 
         # time accounting
@@ -2249,7 +2249,7 @@ sub _TicketUpdate {
 
     # get Article and ArticleAttachement
     my %ArticleData = $ArticleBackendObject->ArticleGet(
-        ArticleID => $ArticleID || $LastArticleID,
+        ArticleID     => $ArticleID || $LastArticleID,
         DynamicFields => 1,
         TicketID      => $TicketID,
     );

Kernel/GenericInterface/Requester.pm

@@ -315,7 +315,7 @@ sub Run {
 
     if ( !$FunctionResult->{Success} ) {
 
-        my $Summary = $FunctionResult->{ErrorMessage} // 'TransportObject returned an error, cancelling Request';
+        my $Summary     = $FunctionResult->{ErrorMessage} // 'TransportObject returned an error, cancelling Request';
         my $ErrorReturn = $Self->_HandleError(
             %HandleErrorData,
             DataInclude => \%DataInclude,
@@ -340,7 +340,7 @@ sub Run {
                 next RESPONSEKEY if $ResponseKey eq 'ErrorMessage';
 
                 # Add any other key from the invoker HandleResponse() in Data.
-                $ErrorReturn->{$ResponseKey} = $Response->{$ResponseKey}
+                $ErrorReturn->{$ResponseKey} = $Response->{$ResponseKey};
             }
         }
 
@@ -441,7 +441,7 @@ sub Run {
 
     if ( !$FunctionResult->{Success} ) {
 
-        my $Summary = $FunctionResult->{ErrorMessage} // 'InvokerObject returned an error, cancelling Request';
+        my $Summary     = $FunctionResult->{ErrorMessage} // 'InvokerObject returned an error, cancelling Request';
         my $ErrorReturn = $Self->_HandleError(
             %HandleErrorData,
             DataInclude => \%DataInclude,
@@ -460,7 +460,7 @@ sub Run {
                 next RESPONSEKEY if $ResponseKey eq 'ErrorMessage';
 
                 # Add any other key from the invoker HandleResponse() in Data.
-                $ErrorReturn->{$ResponseKey} = $FunctionResult->{$ResponseKey}
+                $ErrorReturn->{$ResponseKey} = $FunctionResult->{$ResponseKey};
             }
         }
 

Kernel/Modules/AdminAppointmentCalendarManage.pm

@@ -872,8 +872,8 @@ sub _TicketAppointments {
     my $LayoutObject = $Kernel::OM->Get('Kernel::Output::HTML::Layout');
 
     $TicketAppointments{QueueIDStrg} = $LayoutObject->AgentQueueListOption(
-        Class => 'Validate_Required Modernize ' . ( $Param{Error}->{QueueIDInvalid} // '' ),
-        Data => \%AvailableQueues,
+        Class              => 'Validate_Required Modernize ' . ( $Param{Error}->{QueueIDInvalid} // '' ),
+        Data               => \%AvailableQueues,
         Multiple           => 1,
         Size               => 0,
         Name               => 'QueueID' . $FieldID,

Kernel/Modules/AdminAppointmentNotificationEvent.pm

@@ -1101,7 +1101,7 @@ sub _Edit {
 
                     # set Email transport selected on add screen
                     if ( $Transport eq 'Email' && !$Param{ID} ) {
-                        $TransportChecked = 'checked="checked"'
+                        $TransportChecked = 'checked="checked"';
                     }
 
                     # get transport settings string from transport object

Kernel/Modules/AdminAutoResponse.pm

@@ -269,7 +269,7 @@ sub _Edit {
         Name        => 'AddressID',
         SelectedID  => $Param{AddressID},
         Translation => 0,
-        Class => 'Modernize Validate_Required ' . ( $Param{Errors}->{'AddressIDInvalid'} || '' ),
+        Class       => 'Modernize Validate_Required ' . ( $Param{Errors}->{'AddressIDInvalid'} || '' ),
     );
 
     my $HTMLUtilsObject = $Kernel::OM->Get('Kernel::System::HTMLUtils');

Kernel/Modules/AdminCloudServices.pm

@@ -55,7 +55,7 @@ sub _ShowOverview {
             Data         => \%Param
         );
         $Output .= $LayoutObject->Footer();
-        return $Output
+        return $Output;
     }
 
     my $Output = $LayoutObject->Header();

Kernel/Modules/AdminCustomerGroup.pm

@@ -440,7 +440,7 @@ sub _Change {
         Name => 'Change',
         Data => {
             %Param,
-            ActionHome => 'Admin' . ( $Type eq 'Customer' ? 'CustomerCompany' : $Type ),
+            ActionHome    => 'Admin' . ( $Type eq 'Customer' ? 'CustomerCompany' : $Type ),
             VisibleNeType => $VisibleType{$NeType},
             VisibleType   => $VisibleType{$Type},
         },
@@ -725,7 +725,7 @@ sub _Overview {
             Data => {
                 Name => $CustomerAlwaysGroups[ $ID - 1 ],
             },
-            )
+        );
     }
 
     # return output

Kernel/Modules/AdminCustomerUser.pm

@@ -963,7 +963,7 @@ sub _Overview {
                 $LayoutObject->Block(
                     Name => 'OverviewResultRow',
                     Data => {
-                        Valid => $ValidList{ $UserData{ValidID} || '' } || '-',
+                        Valid       => $ValidList{ $UserData{ValidID} || '' } || '-',
                         Search      => $Param{Search},
                         CustomerKey => $ListKey,
                         %UserData,