Showing 1 changed files with 15 additions and 15 deletions
+15 -15
lib/DBIx/Custom.pm
... ...
@@ -1198,54 +1198,54 @@ sub _create_bind_values {
1198 1198
     $bind_type = _array_to_hash($bind_type) if ref $bind_type eq 'ARRAY';
1199 1199
     
1200 1200
     # Create bind values
1201
-    my $bind = [];
1202
-    my $types = [];
1203
-    my $count = {};
1204
-    my $not_exists = {};
1201
+    my @bind;
1202
+    my @types;
1203
+    my %count;
1204
+    my %not_exists;
1205 1205
     for my $column (@$columns) {
1206 1206
         
1207 1207
         # Bind value
1208 1208
         if(ref $params->{$column} eq 'ARRAY') {
1209
-            my $i = $count->{$column} || 0;
1210
-            $i += $not_exists->{$column} || 0;
1209
+            my $i = $count{$column} || 0;
1210
+            $i += $not_exists{$column} || 0;
1211 1211
             my $found;
1212 1212
             for (my $k = $i; $i < @{$params->{$column}}; $k++) {
1213 1213
                 if (ref $params->{$column}->[$k] eq 'DBIx::Custom::NotExists') {
1214
-                    $not_exists->{$column}++;
1214
+                    $not_exists{$column}++;
1215 1215
                 }
1216 1216
                 else  {
1217
-                    push @$bind, $params->{$column}->[$k];
1217
+                    push @bind, $params->{$column}->[$k];
1218 1218
                     $found = 1;
1219 1219
                     last
1220 1220
                 }
1221 1221
             }
1222 1222
             next unless $found;
1223 1223
         }
1224
-        else { push @$bind, $params->{$column} }
1224
+        else { push @bind, $params->{$column} }
1225 1225
         
1226 1226
         # Filter
1227 1227
         if (my $f = $filter->{$column} || $self->{default_out_filter} || '') {
1228
-            $bind->[-1] = $f->($bind->[-1]);
1228
+            $bind[-1] = $f->($bind[-1]);
1229 1229
         }
1230 1230
         
1231 1231
         # Type rule
1232 1232
         if ($self->{_type_rule_is_called}) {
1233 1233
             my $tf1 = $self->{"_into1"}->{dot}->{$column}
1234 1234
               || $type_filters->{1}->{$column};
1235
-            $bind->[-1] = $tf1->($bind->[-1]) if $tf1;
1235
+            $bind[-1] = $tf1->($bind[-1]) if $tf1;
1236 1236
             my $tf2 = $self->{"_into2"}->{dot}->{$column}
1237 1237
               || $type_filters->{2}->{$column};
1238
-            $bind->[-1] = $tf2->($bind->[-1]) if $tf2;
1238
+            $bind[-1] = $tf2->($bind[-1]) if $tf2;
1239 1239
         }
1240 1240
        
1241 1241
         # Bind types
1242
-        push @$types, $bind_type->{$column};
1242
+        push @types, $bind_type->{$column};
1243 1243
         
1244 1244
         # Count up 
1245
-        $count->{$column}++;
1245
+        $count{$column}++;
1246 1246
     }
1247 1247
     
1248
-    return ($bind, $types);
1248
+    return (\@bind, \@types);
1249 1249
 }
1250 1250
 
1251 1251
 sub _id_to_param {