tidy up the scripts with Perl::Tidy

- SQL::Abstract::Util
- SQL::Abstract

Author: yusrideb

lib/CellBIS/SQL/Abstract.pm

@@ -15,40 +15,43 @@ has 'db_type';
 # For Query Insert :
 # ------------------------------------------------------------------------
 sub insert {
-  my $self = shift;
+  my $self    = shift;
   my $arg_len = scalar @_;
-  my $data = '';
+  my $data    = '';
   my ($table_name, $column, $col_val, $type);
   if ($arg_len == 3) {
     ($table_name, $column, $col_val) = @_;
   }
   if ($arg_len >= 4) {
     ($table_name, $column, $col_val, $type) = @_;
   }
-  my @table_field = @{$column};
-  my @table_data = @{$col_val};
+  my @table_field    = @{$column};
+  my @table_data     = @{$col_val};
   my @get_data_value = ();
-  my $field_col = join ', ', @table_field;
-  my $value_col = '';
-  
+  my $field_col      = join ', ', @table_field;
+  my $value_col      = '';
+
   if ((scalar @table_field) == (scalar @table_data)) {
-    
+
     if ($type && $type eq 'no-pre-st') {
-      $value_col = join ', ', $self->QueryUtil->replace_data_value_insert_no_pre_st(\@table_data);
+      $value_col = join ', ',
+        $self->QueryUtil->replace_data_value_insert_no_pre_st(\@table_data);
     }
     elsif ($type && $type eq 'pre-st') {
-      @get_data_value = $self->QueryUtil->replace_data_value_insert(\@table_data);
+      @get_data_value
+        = $self->QueryUtil->replace_data_value_insert(\@table_data);
       $value_col = join ', ', @get_data_value;
     }
     else {
-      $value_col = join ', ', $self->QueryUtil->replace_data_value_insert_no_pre_st(\@table_data);
+      $value_col = join ', ',
+        $self->QueryUtil->replace_data_value_insert_no_pre_st(\@table_data);
     }
-    
+
     $field_col = trim($field_col);
     $value_col = trim($value_col);
     $value_col =~ s/\,$//g;
     $value_col =~ s/\s\,//g;
-    
+
     $data = "INSERT INTO $table_name($field_col) VALUES($value_col)";
   }
   return $data;
@@ -57,44 +60,44 @@ sub insert {
 # For Query Update :
 # ------------------------------------------------------------------------
 sub update {
-  my $self = shift;
+  my $self    = shift;
   my $arg_len = scalar @_;
   my ($table_name, $column, $value, $clause, $type);
   my $data = '';
-  
+
   ($table_name, $column, $value, $clause) = @_ if $arg_len == 4;
   ($table_name, $column, $value, $clause, $type) = @_ if $arg_len >= 5;
-  
-  my @table_field = @{$column};
+
+  my @table_field  = @{$column};
   my $field_change = '';
   my $where_clause = '';
-  
+
   if ($type && $type eq 'no-pre-st') {
     my @get_value = $self->QueryUtil->col_with_val($column, $value);
     $field_change = join ', ', @get_value;
-    
+
     if (exists $clause->{where}) {
       $where_clause = $self->QueryUtil->create_clause($clause);
-      $data = "UPDATE $table_name \nSET $field_change \n$where_clause";
+      $data         = "UPDATE $table_name \nSET $field_change \n$where_clause";
     }
-    
+
   }
   elsif ($type && $type eq 'pre-st') {
     $field_change = join '=?, ', @table_field;
     $field_change .= '=?';
-    
+
     if (exists $clause->{where}) {
       $where_clause = $self->QueryUtil->create_clause($clause);
-      $data = "UPDATE $table_name \nSET $field_change \n$where_clause";
+      $data         = "UPDATE $table_name \nSET $field_change \n$where_clause";
     }
   }
   else {
     my @get_value = $self->QueryUtil->col_with_val($column, $value);
     $field_change = join ', ', @get_value;
-  
+
     if (exists $clause->{where}) {
       $where_clause = $self->QueryUtil->create_clause($clause);
-      $data = "UPDATE $table_name \nSET $field_change \n$where_clause";
+      $data         = "UPDATE $table_name \nSET $field_change \n$where_clause";
     }
   }
   return $data;
@@ -106,8 +109,9 @@ sub delete {
   my $self = shift;
   my ($table_name, $clause) = @_;
   my $data = '';
-  
+
   if (ref($clause) eq "HASH") {
+
     #    my $size_clause = scalar keys %{$clause};
     if (exists $clause->{where}) {
       my $where_clause = $self->QueryUtil->create_clause($clause);
@@ -120,34 +124,35 @@ sub delete {
 # For Query Select :
 # ------------------------------------------------------------------------
 sub select {
-  my $self = shift;
+  my $self    = shift;
   my $arg_len = scalar @_;
   my $data;
-  
+
   $data = $self->_qSelect_arg3(@_) unless ($arg_len < 2);
   return $data;
 }
 
 # For Query Select Join :
 # ------------------------------------------------------------------------
 sub select_join {
-  my $self = shift;
+  my $self    = shift;
   my $arg_len = scalar @_;
-  my $data = '';
-  
+  my $data    = '';
+
   $data = $self->_qSelectJoin_arg3(@_) unless ($arg_len < 3);
   return $data;
 }
 
 # For Create Table :
 # ------------------------------------------------------------------------
 sub create_table {
-  my $self = shift;
+  my $self    = shift;
   my $arg_len = scalar @_;
-  my $result = '';
-  
+  my $result  = '';
+
   if ($arg_len >= 3) {
-    my $tables = CellBIS::SQL::Abstract::Table->new(db_type => $self->db_type // 'mysql');
+    my $tables = CellBIS::SQL::Abstract::Table->new(db_type => $self->db_type
+        // 'mysql');
     $result = $tables->create_query_table(@_);
   }
   return $result;
@@ -158,41 +163,49 @@ sub create_table {
 sub _qSelect_arg3 {
   my $self = shift;
   my ($table_name, $column, $clause) = @_;
-  my $data = '';
-  my @col = @{$column};
+  my $data     = '';
+  my @col      = @{$column};
   my $size_col = scalar @col;
-  
+
   if (ref($clause) eq "HASH") {
     my $field_change;
     my $where_clause;
-    
+
     my $size_clause = scalar keys %{$clause};
-    
+
     if ($size_clause != 0) {
       $where_clause = $self->QueryUtil->create_clause($clause);
       if (scalar @col == 0) {
-        $data = 'SELECT * FROM '.$table_name . "\n" . $where_clause;
-      } else {
+        $data = 'SELECT * FROM ' . $table_name . "\n" . $where_clause;
+      }
+      else {
         $field_change = ref($column) eq "ARRAY" ? (join ', ', @col) : '*';
-        $data = 'SELECT '. $field_change . " \nFROM ". $table_name . "\n" . $where_clause;
+        $data
+          = 'SELECT '
+          . $field_change
+          . " \nFROM "
+          . $table_name . "\n"
+          . $where_clause;
       }
-      
+
     }
     else {
       if ($size_col == 0) {
         $data = "SELECT * FROM $table_name";
-      } else {
+      }
+      else {
         $field_change = join ', ', @col;
         $data = "SELECT $field_change FROM $table_name";
       }
     }
   }
   else {
     my $field_change = '';
-    
+
     if ($size_col == 0) {
       $data = "SELECT * FROM $table_name";
-    } else {
+    }
+    else {
       $field_change = join ', ', @col;
       $data = "SELECT $field_change FROM $table_name";
     }
@@ -206,14 +219,14 @@ sub _qSelectJoin_arg3 {
   my $self = shift;
   my ($table_name, $column, $clause) = @_;
   my $data = '';
-  
-  my $size_col = scalar @{$column};
+
+  my $size_col     = scalar @{$column};
   my $field_change = '';
   $field_change = '*' if $size_col == 0;
   $field_change = join ', ', @{$column} if $size_col >= 1;
   my $where_clause = '';
-  my $join_clause = '';
-  
+  my $join_clause  = '';
+
   if (ref($clause) eq "HASH") {
     if (exists $clause->{join}) {
       $join_clause = $self->QueryUtil->for_onjoin($clause, $table_name);
@@ -222,7 +235,7 @@ sub _qSelectJoin_arg3 {
     }
     else {
       $where_clause = $self->QueryUtil->create_clause($clause);
-      $data = "SELECT $field_change FROM $table_name";
+      $data         = "SELECT $field_change FROM $table_name";
     }
   }
   else {
@@ -233,7 +246,7 @@ sub _qSelectJoin_arg3 {
 
 sub to_one_liner {
   my ($self, $result) = @_;
-  
+
   $result =~ s/\t+//g;
   $result =~ s/\,\s+/\, /g;
   $result =~ s/\s+/ /g;