TT#69200 Do not use indirect method syntax

This has weird semantics and is generally frowned upon.

Change-Id: Ib1d43f13b935959508ce44b85999b615f7850b27
(cherry picked from commit 456d120d0e)

lib/NGCP/BulkProcessor/Array.pm

@@ -74,7 +74,7 @@ sub itemcount {
 sub grouparray {
 
   my ($array_ptr,$case_insensitive) = @_;
-  my $result = new NGCP::BulkProcessor::Table();
+  my $result = NGCP::BulkProcessor::Table->new();
   my $reducedarray = removeduplicates($array_ptr,$case_insensitive);
   my $sort_occurencecount_desc;
   if ($case_insensitive) {

lib/NGCP/BulkProcessor/SqlConnectors/CSVDB.pm

@@ -617,7 +617,7 @@ sub _convert_xlsbin2csv {
 
     xls2csvinfo('reading ' . $SourceFilename . ' as ' . $SourceCharset,getlogger(__PACKAGE__));
 
-    my $XLS = new IO::File;
+    my $XLS = IO::File->new();
     if (not $XLS->open('<' . $SourceFilename)) {
         fileerror('cannot open file ' . $SourceFilename . ': ' . $!,getlogger(__PACKAGE__));
         return 0;
@@ -754,7 +754,7 @@ sub _convert_xlsxbin2csv {
     xls2csvinfo('start converting ' . $SourceFilename . ' (worksheet ' . $worksheet . ') to ' . $DestFilename . ' ...',getlogger(__PACKAGE__));
 
 
-    my $XLS = new IO::File;
+    my $XLS = IO::File->new();
     if (not $XLS->open('<' . $SourceFilename)) {
         fileerror('cannot open file ' . $SourceFilename . ': ' . $!,getlogger(__PACKAGE__));
         return 0;

lib/NGCP/BulkProcessor/Utils.pm

@@ -397,7 +397,7 @@ sub wrap_text {
 
 sub create_guid {
 
-  my $ug = new Data::UUID;
+  my $ug = Data::UUID->new();
   my $uuid = $ug->create();
   return $ug->to_string( $uuid );