Showing 30 changed files with 209 additions and 209 deletions
+2 -2
t/next/access.t
... ...
@@ -4,7 +4,7 @@ use warnings;
4 4
 use utf8;
5 5
 
6 6
 use FindBin;
7
-use DBIx::Custom::Next;
7
+use DBIx::Custom;
8 8
 
9 9
 my $dbi;
10 10
 my $dsn;
... ...
@@ -14,7 +14,7 @@ my $database = "$FindBin::Bin/access.mdb";
14 14
 $dsn = "dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq=$database";
15 15
 
16 16
 plan skip_all => 'Microsoft access(ODBC, *.mdb) private test' unless -f "$FindBin::Bin/run/access.run"
17
-  && eval { $dbi = DBIx::Custom::Next->connect(dsn => $dsn); 1 };
17
+  && eval { $dbi = DBIx::Custom->connect(dsn => $dsn); 1 };
18 18
 plan 'no_plan';
19 19
 
20 20
 my $model;
+2 -2
t/next/access2007-accdb.t
... ...
@@ -4,7 +4,7 @@ use warnings;
4 4
 use utf8;
5 5
 
6 6
 use FindBin;
7
-use DBIx::Custom::Next;
7
+use DBIx::Custom;
8 8
 
9 9
 my $dbi;
10 10
 my $dsn;
... ...
@@ -14,7 +14,7 @@ $dsn = "dbi:ODBC:Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=$database
14 14
 
15 15
 plan skip_all => 'Microsoft access(ODBC, *.accdb(2007)) private test'
16 16
   unless -f "$FindBin::Bin/run/access2007-accdb.run"
17
-      && eval { $dbi = DBIx::Custom::Next->connect(dsn => $dsn); 1 };
17
+      && eval { $dbi = DBIx::Custom->connect(dsn => $dsn); 1 };
18 18
 plan 'no_plan';
19 19
 
20 20
 my $model;
+2 -2
t/next/access2010-accdb.t
... ...
@@ -4,7 +4,7 @@ use warnings;
4 4
 use utf8;
5 5
 
6 6
 use FindBin;
7
-use DBIx::Custom::Next;
7
+use DBIx::Custom;
8 8
 
9 9
 my $dbi;
10 10
 my $dsn;
... ...
@@ -14,7 +14,7 @@ $dsn = "dbi:ODBC:Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=$database
14 14
 
15 15
 plan skip_all => 'Microsoft access(ODBC, *.accdb(2010)) private test'
16 16
   unless -f "$FindBin::Bin/run/access2010-accdb.run"
17
-      && eval { $dbi = DBIx::Custom::Next->connect(dsn => $dsn); 1 };
17
+      && eval { $dbi = DBIx::Custom->connect(dsn => $dsn); 1 };
18 18
 plan 'no_plan';
19 19
 
20 20
 my $model;
+2 -2
t/next/common-mysql.t
... ...
@@ -9,9 +9,9 @@ $ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'mysql private test';
9 9
 
10 10
 
11 11
 
12
-use DBIx::Custom::Next;
12
+use DBIx::Custom;
13 13
 {
14
-    package DBIx::Custom::Next;
14
+    package DBIx::Custom;
15 15
     no warnings 'redefine';
16 16
 
17 17
     my $table1 = 'table1';
+2 -2
t/next/common-oracle.t
... ...
@@ -7,9 +7,9 @@ $ENV{DBIX_CUSTOM_TEST_RUN} = 1
7 7
   if -f "$FindBin::Bin/run/common-oracle.run";
8 8
 $ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'oracle private test';
9 9
 
10
-use DBIx::Custom::Next;
10
+use DBIx::Custom;
11 11
 {
12
-    package DBIx::Custom::Next;
12
+    package DBIx::Custom;
13 13
     no warnings 'redefine';
14 14
     
15 15
     has option => sub {
+2 -2
t/next/common-postgresql.t
... ...
@@ -7,9 +7,9 @@ $ENV{DBIX_CUSTOM_TEST_RUN} = 1
7 7
   if -f "$FindBin::Bin/run/common-postgresql.run";
8 8
 $ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'postgresql private test';
9 9
 
10
-use DBIx::Custom::Next;
10
+use DBIx::Custom;
11 11
 {
12
-    package DBIx::Custom::Next;
12
+    package DBIx::Custom;
13 13
     no warnings 'redefine';
14 14
 
15 15
     my $table1 = 'table1';
+2 -2
t/next/common-sqlite-quote.t
... ...
@@ -5,9 +5,9 @@ use FindBin;
5 5
 use lib "$FindBin::Bin/common";
6 6
 $ENV{DBIX_CUSTOM_TEST_RUN} = 1;
7 7
 
8
-use DBIx::Custom::Next;
8
+use DBIx::Custom;
9 9
 {
10
-    package DBIx::Custom::Next;
10
+    package DBIx::Custom;
11 11
     no warnings 'redefine';
12 12
     
13 13
     my $table1 = 'table1';
+2 -2
t/next/common-sqlite.t
... ...
@@ -5,9 +5,9 @@ use FindBin;
5 5
 use lib "$FindBin::Bin/common";
6 6
 $ENV{DBIX_CUSTOM_TEST_RUN} = 1;
7 7
 
8
-use DBIx::Custom::Next;
8
+use DBIx::Custom;
9 9
 {
10
-    package DBIx::Custom::Next;
10
+    package DBIx::Custom;
11 11
     no warnings 'redefine';
12 12
     
13 13
     my $table1 = 'table1';
+2 -2
t/next/common-sqlserver.t
... ...
@@ -7,9 +7,9 @@ $ENV{DBIX_CUSTOM_TEST_RUN} = 1
7 7
   if -f "$FindBin::Bin/run/common-sqlserver.run";
8 8
 $ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'sqlserver private test';
9 9
 
10
-use DBIx::Custom::Next;
10
+use DBIx::Custom;
11 11
 {
12
-    package DBIx::Custom::Next;
12
+    package DBIx::Custom;
13 13
     no warnings 'redefine';
14 14
 
15 15
     my $table1 = 'table1';
+134 -134
t/next/common.t
... ...
@@ -9,7 +9,7 @@ my $dbi;
9 9
 
10 10
 plan skip_all => $ENV{DBIX_CUSTOM_SKIP_MESSAGE} || 'common.t is always skipped'
11 11
   unless $ENV{DBIX_CUSTOM_TEST_RUN}
12
-    && eval { $dbi = DBIx::Custom::Next->connect; 1 };
12
+    && eval { $dbi = DBIx::Custom->connect; 1 };
13 13
 
14 14
 plan 'no_plan';
15 15
 
... ...
@@ -88,7 +88,7 @@ require MyDBI1;
88 88
     use strict;
89 89
     use warnings;
90 90
 
91
-    use base 'DBIx::Custom::Next';
91
+    use base 'DBIx::Custom';
92 92
 
93 93
     sub connect {
94 94
         my $self = shift->SUPER::connect(@_);
... ...
@@ -106,7 +106,7 @@ require MyDBI1;
106 106
     use strict;
107 107
     use warnings;
108 108
 
109
-    use base 'DBIx::Custom::Next::Model';
109
+    use base 'DBIx::Custom::Model';
110 110
 
111 111
     package MyModel2::table1;
112 112
 
... ...
@@ -174,7 +174,7 @@ require MyDBI1;
174 174
     use strict;
175 175
     use warnings;
176 176
 
177
-    use base 'DBIx::Custom::Next';
177
+    use base 'DBIx::Custom';
178 178
 
179 179
     sub connect {
180 180
         my $self = shift->SUPER::connect(@_);
... ...
@@ -185,7 +185,7 @@ require MyDBI1;
185 185
 {
186 186
     package MyDBI6;
187 187
     
188
-    use base 'DBIx::Custom::Next';
188
+    use base 'DBIx::Custom';
189 189
     
190 190
     sub connect {
191 191
         my $self = shift->SUPER::connect(@_);
... ...
@@ -198,7 +198,7 @@ require MyDBI1;
198 198
 {
199 199
     package MyDBI7;
200 200
     
201
-    use base 'DBIx::Custom::Next';
201
+    use base 'DBIx::Custom';
202 202
     
203 203
     sub connect {
204 204
         my $self = shift->SUPER::connect(@_);
... ...
@@ -212,7 +212,7 @@ require MyDBI1;
212 212
 {
213 213
     package MyDBI8;
214 214
     
215
-    use base 'DBIx::Custom::Next';
215
+    use base 'DBIx::Custom';
216 216
     
217 217
     sub connect {
218 218
         my $self = shift->SUPER::connect(@_);
... ...
@@ -226,7 +226,7 @@ require MyDBI1;
226 226
 {
227 227
     package MyDBI9;
228 228
     
229
-    use base 'DBIx::Custom::Next';
229
+    use base 'DBIx::Custom';
230 230
     
231 231
     sub connect {
232 232
         my $self = shift->SUPER::connect(@_);
... ...
@@ -248,7 +248,7 @@ $rows = $dbi->select(table => $table1)->all;
248 248
 is_deeply($rows, [{$key1 => 1, $key2 => 2}, {$key1 => 1, $key2 => 2}]);
249 249
 
250 250
 # Get user table info
251
-$dbi = DBIx::Custom::Next->connect;
251
+$dbi = DBIx::Custom->connect;
252 252
 eval { $dbi->execute("drop table $table1") };
253 253
 eval { $dbi->execute("drop table $table2") };
254 254
 eval { $dbi->execute("drop table $table3") };
... ...
@@ -258,14 +258,14 @@ $dbi->execute($create_table3);
258 258
 $user_table_info = $dbi->get_table_info(exclude => $dbi->exclude_table);
259 259
 
260 260
 # Create table
261
-$dbi = DBIx::Custom::Next->connect;
261
+$dbi = DBIx::Custom->connect;
262 262
 eval { $dbi->execute("drop table $table1") };
263 263
 $dbi->execute($create_table1);
264 264
 $model = $dbi->create_model(table => $table1);
265 265
 $model->insert({$key1 => 1, $key2 => 2});
266 266
 is_deeply($model->select->all, [{$key1 => 1, $key2 => 2}]);
267 267
 
268
-test 'DBIx::Custom::Next::Result test';
268
+test 'DBIx::Custom::Result test';
269 269
 $dbi->delete_all(table => $table1);
270 270
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
271 271
 $dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
... ...
@@ -372,7 +372,7 @@ $rows = $result->all;
372 372
 is_deeply($rows, [{$key1 => 'a:b c:d', $key2 => 2}]);
373 373
 
374 374
 test 'Error case';
375
-eval {DBIx::Custom::Next->connect(dsn => 'dbi:SQLit')};
375
+eval {DBIx::Custom->connect(dsn => 'dbi:SQLit')};
376 376
 ok($@, "connect error");
377 377
 
378 378
 test 'insert';
... ...
@@ -871,7 +871,7 @@ eval{$dbi->delete(table => $table1, where => {';' => 1})};
871 871
 like($@, qr/safety/);
872 872
 
873 873
 $dbi = undef;
874
-$dbi = DBIx::Custom::Next->connect;
874
+$dbi = DBIx::Custom->connect;
875 875
 eval { $dbi->execute("drop table ${q}table$p") };
876 876
 $dbi->execute($create_table_reserved);
877 877
 $dbi->insert({select => 1}, table => 'table');
... ...
@@ -932,7 +932,7 @@ $rows = $dbi->select(
932 932
 )->all;
933 933
 is_deeply($rows, [{"${table1}_$key1" => 1, "${table2}_$key1" => 1, $key2 => 2, $key3 => 5}], "no exists where");
934 934
 
935
-$dbi = DBIx::Custom::Next->connect;
935
+$dbi = DBIx::Custom->connect;
936 936
 eval { $dbi->execute("drop table ${q}table$p") };
937 937
 $dbi->execute($create_table_reserved);
938 938
 $dbi->insert({select => 1, update => 2}, table => 'table');
... ...
@@ -962,7 +962,7 @@ $row = $result->fetch_first;
962 962
 is_deeply($row, [3, 3, 2], "default_fetch_filter and filter");
963 963
 
964 964
 test 'filters';
965
-$dbi = DBIx::Custom::Next->new;
965
+$dbi = DBIx::Custom->new;
966 966
 
967 967
 is($dbi->filters->{decode_utf8}->(encode_utf8('あ')),
968 968
    'あ', "decode_utf8");
... ...
@@ -971,7 +971,7 @@ is($dbi->filters->{encode_utf8}->('あ'),
971 971
    encode_utf8('あ'), "encode_utf8");
972 972
 
973 973
 test 'transaction1';
974
-$dbi = DBIx::Custom::Next->connect;
974
+$dbi = DBIx::Custom->connect;
975 975
 eval { $dbi->execute("drop table $table1") };
976 976
 $dbi->execute($create_table1);
977 977
 $dbi->begin_work;
... ...
@@ -984,7 +984,7 @@ $result = $dbi->select(table => $table1);
984 984
 ok(! $result->fetch_first, "rollback");
985 985
 
986 986
 
987
-$dbi = DBIx::Custom::Next->connect;
987
+$dbi = DBIx::Custom->connect;
988 988
 eval { $dbi->execute("drop table $table1") };
989 989
 $dbi->execute($create_table1);
990 990
 $dbi->begin_work;
... ...
@@ -1018,7 +1018,7 @@ eval{$dbi->execute($query, {$key1 => {a => 1}})};
1018 1018
 ok($@, "execute fail");
1019 1019
 
1020 1020
 test 'transaction2';
1021
-$dbi = DBIx::Custom::Next->connect;
1021
+$dbi = DBIx::Custom->connect;
1022 1022
 eval { $dbi->execute("drop table $table1") };
1023 1023
 $dbi->execute($create_table1);
1024 1024
 
... ...
@@ -1096,7 +1096,7 @@ eval {$dbi->XXXXXX};
1096 1096
 ok($@, "not exists");
1097 1097
 
1098 1098
 test 'out filter';
1099
-$dbi = DBIx::Custom::Next->connect;
1099
+$dbi = DBIx::Custom->connect;
1100 1100
 eval { $dbi->execute("drop table $table1") };
1101 1101
 $dbi->execute($create_table1);
1102 1102
 $dbi->register_filter(twice => sub { $_[0] * 2 });
... ...
@@ -1109,7 +1109,7 @@ $result = $dbi->select(table => $table1);
1109 1109
 $row   = $result->one;
1110 1110
 is_deeply($row, {$key1 => 1, $key2 => 2}, "insert");
1111 1111
 
1112
-$dbi = DBIx::Custom::Next->connect;
1112
+$dbi = DBIx::Custom->connect;
1113 1113
 eval { $dbi->execute("drop table $table1") };
1114 1114
 $dbi->execute($create_table1);
1115 1115
 $dbi->register_filter(twice => sub { $_[0] * 2 });
... ...
@@ -1119,7 +1119,7 @@ $result = $dbi->execute("select * from $table1");
1119 1119
 $row   = $result->one;
1120 1120
 is_deeply($row, {$key1 => 1, $key2 => 2}, "insert");
1121 1121
 
1122
-$dbi = DBIx::Custom::Next->connect;
1122
+$dbi = DBIx::Custom->connect;
1123 1123
 eval { $dbi->execute("drop table $table1") };
1124 1124
 $dbi->execute($create_table1);
1125 1125
 $dbi->register_filter(twice => sub { $_[0] * 2 });
... ...
@@ -1129,7 +1129,7 @@ $result = $dbi->execute("select * from $table1");
1129 1129
 $row   = $result->one;
1130 1130
 is_deeply($row, {$key1 => 2, $key2 => 2}, "update");
1131 1131
 
1132
-$dbi = DBIx::Custom::Next->connect;
1132
+$dbi = DBIx::Custom->connect;
1133 1133
 eval { $dbi->execute("drop table $table1") };
1134 1134
 $dbi->execute($create_table1);
1135 1135
 $dbi->register_filter(twice => sub { $_[0] * 2 });
... ...
@@ -1139,7 +1139,7 @@ $result = $dbi->execute("select * from $table1");
1139 1139
 $rows   = $result->all;
1140 1140
 is_deeply($rows, [], "delete");
1141 1141
 
1142
-$dbi = DBIx::Custom::Next->connect;
1142
+$dbi = DBIx::Custom->connect;
1143 1143
 eval { $dbi->execute("drop table $table1") };
1144 1144
 $dbi->execute($create_table1);
1145 1145
 $dbi->register_filter(twice => sub { $_[0] * 2 });
... ...
@@ -1149,7 +1149,7 @@ $result->filter({$key2 => 'twice'});
1149 1149
 $rows   = $result->all;
1150 1150
 is_deeply($rows, [{$key1 => 2, $key2 => 4}], "select");
1151 1151
 
1152
-$dbi = DBIx::Custom::Next->connect;
1152
+$dbi = DBIx::Custom->connect;
1153 1153
 eval { $dbi->execute("drop table $table1") };
1154 1154
 $dbi->execute($create_table1);
1155 1155
 $dbi->register_filter(twice => sub { $_[0] * 2 });
... ...
@@ -1160,7 +1160,7 @@ $result = $dbi->execute("select * from $table1 where $key1 = :$key1 and $key2 =
1160 1160
 $rows   = $result->all;
1161 1161
 is_deeply($rows, [{$key1 => 2, $key2 => 2}], "execute");
1162 1162
 
1163
-$dbi = DBIx::Custom::Next->connect;
1163
+$dbi = DBIx::Custom->connect;
1164 1164
 eval { $dbi->execute("drop table $table1") };
1165 1165
 $dbi->execute($create_table1);
1166 1166
 $dbi->register_filter(twice => sub { $_[0] * 2 });
... ...
@@ -1170,7 +1170,7 @@ $result = $dbi->execute("select * from $table1 where $key1 = :$key1 and $key2 =
1170 1170
 $rows   = $result->all;
1171 1171
 is_deeply($rows, [{$key1 => 2, $key2 => 2}], "execute table tag");
1172 1172
 
1173
-$dbi = DBIx::Custom::Next->connect;
1173
+$dbi = DBIx::Custom->connect;
1174 1174
 eval { $dbi->execute("drop table $table1") };
1175 1175
 eval { $dbi->execute("drop table $table2") };
1176 1176
 $dbi->execute($create_table1);
... ...
@@ -1201,27 +1201,27 @@ $rows   = $result->all;
1201 1201
 is_deeply($rows, [{$key2 => 4, $key3 => 6, "${table2}_$key3" => 6}], "select : join : omit");
1202 1202
 
1203 1203
 test 'connect super';
1204
-$dbi = DBIx::Custom::Next->connect;
1204
+$dbi = DBIx::Custom->connect;
1205 1205
 eval { $dbi->execute("drop table $table1") };
1206 1206
 $dbi->execute($create_table1);
1207 1207
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
1208 1208
 is($dbi->select(table => $table1)->one->{$key1}, 1);
1209 1209
 
1210
-$dbi = DBIx::Custom::Next->new;
1210
+$dbi = DBIx::Custom->new;
1211 1211
 $dbi->connect;
1212 1212
 eval { $dbi->execute("drop table $table1") };
1213 1213
 $dbi->execute($create_table1);
1214 1214
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
1215 1215
 is($dbi->select(table => $table1)->one->{$key1}, 1);
1216 1216
 
1217
-$dbi = DBIx::Custom::Next->connect;
1217
+$dbi = DBIx::Custom->connect;
1218 1218
 eval { $dbi->execute("drop table $table1") };
1219 1219
 $dbi->execute($create_table1);
1220 1220
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
1221 1221
 is($dbi->select(table => $table1)->one->{$key1}, 1);
1222 1222
 
1223 1223
 test 'filter';
1224
-$dbi = DBIx::Custom::Next->connect;
1224
+$dbi = DBIx::Custom->connect;
1225 1225
 eval { $dbi->execute("drop table $table1") };
1226 1226
 $dbi->execute($create_table1);
1227 1227
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -1230,7 +1230,7 @@ $result->filter($key1 => sub { $_[0] * 2 }, $key2 => sub { $_[0] * 4 });
1230 1230
 $row = $result->fetch_first;
1231 1231
 is_deeply($row, [2, 8]);
1232 1232
 
1233
-$dbi = DBIx::Custom::Next->connect;
1233
+$dbi = DBIx::Custom->connect;
1234 1234
 eval { $dbi->execute("drop table $table1") };
1235 1235
 $dbi->execute($create_table1);
1236 1236
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -1239,7 +1239,7 @@ $result->filter($key1 => sub { $_[0] * 2 }, $key2 => sub { $_[0] * 4 });
1239 1239
 $row = $result->fetch_first;
1240 1240
 is_deeply($row, [2, 2, 8]);
1241 1241
 
1242
-$dbi = DBIx::Custom::Next->connect;
1242
+$dbi = DBIx::Custom->connect;
1243 1243
 eval { $dbi->execute("drop table $table1") };
1244 1244
 $dbi->execute($create_table1);
1245 1245
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -1248,7 +1248,7 @@ $result->filter([$key1, $key2] => sub { $_[0] * 2 });
1248 1248
 $row = $result->fetch_first;
1249 1249
 is_deeply($row, [2, 4]);
1250 1250
 
1251
-$dbi = DBIx::Custom::Next->connect;
1251
+$dbi = DBIx::Custom->connect;
1252 1252
 eval { $dbi->execute("drop table $table1") };
1253 1253
 $dbi->execute($create_table1);
1254 1254
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -1270,7 +1270,7 @@ $row = $result->one;
1270 1270
 is_deeply($row, {$key1 => 2, $key2 => 8}, 'apply_filter');
1271 1271
 
1272 1272
 test 'empty where select';
1273
-$dbi = DBIx::Custom::Next->connect;
1273
+$dbi = DBIx::Custom->connect;
1274 1274
 eval { $dbi->execute("drop table $table1") };
1275 1275
 $dbi->execute($create_table1);
1276 1276
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -1279,20 +1279,20 @@ $row = $result->one;
1279 1279
 is_deeply($row, {$key1 => 1, $key2 => 2});
1280 1280
 
1281 1281
 test 'select query option';
1282
-$dbi = DBIx::Custom::Next->connect;
1282
+$dbi = DBIx::Custom->connect;
1283 1283
 eval { $dbi->execute("drop table $table1") };
1284 1284
 $dbi->execute($create_table1);
1285 1285
 $query = $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1, query => 1);
1286
-is(ref $query, 'HASH');
1286
+ok(ref $query);
1287 1287
 $query = $dbi->update({$key2 => 2}, table => $table1, where => {$key1 => 1}, query => 1);
1288
-is(ref $query, 'HASH');
1288
+ok(ref $query);
1289 1289
 $query = $dbi->delete(table => $table1, where => {$key1 => 1}, query => 1);
1290
-is(ref $query, 'HASH');
1290
+ok(ref $query);
1291 1291
 $query = $dbi->select(table => $table1, where => {$key1 => 1, $key2 => 2}, query => 1);
1292
-is(ref $query, 'HASH');
1292
+ok(ref $query);
1293 1293
 
1294 1294
 test 'where';
1295
-$dbi = DBIx::Custom::Next->connect;
1295
+$dbi = DBIx::Custom->connect;
1296 1296
 eval { $dbi->execute("drop table $table1") };
1297 1297
 $dbi->execute($create_table1);
1298 1298
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -1585,7 +1585,7 @@ $row = $result->all;
1585 1585
 is_deeply($row, [{$key1 => 1, $key2 => 2}]);
1586 1586
 
1587 1587
 
1588
-$dbi = DBIx::Custom::Next->connect;
1588
+$dbi = DBIx::Custom->connect;
1589 1589
 eval { $dbi->execute("drop table $table1") };
1590 1590
 $dbi->execute($create_table1);
1591 1591
 $dbi->insert({$key1 => 1, $key2 => '00:00:00'}, table => $table1);
... ...
@@ -1602,11 +1602,11 @@ $row = $result->all;
1602 1602
 is_deeply($row, [{$key1 => 1, $key2 => '00:00:00'}]);
1603 1603
 
1604 1604
 test 'table not specify exception';
1605
-$dbi = DBIx::Custom::Next->connect;
1605
+$dbi = DBIx::Custom->connect;
1606 1606
 eval {$dbi->select};
1607 1607
 like($@, qr/table/);
1608 1608
 
1609
-$dbi = DBIx::Custom::Next->connect;
1609
+$dbi = DBIx::Custom->connect;
1610 1610
 eval { $dbi->execute("drop table $table1") };
1611 1611
 $dbi->execute($create_table1);
1612 1612
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -1614,7 +1614,7 @@ $dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
1614 1614
 $rows = $dbi->select(table => $table1, where => {$key2 => 2})->all;
1615 1615
 is_deeply($rows, [{$key1 => 1, $key2 => 2}]);
1616 1616
 
1617
-$dbi = DBIx::Custom::Next->connect;
1617
+$dbi = DBIx::Custom->connect;
1618 1618
 eval { $dbi->execute("drop table $table1") };
1619 1619
 $dbi->execute($create_table1);
1620 1620
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -1625,10 +1625,10 @@ is_deeply($rows, [{$key1 => 1, $key2 => 2}]);
1625 1625
 $dbi->helper({one => sub { 1 }});
1626 1626
 is($dbi->one, 1);
1627 1627
 
1628
-eval{DBIx::Custom::Next->connect(dsn => undef)};
1628
+eval{DBIx::Custom->connect(dsn => undef)};
1629 1629
 like($@, qr/_connect/);
1630 1630
 
1631
-$dbi = DBIx::Custom::Next->connect;
1631
+$dbi = DBIx::Custom->connect;
1632 1632
 eval { $dbi->execute("drop table $table1") };
1633 1633
 $dbi->execute($create_table1);
1634 1634
 $dbi->register_filter(twice => sub { $_[0] * 2 });
... ...
@@ -1640,7 +1640,7 @@ eval {$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1,
1640 1640
              filter => {$key1 => 'no'}) };
1641 1641
 like($@, qr//);
1642 1642
 
1643
-$dbi = DBIx::Custom::Next->connect;
1643
+$dbi = DBIx::Custom->connect;
1644 1644
 eval { $dbi->execute("drop table $table1") };
1645 1645
 $dbi->execute($create_table1);
1646 1646
 $dbi->register_filter(one => sub { 1 });
... ...
@@ -1649,21 +1649,21 @@ eval {$result->filter($key1 => 'no')};
1649 1649
 like($@, qr/not registered/);
1650 1650
 
1651 1651
 test 'option';
1652
-$dbi = DBIx::Custom::Next->connect(option => {PrintError => 1});
1652
+$dbi = DBIx::Custom->connect(option => {PrintError => 1});
1653 1653
 ok($dbi->dbh->{PrintError});
1654
-$dbi = DBIx::Custom::Next->connect(option => {PrintError => 1});
1654
+$dbi = DBIx::Custom->connect(option => {PrintError => 1});
1655 1655
 ok($dbi->dbh->{PrintError});
1656
-$dbi = DBIx::Custom::Next->connect(option => {PrintError => 1});
1656
+$dbi = DBIx::Custom->connect(option => {PrintError => 1});
1657 1657
 ok($dbi->dbh->{PrintError});
1658 1658
 
1659
-test 'DBIx::Custom::Next::Result stash()';
1660
-$result = DBIx::Custom::Next::Result->new;
1659
+test 'DBIx::Custom::Result stash()';
1660
+$result = DBIx::Custom::Result->new;
1661 1661
 is_deeply($result->stash, {}, 'default');
1662 1662
 $result->stash->{foo} = 1;
1663 1663
 is($result->stash->{foo}, 1, 'get and set');
1664 1664
 
1665 1665
 test 'delete';
1666
-$dbi = DBIx::Custom::Next->connect;
1666
+$dbi = DBIx::Custom->connect;
1667 1667
 eval { $dbi->execute("drop table $table1") };
1668 1668
 $dbi->execute($create_table1_2);
1669 1669
 $dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
... ...
@@ -1683,7 +1683,7 @@ $dbi->delete(
1683 1683
 is_deeply($dbi->select(table => $table1)->all, []);
1684 1684
 
1685 1685
 test 'insert';
1686
-$dbi = DBIx::Custom::Next->connect;
1686
+$dbi = DBIx::Custom->connect;
1687 1687
 eval { $dbi->execute("drop table $table1") };
1688 1688
 $dbi->execute($create_table1_2);
1689 1689
 $dbi->insert(
... ...
@@ -1709,7 +1709,7 @@ is($dbi->select(table => $table1)->one->{$key1}, 1);
1709 1709
 is($dbi->select(table => $table1)->one->{$key2}, 2);
1710 1710
 is($dbi->select(table => $table1)->one->{$key3}, 3);
1711 1711
 
1712
-$dbi = DBIx::Custom::Next->connect;
1712
+$dbi = DBIx::Custom->connect;
1713 1713
 eval { $dbi->execute("drop table $table1") };
1714 1714
 $dbi->execute($create_table1_2);
1715 1715
 $dbi->insert(
... ...
@@ -1723,7 +1723,7 @@ is($dbi->select(table => $table1)->one->{$key2}, 2);
1723 1723
 is($dbi->select(table => $table1)->one->{$key3}, 3);
1724 1724
 
1725 1725
 test 'update';
1726
-$dbi = DBIx::Custom::Next->connect;
1726
+$dbi = DBIx::Custom->connect;
1727 1727
 eval { $dbi->execute("drop table $table1") };
1728 1728
 $dbi->execute($create_table1_2);
1729 1729
 $dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
... ...
@@ -1749,7 +1749,7 @@ is($dbi->select(table => $table1)->one->{$key1}, 1);
1749 1749
 is($dbi->select(table => $table1)->one->{$key2}, 2);
1750 1750
 is($dbi->select(table => $table1)->one->{$key3}, 4);
1751 1751
 
1752
-$dbi = DBIx::Custom::Next->connect;
1752
+$dbi = DBIx::Custom->connect;
1753 1753
 eval { $dbi->execute("drop table $table1") };
1754 1754
 $dbi->execute($create_table1_2);
1755 1755
 $dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
... ...
@@ -1764,7 +1764,7 @@ is($dbi->select(table => $table1)->one->{$key2}, 2);
1764 1764
 is($dbi->select(table => $table1)->one->{$key3}, 4);
1765 1765
 
1766 1766
 test 'select';
1767
-$dbi = DBIx::Custom::Next->connect;
1767
+$dbi = DBIx::Custom->connect;
1768 1768
 eval { $dbi->execute("drop table $table1") };
1769 1769
 $dbi->execute($create_table1_2);
1770 1770
 $dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
... ...
@@ -1881,7 +1881,7 @@ is_deeply($result->one,
1881 1881
           {$key1 => 1, $key2 => 2, "${table2}__$key1" => 1, "${table2}__$key3" => 3});
1882 1882
 
1883 1883
 test 'values_clause';
1884
-$dbi = DBIx::Custom::Next->connect;
1884
+$dbi = DBIx::Custom->connect;
1885 1885
 eval { $dbi->execute("drop table $table1") };
1886 1886
 $dbi->execute($create_table1_2);
1887 1887
 $param = {$key1 => 1, $key2 => 2};
... ...
@@ -1893,7 +1893,7 @@ $dbi->execute($sql, $param, table => $table1);
1893 1893
 is($dbi->select(table => $table1)->one->{$key1}, 1);
1894 1894
 is($dbi->select(table => $table1)->one->{$key2}, 2);
1895 1895
 
1896
-$dbi = DBIx::Custom::Next->connect;
1896
+$dbi = DBIx::Custom->connect;
1897 1897
 eval { $dbi->execute("drop table $table1") };
1898 1898
 $dbi->execute($create_table1_2);
1899 1899
 $param = {$key1 => 1, $key2 => 2};
... ...
@@ -1961,7 +1961,7 @@ is_deeply($result->one,
1961 1961
           {$key1 => 1, "$table2.$key1" => 1});
1962 1962
 
1963 1963
 test 'merge_param';
1964
-$dbi = DBIx::Custom::Next->new;
1964
+$dbi = DBIx::Custom->new;
1965 1965
 $params = [
1966 1966
     {$key1 => 1, $key2 => 2, $key3 => 3},
1967 1967
     {$key1 => 1, $key2 => 2},
... ...
@@ -1978,7 +1978,7 @@ $param = $dbi->merge_param($params->[0], $params->[1]);
1978 1978
 is_deeply($param, {$key1 => [1, 2, 3, 4], $key2 => [1, 2, 3], $key3 => [1, 2, 3]});
1979 1979
 
1980 1980
 test 'select() param option';
1981
-$dbi = DBIx::Custom::Next->connect;
1981
+$dbi = DBIx::Custom->connect;
1982 1982
 eval { $dbi->execute("drop table $table1") };
1983 1983
 $dbi->execute($create_table1);
1984 1984
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -2008,7 +2008,7 @@ $rows = $dbi->select(
2008 2008
 is_deeply($rows, [{"${table1}_$key1" => 2, $key2 => 3, $key3 => 5}]);
2009 2009
 
2010 2010
 test 'select() string where';
2011
-$dbi = DBIx::Custom::Next->connect;
2011
+$dbi = DBIx::Custom->connect;
2012 2012
 eval { $dbi->execute("drop table $table1") };
2013 2013
 $dbi->execute($create_table1);
2014 2014
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -2022,7 +2022,7 @@ $rows = $dbi->select(
2022 2022
 )->all;
2023 2023
 is_deeply($rows, [{$key1 => 1, $key2 => 2}]);
2024 2024
 
2025
-$dbi = DBIx::Custom::Next->connect;
2025
+$dbi = DBIx::Custom->connect;
2026 2026
 eval { $dbi->execute("drop table $table1") };
2027 2027
 $dbi->execute($create_table1);
2028 2028
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -2036,7 +2036,7 @@ $rows = $dbi->select(
2036 2036
 )->all;
2037 2037
 is_deeply($rows, [{$key1 => 1, $key2 => 2}]);
2038 2038
 
2039
-$dbi = DBIx::Custom::Next->connect;
2039
+$dbi = DBIx::Custom->connect;
2040 2040
 eval { $dbi->execute("drop table $table1") };
2041 2041
 $dbi->execute($create_table1);
2042 2042
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -2051,7 +2051,7 @@ $rows = $dbi->select(
2051 2051
 is_deeply($rows, [{$key1 => 1, $key2 => 2}]);
2052 2052
 
2053 2053
 test 'delete() string where';
2054
-$dbi = DBIx::Custom::Next->connect;
2054
+$dbi = DBIx::Custom->connect;
2055 2055
 eval { $dbi->execute("drop table $table1") };
2056 2056
 $dbi->execute($create_table1);
2057 2057
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -2066,7 +2066,7 @@ $dbi->delete(
2066 2066
 $rows = $dbi->select(table => $table1)->all;
2067 2067
 is_deeply($rows, [{$key1 => 2, $key2 => 3}]);
2068 2068
 
2069
-$dbi = DBIx::Custom::Next->connect;
2069
+$dbi = DBIx::Custom->connect;
2070 2070
 eval { $dbi->execute("drop table $table1") };
2071 2071
 $dbi->execute($create_table1);
2072 2072
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -2083,7 +2083,7 @@ is_deeply($rows, [{$key1 => 2, $key2 => 3}]);
2083 2083
 
2084 2084
 
2085 2085
 test 'update() string where';
2086
-$dbi = DBIx::Custom::Next->connect;
2086
+$dbi = DBIx::Custom->connect;
2087 2087
 eval { $dbi->execute("drop table $table1") };
2088 2088
 $dbi->execute($create_table1);
2089 2089
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -2098,7 +2098,7 @@ $dbi->update(
2098 2098
 $rows = $dbi->select(table => $table1)->all;
2099 2099
 is_deeply($rows, [{$key1 => 5, $key2 => 2}]);
2100 2100
 
2101
-$dbi = DBIx::Custom::Next->connect;
2101
+$dbi = DBIx::Custom->connect;
2102 2102
 eval { $dbi->execute("drop table $table1") };
2103 2103
 $dbi->execute($create_table1);
2104 2104
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -2114,7 +2114,7 @@ $rows = $dbi->select(table => $table1)->all;
2114 2114
 is_deeply($rows, [{$key1 => 5, $key2 => 2}]);
2115 2115
 
2116 2116
 test 'insert id and primary_key option';
2117
-$dbi = DBIx::Custom::Next->connect;
2117
+$dbi = DBIx::Custom->connect;
2118 2118
 eval { $dbi->execute("drop table $table1") };
2119 2119
 $dbi->execute($create_table1_2);
2120 2120
 $dbi->insert(
... ...
@@ -2139,7 +2139,7 @@ is($dbi->select(table => $table1)->one->{$key1}, 0);
2139 2139
 is($dbi->select(table => $table1)->one->{$key2}, 2);
2140 2140
 is($dbi->select(table => $table1)->one->{$key3}, 3);
2141 2141
 
2142
-$dbi = DBIx::Custom::Next->connect;
2142
+$dbi = DBIx::Custom->connect;
2143 2143
 eval { $dbi->execute("drop table $table1") };
2144 2144
 $dbi->execute($create_table1_2);
2145 2145
 $dbi->insert(
... ...
@@ -2152,7 +2152,7 @@ is($dbi->select(table => $table1)->one->{$key1}, 1);
2152 2152
 ok(!$dbi->select(table => $table1)->one->{$key2});
2153 2153
 is($dbi->select(table => $table1)->one->{$key3}, 3);
2154 2154
 
2155
-$dbi = DBIx::Custom::Next->connect;
2155
+$dbi = DBIx::Custom->connect;
2156 2156
 eval { $dbi->execute("drop table $table1") };
2157 2157
 $dbi->execute($create_table1_2);
2158 2158
 $dbi->insert(
... ...
@@ -2165,7 +2165,7 @@ is($dbi->select(table => $table1)->one->{$key1}, 1);
2165 2165
 is($dbi->select(table => $table1)->one->{$key2}, 2);
2166 2166
 is($dbi->select(table => $table1)->one->{$key3}, 3);
2167 2167
 
2168
-$dbi = DBIx::Custom::Next->connect;
2168
+$dbi = DBIx::Custom->connect;
2169 2169
 eval { $dbi->execute("drop table $table1") };
2170 2170
 $dbi->execute($create_table1_2);
2171 2171
 $param = {$key3 => 3, $key2 => 4};
... ...
@@ -2180,7 +2180,7 @@ is($dbi->select(table => $table1)->one->{$key2}, 4);
2180 2180
 is($dbi->select(table => $table1)->one->{$key3}, 3);
2181 2181
 is_deeply($param, {$key3 => 3, $key2 => 4});
2182 2182
 
2183
-$dbi = DBIx::Custom::Next->connect;
2183
+$dbi = DBIx::Custom->connect;
2184 2184
 eval { $dbi->execute("drop table $table1") };
2185 2185
 $dbi->execute($create_table1_2);
2186 2186
 $param = {$key3 => 3, $key2 => 4};
... ...
@@ -2191,7 +2191,7 @@ $dbi->insert(
2191 2191
     id => [1, 2],
2192 2192
     query => 1
2193 2193
 );
2194
-is(ref $query, 'HASH');
2194
+ok(ref $query);
2195 2195
 is_deeply($param, {$key3 => 3, $key2 => 4});
2196 2196
 
2197 2197
 test 'model insert id and primary_key option';
... ...
@@ -2222,7 +2222,7 @@ is($row->{$key2}, 2);
2222 2222
 is($row->{$key3}, 3);
2223 2223
 
2224 2224
 test 'update and id option';
2225
-$dbi = DBIx::Custom::Next->connect;
2225
+$dbi = DBIx::Custom->connect;
2226 2226
 eval { $dbi->execute("drop table $table1") };
2227 2227
 $dbi->execute($create_table1_2);
2228 2228
 $dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
... ...
@@ -2248,7 +2248,7 @@ is($dbi->select(table => $table1)->one->{$key1}, 0);
2248 2248
 is($dbi->select(table => $table1)->one->{$key2}, 2);
2249 2249
 is($dbi->select(table => $table1)->one->{$key3}, 4);
2250 2250
 
2251
-$dbi = DBIx::Custom::Next->connect;
2251
+$dbi = DBIx::Custom->connect;
2252 2252
 eval { $dbi->execute("drop table $table1") };
2253 2253
 $dbi->execute($create_table1_2);
2254 2254
 $dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
... ...
@@ -2280,7 +2280,7 @@ is($row->{$key3}, 4);
2280 2280
 
2281 2281
 
2282 2282
 test 'delete and id option';
2283
-$dbi = DBIx::Custom::Next->connect;
2283
+$dbi = DBIx::Custom->connect;
2284 2284
 eval { $dbi->execute("drop table $table1") };
2285 2285
 $dbi->execute($create_table1_2);
2286 2286
 $dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
... ...
@@ -2320,7 +2320,7 @@ is_deeply($dbi->select(table => $table3)->all, []);
2320 2320
 
2321 2321
 
2322 2322
 test 'select and id option';
2323
-$dbi = DBIx::Custom::Next->connect;
2323
+$dbi = DBIx::Custom->connect;
2324 2324
 eval { $dbi->execute("drop table $table1") };
2325 2325
 $dbi->execute($create_table1_2);
2326 2326
 $dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
... ...
@@ -2396,7 +2396,7 @@ is_deeply($result->one,
2396 2396
           {"$table2.$key1" => 1, "$table2.$key3" => 3});
2397 2397
 
2398 2398
 test 'separator';
2399
-$dbi = DBIx::Custom::Next->connect;
2399
+$dbi = DBIx::Custom->connect;
2400 2400
 $dbi->user_table_info($user_table_info);
2401 2401
 eval { $dbi->execute("drop table $table1") };
2402 2402
 eval { $dbi->execute("drop table $table2") };
... ...
@@ -2455,7 +2455,7 @@ is_deeply($result->one,
2455 2455
 is_deeply($model2->select->one, {$key1 => 1, $key3 => 3});
2456 2456
 
2457 2457
 
2458
-$dbi = DBIx::Custom::Next->connect;
2458
+$dbi = DBIx::Custom->connect;
2459 2459
 $dbi->user_table_info($user_table_info);
2460 2460
 eval { $dbi->execute("drop table $table1") };
2461 2461
 eval { $dbi->execute("drop table $table2") };
... ...
@@ -2477,12 +2477,12 @@ $result->filter($key1 => sub { $_[0] * 2 });
2477 2477
 is_deeply($result->one, {$key1 => 2});
2478 2478
 
2479 2479
 test 'available_datetype';
2480
-$dbi = DBIx::Custom::Next->connect;
2480
+$dbi = DBIx::Custom->connect;
2481 2481
 ok($dbi->can('available_datatype'));
2482 2482
 
2483 2483
 
2484 2484
 test 'select prefix option';
2485
-$dbi = DBIx::Custom::Next->connect;
2485
+$dbi = DBIx::Custom->connect;
2486 2486
 eval { $dbi->execute("drop table $table1") };
2487 2487
 $dbi->execute($create_table1);
2488 2488
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -2491,7 +2491,7 @@ is_deeply($rows, [{$key1 => 1, $key2 => 2}], "table");
2491 2491
 
2492 2492
 
2493 2493
 test 'mapper';
2494
-$dbi = DBIx::Custom::Next->connect;
2494
+$dbi = DBIx::Custom->connect;
2495 2495
 $param = $dbi->mapper(param => {id => 1, author => 'Ken', price => 1900})->map(
2496 2496
     id => {key => "$table1.id"},
2497 2497
     author => ["$table1.author" => sub { '%' . $_[0] . '%' }],
... ...
@@ -2500,7 +2500,7 @@ $param = $dbi->mapper(param => {id => 1, author => 'Ken', price => 1900})->map(
2500 2500
 is_deeply($param, {"$table1.id" => 1, "$table1.author" => '%Ken%',
2501 2501
   "$table1.price" => 1900});
2502 2502
 
2503
-$dbi = DBIx::Custom::Next->connect;
2503
+$dbi = DBIx::Custom->connect;
2504 2504
 $param = $dbi->mapper(param => {id => 1, author => 'Ken', price => 1900})->map(
2505 2505
     id => {key => "$table1.id"},
2506 2506
     author => ["$table1.author" => $dbi->like_value],
... ...
@@ -2686,7 +2686,7 @@ $param = $dbi->mapper(param => {id => 'a', author => 'b', price => 'c'}, pass =>
2686 2686
 is_deeply($param, {id => 'a', author => 'b', 'book.price' => 'c'});
2687 2687
 
2688 2688
 test 'order';
2689
-$dbi = DBIx::Custom::Next->connect;
2689
+$dbi = DBIx::Custom->connect;
2690 2690
 eval { $dbi->execute("drop table $table1") };
2691 2691
 $dbi->execute($create_table1);
2692 2692
 $dbi->insert({$key1 => 1, $key2 => 1}, table => $table1);
... ...
@@ -2714,7 +2714,7 @@ is_deeply($result->all, [{"$table1-$key1" => 1, "$table1-$key2" => 3},
2714 2714
   {"$table1-$key1" => 2, "$table1-$key2" => 2}]);
2715 2715
 
2716 2716
 test 'last_sql';
2717
-$dbi = DBIx::Custom::Next->connect;
2717
+$dbi = DBIx::Custom->connect;
2718 2718
 eval { $dbi->execute("drop table $table1") };
2719 2719
 $dbi->execute($create_table1);
2720 2720
 $dbi->execute("select * from $table1");
... ...
@@ -2723,8 +2723,8 @@ is($dbi->last_sql, "select * from $table1");
2723 2723
 eval{$dbi->execute("aaa")};
2724 2724
 is($dbi->last_sql, 'aaa');
2725 2725
 
2726
-test 'DBIx::Custom::Next header';
2727
-$dbi = DBIx::Custom::Next->connect;
2726
+test 'DBIx::Custom header';
2727
+$dbi = DBIx::Custom->connect;
2728 2728
 eval { $dbi->execute("drop table $table1") };
2729 2729
 $dbi->execute($create_table1);
2730 2730
 $result = $dbi->execute("select $key1 as h1, $key2 as h2 from $table1");
... ...
@@ -2776,7 +2776,7 @@ $result = $model->select(
2776 2776
 is_deeply($result->all, [{"$table1.$key2" => 2}]);
2777 2777
 
2778 2778
 test 'result';
2779
-$dbi = DBIx::Custom::Next->connect;
2779
+$dbi = DBIx::Custom->connect;
2780 2780
 eval { $dbi->execute("drop table $table1") };
2781 2781
 $dbi->execute($create_table1);
2782 2782
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -2796,7 +2796,7 @@ while (my $row = $result->fetch_hash) {
2796 2796
 }
2797 2797
 is_deeply(\@rows, [{$key1 => 1, $key2 => 2}, {$key1 => 3, $key2 => 4}]);
2798 2798
 
2799
-$dbi = DBIx::Custom::Next->connect;
2799
+$dbi = DBIx::Custom->connect;
2800 2800
 eval { $dbi->execute("drop table $table1") };
2801 2801
 $dbi->execute($create_table1);
2802 2802
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -2829,7 +2829,7 @@ $result->filter({$key1 => 'three_times'});
2829 2829
 $rows = $result->fetch_hash_all;
2830 2830
 is_deeply($rows, [{$key1 => 3, $key2 => 2}, {$key1 => 9, $key2 => 4}], "hash");
2831 2831
 
2832
-test 'DBIx::Custom::Next::Result fetch_multi';
2832
+test 'DBIx::Custom::Result fetch_multi';
2833 2833
 eval { $dbi->execute("drop table $table1") };
2834 2834
 $dbi->execute($create_table1);
2835 2835
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -2843,7 +2843,7 @@ is_deeply($rows, [[5, 6]]);
2843 2843
 $rows = $result->fetch_multi(2);
2844 2844
 ok(!$rows);
2845 2845
 
2846
-test 'DBIx::Custom::Next::Result fetch_hash_multi';
2846
+test 'DBIx::Custom::Result fetch_hash_multi';
2847 2847
 eval { $dbi->execute("drop table $table1") };
2848 2848
 $dbi->execute($create_table1);
2849 2849
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -2858,7 +2858,7 @@ $rows = $result->fetch_hash_multi(2);
2858 2858
 ok(!$rows);
2859 2859
 
2860 2860
 test 'select() after_build_sql option';
2861
-$dbi = DBIx::Custom::Next->connect;
2861
+$dbi = DBIx::Custom->connect;
2862 2862
 $dbi->user_table_info($user_table_info);
2863 2863
 eval { $dbi->execute("drop table $table1") };
2864 2864
 $dbi->execute($create_table1);
... ...
@@ -2876,7 +2876,7 @@ $rows = $dbi->select(
2876 2876
 is_deeply($rows, [{$key1 => 1}]);
2877 2877
 
2878 2878
 test 'select() after_build_sql option';
2879
-$dbi = DBIx::Custom::Next->connect;
2879
+$dbi = DBIx::Custom->connect;
2880 2880
 $dbi->user_table_info($user_table_info);
2881 2881
 eval { $dbi->execute("drop table $table1") };
2882 2882
 $dbi->execute($create_table1);
... ...
@@ -2943,7 +2943,7 @@ is_deeply($result->one,
2943 2943
           {"$table2_alias-$key1" => 1, "$table2_alias-$key3" => 4});
2944 2944
 
2945 2945
 test 'create_model';
2946
-$dbi = DBIx::Custom::Next->connect;
2946
+$dbi = DBIx::Custom->connect;
2947 2947
 $dbi->user_table_info($user_table_info);
2948 2948
 eval { $dbi->execute("drop table $table1") };
2949 2949
 eval { $dbi->execute("drop table $table2") };
... ...
@@ -2976,7 +2976,7 @@ is_deeply($result->one,
2976 2976
 is_deeply($model2->select->one, {$key1 => 1, $key3 => 3});
2977 2977
 
2978 2978
 test 'model helper';
2979
-$dbi = DBIx::Custom::Next->connect;
2979
+$dbi = DBIx::Custom->connect;
2980 2980
 eval { $dbi->execute("drop table $table2") };
2981 2981
 $dbi->execute($create_table2);
2982 2982
 $dbi->insert({$key1 => 1, $key3 => 3}, table => $table2);
... ...
@@ -2987,7 +2987,7 @@ $model->helper(foo => sub { shift->select(@_) });
2987 2987
 is_deeply($model->foo->one, {$key1 => 1, $key3 => 3});
2988 2988
 
2989 2989
 test 'model helper';
2990
-$dbi = DBIx::Custom::Next->connect;
2990
+$dbi = DBIx::Custom->connect;
2991 2991
 eval { $dbi->execute("drop table $table2") };
2992 2992
 $dbi->execute($create_table2);
2993 2993
 $dbi->insert({$key1 => 1, $key3 => 3}, table => $table2);
... ...
@@ -2998,7 +2998,7 @@ $model->helper(foo => sub { shift->select(@_) });
2998 2998
 is_deeply($model->foo->one, {$key1 => 1, $key3 => 3});
2999 2999
 
3000 3000
 test 'assign_clause';
3001
-$dbi = DBIx::Custom::Next->connect;
3001
+$dbi = DBIx::Custom->connect;
3002 3002
 eval { $dbi->execute("drop table $table1") };
3003 3003
 $dbi->execute($create_table1_2);
3004 3004
 $dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
... ...
@@ -3018,7 +3018,7 @@ is_deeply($rows, [{$key1 => 1, $key2 => 11, $key3 => 3, $key4 => 4, $key5 => 5},
3018 3018
                   "basic");
3019 3019
 
3020 3020
 
3021
-$dbi = DBIx::Custom::Next->connect;
3021
+$dbi = DBIx::Custom->connect;
3022 3022
 eval { $dbi->execute("drop table $table1") };
3023 3023
 $dbi->execute($create_table1_2);
3024 3024
 $dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
... ...
@@ -3037,7 +3037,7 @@ is_deeply($rows, [{$key1 => 1, $key2 => 11, $key3 => 33, $key4 => 4, $key5 => 5}
3037 3037
                   {$key1 => 6, $key2 => 7,  $key3 => 8, $key4 => 9, $key5 => 10}],
3038 3038
                   "basic");
3039 3039
 
3040
-$dbi = DBIx::Custom::Next->connect;
3040
+$dbi = DBIx::Custom->connect;
3041 3041
 eval { $dbi->execute("drop table $table1") };
3042 3042
 $dbi->execute($create_table1_2);
3043 3043
 $dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
... ...
@@ -3057,7 +3057,7 @@ is_deeply($rows, [{$key1 => 1, $key2 => 11, $key3 => 33, $key4 => 4, $key5 => 5}
3057 3057
                   "update param no_set");
3058 3058
 
3059 3059
             
3060
-$dbi = DBIx::Custom::Next->connect;
3060
+$dbi = DBIx::Custom->connect;
3061 3061
 eval { $dbi->execute("drop table $table1") };
3062 3062
 $dbi->execute($create_table1_2);
3063 3063
 $dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
... ...
@@ -3153,7 +3153,7 @@ is_deeply([sort @{$dbi->model($table1)->columns}], [$key1, $key2]);
3153 3153
 is_deeply([sort @{$dbi->model($table2)->columns}], [$key1, $key3]);
3154 3154
 
3155 3155
 test 'each_column';
3156
-$dbi = DBIx::Custom::Next->connect;
3156
+$dbi = DBIx::Custom->connect;
3157 3157
 eval { $dbi->execute("drop table ${q}table$p") };
3158 3158
 eval { $dbi->execute("drop table $table1") };
3159 3159
 eval { $dbi->execute("drop table $table2") };
... ...
@@ -3182,7 +3182,7 @@ is_deeply($infos,
3182 3182
 );
3183 3183
 
3184 3184
 test 'each_table';
3185
-$dbi = DBIx::Custom::Next->connect;
3185
+$dbi = DBIx::Custom->connect;
3186 3186
 eval { $dbi->execute("drop table $table1") };
3187 3187
 eval { $dbi->execute("drop table $table2") };
3188 3188
 $dbi->execute($create_table2);
... ...
@@ -3205,7 +3205,7 @@ is_deeply($infos,
3205 3205
     ]
3206 3206
 );
3207 3207
 
3208
-$dbi = DBIx::Custom::Next->connect;
3208
+$dbi = DBIx::Custom->connect;
3209 3209
 eval { $dbi->execute("drop table $table1") };
3210 3210
 eval { $dbi->execute("drop table $table2") };
3211 3211
 $dbi->execute($create_table2);
... ...
@@ -3236,7 +3236,7 @@ $dbi->execute($create_table1_type);
3236 3236
 $user_column_info = $dbi->get_column_info(exclude_table => $dbi->exclude_table);
3237 3237
 
3238 3238
 
3239
-$dbi = DBIx::Custom::Next->connect;
3239
+$dbi = DBIx::Custom->connect;
3240 3240
 eval { $dbi->execute("drop table $table1") };
3241 3241
 $dbi->execute($create_table1_type);
3242 3242
 
... ...
@@ -3250,7 +3250,7 @@ $dbi->insert({$key1 => '01-01'}, table => $table1);
3250 3250
 $result = $dbi->select(table => $table1);
3251 3251
 like($result->one->{$key1}, qr/^2010-01-01/);
3252 3252
 
3253
-$dbi = DBIx::Custom::Next->connect;
3253
+$dbi = DBIx::Custom->connect;
3254 3254
 eval { $dbi->execute("drop table $table1") };
3255 3255
 $dbi->execute($create_table1_type);
3256 3256
 $dbi->user_column_info($user_column_info);
... ...
@@ -3269,7 +3269,7 @@ $row = $result->one;
3269 3269
 like($row->{$key1}, qr/^2010-01-03/);
3270 3270
 like($row->{$key2}, qr/^2010-01-01 01:01:03/);
3271 3271
 
3272
-$dbi = DBIx::Custom::Next->connect;
3272
+$dbi = DBIx::Custom->connect;
3273 3273
 eval { $dbi->execute("drop table $table1") };
3274 3274
 $dbi->execute($create_table1_type);
3275 3275
 $dbi->insert({$key1 => '2010-01-03', $key2 => '2010-01-01 01:01:03'}, table => $table1);
... ...
@@ -3291,7 +3291,7 @@ $row = $result->one;
3291 3291
 like($row->{$key1}, qr/^2010-01-03/);
3292 3292
 like($row->{$key2}, qr/^2010-01-01 01:01:03/);
3293 3293
 
3294
-$dbi = DBIx::Custom::Next->connect;
3294
+$dbi = DBIx::Custom->connect;
3295 3295
 eval { $dbi->execute("drop table $table1") };
3296 3296
 $dbi->execute($create_table1_type);
3297 3297
 $dbi->insert({$key1 => '2010-01-03', $key2 => '2010-01-01 01:01:03'}, table => $table1);
... ...
@@ -3314,7 +3314,7 @@ $row = $result->one;
3314 3314
 like($row->{$key1}, qr/^2010-01-03/);
3315 3315
 like($row->{$key2}, qr/2010-01-01 01:01:03/);
3316 3316
 
3317
-$dbi = DBIx::Custom::Next->connect;
3317
+$dbi = DBIx::Custom->connect;
3318 3318
 eval { $dbi->execute("drop table $table1") };
3319 3319
 $dbi->execute($create_table1_type);
3320 3320
 $dbi->register_filter(convert => sub {
... ...
@@ -3340,7 +3340,7 @@ like($row->[0], qr/^2010-03-03/);
3340 3340
 like($row->[1], qr/^2010-03-03/);
3341 3341
 
3342 3342
 test 'type_rule and filter order';
3343
-$dbi = DBIx::Custom::Next->connect;
3343
+$dbi = DBIx::Custom->connect;
3344 3344
 eval { $dbi->execute("drop table $table1") };
3345 3345
 $dbi->execute($create_table1_type);
3346 3346
 $dbi->user_column_info($user_column_info);
... ...
@@ -3365,7 +3365,7 @@ $result->filter($key1 => sub { my $v = shift || ''; $v =~ s/8/9/; return $v });
3365 3365
 like($result->fetch_first->[0], qr/^2010-01-09/);
3366 3366
 
3367 3367
 
3368
-$dbi = DBIx::Custom::Next->connect;
3368
+$dbi = DBIx::Custom->connect;
3369 3369
 eval { $dbi->execute("drop table $table1") };
3370 3370
 $dbi->execute($create_table1_type);
3371 3371
 $dbi->user_column_info($user_column_info);
... ...
@@ -3392,7 +3392,7 @@ $result->filter($key1 => sub { my $v = shift || ''; $v =~ s/8/9/; return $v });
3392 3392
 like($result->fetch_first->[0], qr/^2010-01-09/);
3393 3393
 
3394 3394
 test 'type_rule_off';
3395
-$dbi = DBIx::Custom::Next->connect;
3395
+$dbi = DBIx::Custom->connect;
3396 3396
 eval { $dbi->execute("drop table $table1") };
3397 3397
 $dbi->execute($create_table1_type);
3398 3398
 $dbi->user_column_info($user_column_info);
... ...
@@ -3408,7 +3408,7 @@ $dbi->insert({$key1 => '2010-01-03'}, table => $table1, type_rule_off => 1);
3408 3408
 $result = $dbi->select(table => $table1, type_rule_off => 1);
3409 3409
 like($result->type_rule_off->fetch->[0], qr/^2010-01-03/);
3410 3410
 
3411
-$dbi = DBIx::Custom::Next->connect;
3411
+$dbi = DBIx::Custom->connect;
3412 3412
 eval { $dbi->execute("drop table $table1") };
3413 3413
 $dbi->execute($create_table1_type);
3414 3414
 $dbi->user_column_info($user_column_info);
... ...
@@ -3424,7 +3424,7 @@ $dbi->insert({$key1 => '2010-01-03'}, table => $table1, type_rule_off => 1);
3424 3424
 $result = $dbi->select(table => $table1, type_rule_off => 1);
3425 3425
 like($result->one->{$key1}, qr/^2010-01-04/);
3426 3426
 
3427
-$dbi = DBIx::Custom::Next->connect;
3427
+$dbi = DBIx::Custom->connect;
3428 3428
 eval { $dbi->execute("drop table $table1") };
3429 3429
 $dbi->execute($create_table1_type);
3430 3430
 $dbi->user_column_info($user_column_info);
... ...
@@ -3440,7 +3440,7 @@ $dbi->insert({$key1 => '2010-01-03'}, table => $table1);
3440 3440
 $result = $dbi->select(table => $table1);
3441 3441
 like($result->one->{$key1}, qr/^2010-01-05/);
3442 3442
 
3443
-$dbi = DBIx::Custom::Next->connect;
3443
+$dbi = DBIx::Custom->connect;
3444 3444
 eval { $dbi->execute("drop table $table1") };
3445 3445
 $dbi->execute($create_table1_type);
3446 3446
 $dbi->user_column_info($user_column_info);
... ...
@@ -3456,7 +3456,7 @@ $dbi->insert({$key1 => '2010-01-03'}, table => $table1);
3456 3456
 $result = $dbi->select(table => $table1);
3457 3457
 like($result->fetch->[0], qr/2010-01-05/);
3458 3458
 
3459
-$dbi = DBIx::Custom::Next->connect;
3459
+$dbi = DBIx::Custom->connect;
3460 3460
 eval { $dbi->execute("drop table $table1") };
3461 3461
 $dbi->execute($create_table1_type);
3462 3462
 $dbi->register_filter(ppp => sub { my $v = shift || ''; $v =~ s/3/4/; return $v });
... ...
@@ -3477,7 +3477,7 @@ eval{$dbi->type_rule(
3477 3477
 )};
3478 3478
 like($@, qr/not registered/);
3479 3479
 
3480
-$dbi = DBIx::Custom::Next->connect;
3480
+$dbi = DBIx::Custom->connect;
3481 3481
 eval { $dbi->execute("drop table $table1") };
3482 3482
 $dbi->execute($create_table1_type);
3483 3483
 eval {
... ...
@@ -3498,7 +3498,7 @@ eval {
3498 3498
 };
3499 3499
 like($@, qr/lower/);
3500 3500
 
3501
-$dbi = DBIx::Custom::Next->connect;
3501
+$dbi = DBIx::Custom->connect;
3502 3502
 eval { $dbi->execute("drop table $table1") };
3503 3503
 $dbi->execute($create_table1_type);
3504 3504
 $dbi->user_column_info($user_column_info);
... ...
@@ -3515,7 +3515,7 @@ $result = $dbi->select(table => $table1);
3515 3515
 $result->type_rule_off;
3516 3516
 like($result->one->{$key1}, qr/^2010-01-04/);
3517 3517
 
3518
-$dbi = DBIx::Custom::Next->connect;
3518
+$dbi = DBIx::Custom->connect;
3519 3519
 eval { $dbi->execute("drop table $table1") };
3520 3520
 $dbi->execute($create_table1_type);
3521 3521
 $dbi->user_column_info($user_column_info);
... ...
@@ -3581,7 +3581,7 @@ $row = $result->one;
3581 3581
 like($row->{$key1}, qr/^2010-01-03/);
3582 3582
 like($row->{$key2}, qr/^2010-01-01 01:01:03/);
3583 3583
 
3584
-$dbi = DBIx::Custom::Next->connect;
3584
+$dbi = DBIx::Custom->connect;
3585 3585
 eval { $dbi->execute("drop table $table1") };
3586 3586
 $dbi->execute($create_table1_type);
3587 3587
 $dbi->user_column_info($user_column_info);
... ...
@@ -3595,7 +3595,7 @@ $result = $dbi->select(table => $table1);
3595 3595
 $result->filter($key1 => sub { my $v = shift || ''; $v =~ s/4/5/; return $v });
3596 3596
 like($result->one->{$key1}, qr/^2010-01-05/);
3597 3597
 
3598
-$dbi = DBIx::Custom::Next->connect;
3598
+$dbi = DBIx::Custom->connect;
3599 3599
 eval { $dbi->execute("drop table $table1") };
3600 3600
 $dbi->execute($create_table1_type);
3601 3601
 $dbi->user_column_info($user_column_info);
... ...
@@ -3609,7 +3609,7 @@ $result = $dbi->select(table => $table1);
3609 3609
 $result->filter($key1 => sub { my $v = shift || ''; $v =~ s/4/5/; return $v });
3610 3610
 like($result->fetch->[0], qr/^2010-01-05/);
3611 3611
 
3612
-$dbi = DBIx::Custom::Next->connect;
3612
+$dbi = DBIx::Custom->connect;
3613 3613
 eval { $dbi->execute("drop table $table1") };
3614 3614
 $dbi->execute($create_table1_type);
3615 3615
 $dbi->user_column_info($user_column_info);
... ...
@@ -3633,7 +3633,7 @@ like($result->type_rule_off->fetch_first->[0], qr/^2010-01-03/);
3633 3633
 $result = $dbi->select(table => $table1);
3634 3634
 like($result->type_rule_on->fetch_first->[0], qr/^2010-01-07/);
3635 3635
 
3636
-$dbi = DBIx::Custom::Next->connect;
3636
+$dbi = DBIx::Custom->connect;
3637 3637
 eval { $dbi->execute("drop table $table1") };
3638 3638
 $dbi->execute($create_table1_type);
3639 3639
 $dbi->user_column_info($user_column_info);
... ...
@@ -3657,7 +3657,7 @@ like($result->type_rule1_off->fetch_first->[0], qr/^2010-01-05/);
3657 3657
 $result = $dbi->select(table => $table1);
3658 3658
 like($result->type_rule1_on->fetch_first->[0], qr/^2010-01-07/);
3659 3659
 
3660
-$dbi = DBIx::Custom::Next->connect;
3660
+$dbi = DBIx::Custom->connect;
3661 3661
 eval { $dbi->execute("drop table $table1") };
3662 3662
 $dbi->execute($create_table1_type);
3663 3663
 $dbi->user_column_info($user_column_info);
... ...
@@ -3682,7 +3682,7 @@ $result = $dbi->select(table => $table1);
3682 3682
 like($result->type_rule2_on->fetch_first->[0], qr/^2010-01-07/);
3683 3683
 
3684 3684
 test 'join';
3685
-$dbi = DBIx::Custom::Next->connect;
3685
+$dbi = DBIx::Custom->connect;
3686 3686
 eval { $dbi->execute("drop table $table1") };
3687 3687
 $dbi->execute($create_table1);
3688 3688
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -3701,7 +3701,7 @@ $rows = $dbi->select(
3701 3701
 )->all;
3702 3702
 is_deeply($rows, [{"${table1}_$key1" => 1, "${table2}_$key1" => 1, $key2 => 2, $key3 => 5}]);
3703 3703
 
3704
-$dbi = DBIx::Custom::Next->connect;
3704
+$dbi = DBIx::Custom->connect;
3705 3705
 eval { $dbi->execute("drop table $table1") };
3706 3706
 $dbi->execute($create_table1);
3707 3707
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -3756,7 +3756,7 @@ $rows = $dbi->select(
3756 3756
 )->all;
3757 3757
 is_deeply($rows, [{"${table1}__$key1" => 1}]);
3758 3758
 
3759
-$dbi = DBIx::Custom::Next->connect;
3759
+$dbi = DBIx::Custom->connect;
3760 3760
 eval { $dbi->execute("drop table $table1") };
3761 3761
 $dbi->execute($create_table1);
3762 3762
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -3773,7 +3773,7 @@ is_deeply($rows, [{"${table1}_$key1" => 1, "${table2}_$key1" => 1, $key2 => 2, $
3773 3773
           'quote');
3774 3774
 
3775 3775
 
3776
-$dbi = DBIx::Custom::Next->connect;
3776
+$dbi = DBIx::Custom->connect;
3777 3777
 eval { $dbi->execute("drop table $table1") };
3778 3778
 $dbi->execute($create_table1);
3779 3779
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
... ...
@@ -3794,7 +3794,7 @@ $rows = $dbi->select(
3794 3794
 )->all;
3795 3795
 is_deeply($rows, [{"${table3}__$key1" => 1}]);
3796 3796
 
3797
-$dbi = DBIx::Custom::Next->connect;
3797
+$dbi = DBIx::Custom->connect;
3798 3798
 eval { $dbi->execute("drop table $table1") };
3799 3799
 eval { $dbi->execute("drop table $table2") };
3800 3800
 $dbi->execute($create_table1);
... ...
@@ -3826,7 +3826,7 @@ $result = $dbi->select(
3826 3826
 );
3827 3827
 is_deeply($result->all, [{"$table2.$key3" => 4}]);
3828 3828
 
3829
-$dbi = DBIx::Custom::Next->connect;
3829
+$dbi = DBIx::Custom->connect;
3830 3830
 eval { $dbi->execute("drop table $table1") };
3831 3831
 eval { $dbi->execute("drop table $table2") };
3832 3832
 $dbi->execute($create_table1);
... ...
@@ -3846,7 +3846,7 @@ $result = $dbi->select(
3846 3846
 );
3847 3847
 is_deeply($result->all, [{"$table2.$key3" => 4}]);
3848 3848
 
3849
-$dbi = DBIx::Custom::Next->connect;
3849
+$dbi = DBIx::Custom->connect;
3850 3850
 eval { $dbi->execute("drop table $table1") };
3851 3851
 eval { $dbi->execute("drop table $table2") };
3852 3852
 $dbi->execute($create_table1);
... ...
@@ -3863,7 +3863,7 @@ $result = $dbi->select(
3863 3863
 );
3864 3864
 is_deeply($result->all, [{"$table2.$key3" => 4}]);
3865 3865
 
3866
-$dbi = DBIx::Custom::Next->connect;
3866
+$dbi = DBIx::Custom->connect;
3867 3867
 eval { $dbi->execute("drop table $table1") };
3868 3868
 eval { $dbi->execute("drop table $table2") };
3869 3869
 $dbi->execute($create_table1);
... ...
@@ -3885,7 +3885,7 @@ $dbi = MyDBI1->connect;
3885 3885
 $model = $dbi->model($table1);
3886 3886
 
3887 3887
 test 'count';
3888
-$dbi = DBIx::Custom::Next->connect;
3888
+$dbi = DBIx::Custom->connect;
3889 3889
 eval { $dbi->execute("drop table $table1") };
3890 3890
 $dbi->execute($create_table1);
3891 3891
 $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
+1 -1
t/next/common/MyDBI1.pm
... ...
@@ -3,7 +3,7 @@ package MyDBI1;
3 3
 use strict;
4 4
 use warnings;
5 5
 
6
-use base 'DBIx::Custom::Next';
6
+use base 'DBIx::Custom';
7 7
 
8 8
 sub connect {
9 9
     my $self = shift->SUPER::connect(@_);
+1 -1
t/next/common/MyModel1/table1.pm
... ...
@@ -1,6 +1,6 @@
1 1
 package MyModel1::table1;
2 2
 
3
-use DBIx::Custom::Next::Model -base;
3
+use DBIx::Custom::Model -base;
4 4
 
5 5
 sub insert {
6 6
     my ($self, $param) = @_;
+1 -1
t/next/common/MyModel1/table2.pm
... ...
@@ -3,7 +3,7 @@ package MyModel1::table2;
3 3
 use strict;
4 4
 use warnings;
5 5
 
6
-use base 'DBIx::Custom::Next::Model';
6
+use base 'DBIx::Custom::Model';
7 7
 
8 8
 
9 9
 sub insert {
+1 -1
t/next/common/MyModel4.pm
... ...
@@ -1,5 +1,5 @@
1 1
 package MyModel4;
2 2
 
3
-use base 'DBIx::Custom::Next::Model';
3
+use base 'DBIx::Custom::Model';
4 4
 
5 5
 1;
+1 -1
t/next/common/MyModel5.pm
... ...
@@ -1,5 +1,5 @@
1 1
 package MyModel5;
2 2
 
3
-use base 'DBIx::Custom::Next::Model';
3
+use base 'DBIx::Custom::Model';
4 4
 
5 5
 1;
+1 -1
t/next/common/MyModel6.pm
... ...
@@ -1,5 +1,5 @@
1 1
 package MyModel6;
2 2
 
3
-use base 'DBIx::Custom::Next::Model';
3
+use base 'DBIx::Custom::Model';
4 4
 
5 5
 1;
+1 -1
t/next/common/MyModel7.pm
... ...
@@ -1,5 +1,5 @@
1 1
 package MyModel7;
2 2
 
3
-use base 'DBIx::Custom::Next::Model';
3
+use base 'DBIx::Custom::Model';
4 4
 
5 5
 1;
+1 -1
t/next/common/MyModel8.pm
... ...
@@ -1,4 +1,4 @@
1 1
 package MyModel8;
2
-use DBIx::Custom::Next::Model -base;
2
+use DBIx::Custom::Model -base;
3 3
 
4 4
 1;
+1 -1
t/next/common_uc/MyDBI1.pm
... ...
@@ -3,7 +3,7 @@ package MyDBI1;
3 3
 use strict;
4 4
 use warnings;
5 5
 
6
-use base 'DBIx::Custom::Next';
6
+use base 'DBIx::Custom';
7 7
 
8 8
 sub connect {
9 9
     my $self = shift->SUPER::connect(@_);
+1 -1
t/next/common_uc/MyModel1/TABLE1.pm
... ...
@@ -1,6 +1,6 @@
1 1
 package MyModel1::TABLE1;
2 2
 
3
-use DBIx::Custom::Next::Model -base;
3
+use DBIx::Custom::Model -base;
4 4
 
5 5
 sub insert {
6 6
     my ($self, $param) = @_;
+1 -1
t/next/common_uc/MyModel1/TABLE2.pm
... ...
@@ -3,7 +3,7 @@ package MyModel1::TABLE2;
3 3
 use strict;
4 4
 use warnings;
5 5
 
6
-use base 'DBIx::Custom::Next::Model';
6
+use base 'DBIx::Custom::Model';
7 7
 
8 8
 
9 9
 sub insert {
+1 -1
t/next/common_uc/MyModel4.pm
... ...
@@ -1,5 +1,5 @@
1 1
 package MyModel4;
2 2
 
3
-use base 'DBIx::Custom::Next::Model';
3
+use base 'DBIx::Custom::Model';
4 4
 
5 5
 1;
+1 -1
t/next/common_uc/MyModel5.pm
... ...
@@ -1,5 +1,5 @@
1 1
 package MyModel5;
2 2
 
3
-use base 'DBIx::Custom::Next::Model';
3
+use base 'DBIx::Custom::Model';
4 4
 
5 5
 1;
+1 -1
t/next/common_uc/MyModel6.pm
... ...
@@ -1,5 +1,5 @@
1 1
 package MyModel6;
2 2
 
3
-use base 'DBIx::Custom::Next::Model';
3
+use base 'DBIx::Custom::Model';
4 4
 
5 5
 1;
+1 -1
t/next/common_uc/MyModel7.pm
... ...
@@ -1,5 +1,5 @@
1 1
 package MyModel7;
2 2
 
3
-use base 'DBIx::Custom::Next::Model';
3
+use base 'DBIx::Custom::Model';
4 4
 
5 5
 1;
+1 -1
t/next/common_uc/MyModel8.pm
... ...
@@ -1,4 +1,4 @@
1 1
 package MyModel8;
2
-use DBIx::Custom::Next::Model -base;
2
+use DBIx::Custom::Model -base;
3 3
 
4 4
 1;
+14 -14
t/next/mysql.t
... ...
@@ -4,7 +4,7 @@ use warnings;
4 4
 use utf8;
5 5
 
6 6
 use FindBin;
7
-use DBIx::Custom::Next;
7
+use DBIx::Custom;
8 8
 
9 9
 my $dbi;
10 10
 my $dsn;
... ...
@@ -17,7 +17,7 @@ $dsn = "dbi:mysql:database=$database";
17 17
 $args = {dsn => $dsn, user => $user, password => $password,};
18 18
 
19 19
 plan skip_all => 'mysql private test' unless -f "$FindBin::Bin/run/mysql2.run"
20
-  && eval { $dbi = DBIx::Custom::Next->connect($args); 1 };
20
+  && eval { $dbi = DBIx::Custom->connect($args); 1 };
21 21
 plan 'no_plan';
22 22
 
23 23
 $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
... ...
@@ -36,7 +36,7 @@ my $model;
36 36
 
37 37
 test 'connect';
38 38
 eval {
39
-    $dbi = DBIx::Custom::Next->connect(
39
+    $dbi = DBIx::Custom->connect(
40 40
         dsn => "dbi:mysql:database=$database;host=localhost;port=10000",
41 41
         user => $user,
42 42
         password => $password
... ...
@@ -109,7 +109,7 @@ is_deeply($row, {key1 => 1, key2 => 3}, "basic");
109 109
 
110 110
 # Test memory leaks
111 111
 for (1 .. 300) {
112
-    $dbi = DBIx::Custom::Next->connect(
112
+    $dbi = DBIx::Custom->connect(
113 113
         dsn => "dbi:mysql:database=$database;host=localhost;port=10000",
114 114
         user => $user,
115 115
         password => $password
... ...
@@ -124,15 +124,15 @@ test 'dbh';
124 124
         "dbi:mysql:database=$database",
125 125
         $user,
126 126
         $password,
127
-        DBIx::Custom::Next->new->default_option
127
+        DBIx::Custom->new->default_option
128 128
     );
129 129
 
130
-    my $dbi = DBIx::Custom::Next->connect(connector => $connector);
130
+    my $dbi = DBIx::Custom->connect(connector => $connector);
131 131
     $dbi->delete_all(table => 'table1');
132 132
     $dbi->do('insert into table1 (key1, key2) values (1, 2)');
133 133
     is($dbi->select(table => 'table1')->fetch_hash_first->{key1}, 1);
134 134
     
135
-    $dbi = DBIx::Custom::Next->new;
135
+    $dbi = DBIx::Custom->new;
136 136
     $dbi->dbh('a');
137 137
     is($dbi->{dbh}, 'a');
138 138
 }
... ...
@@ -144,10 +144,10 @@ test 'dbh';
144 144
         "dbi:mysql:database=$database",
145 145
         $user,
146 146
         $password,
147
-        DBIx::Custom::Next->new->default_option
147
+        DBIx::Custom->new->default_option
148 148
     );
149 149
 
150
-    my $dbi = DBIx::Custom::Next->connect(connector => $connector);
150
+    my $dbi = DBIx::Custom->connect(connector => $connector);
151 151
     $dbi->delete_all(table => 'table1');
152 152
     
153 153
     $dbi->connector->txn(sub {
... ...
@@ -169,10 +169,10 @@ test 'dbh';
169 169
               []);
170 170
 }
171 171
 
172
-use DBIx::Custom::Next;
172
+use DBIx::Custom;
173 173
 use Scalar::Util 'blessed';
174 174
 {
175
-    my $dbi = DBIx::Custom::Next->connect(
175
+    my $dbi = DBIx::Custom->connect(
176 176
         user => $user,
177 177
         password => $password,
178 178
         dsn => "dbi:mysql:dbname=$database"
... ...
@@ -186,7 +186,7 @@ use Scalar::Util 'blessed';
186 186
 }
187 187
 
188 188
 {
189
-    my $dbi = DBIx::Custom::Next->connect(
189
+    my $dbi = DBIx::Custom->connect(
190 190
         user => $user,
191 191
         password => $password,
192 192
         dsn => "dbi:mysql:dbname=$database",
... ...
@@ -203,10 +203,10 @@ test 'fork';
203 203
         "dbi:mysql:database=$database",
204 204
         $user,
205 205
         $password,
206
-        DBIx::Custom::Next->new->default_option
206
+        DBIx::Custom->new->default_option
207 207
     );
208 208
     
209
-    my $dbi = DBIx::Custom::Next->new(connector => $connector);
209
+    my $dbi = DBIx::Custom->new(connector => $connector);
210 210
     $dbi->delete_all(table => 'table1');
211 211
     $dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
212 212
     die "Can't fork" unless defined (my $pid = fork);
+4 -4
t/next/mysql2.t
... ...
@@ -4,7 +4,7 @@ use warnings;
4 4
 use utf8;
5 5
 
6 6
 use FindBin;
7
-use DBIx::Custom::Next;
7
+use DBIx::Custom;
8 8
 
9 9
 my $dbi;
10 10
 my $dsn;
... ...
@@ -17,7 +17,7 @@ $dsn = "dbi:mysql:database=$database";
17 17
 $args = {dsn => $dsn, user => $user, password => $password,};
18 18
 
19 19
 plan skip_all => 'mysql private test' unless -f "$FindBin::Bin/run/mysql2.run"
20
-  && eval { $dbi = DBIx::Custom::Next->connect($args); 1 };
20
+  && eval { $dbi = DBIx::Custom->connect($args); 1 };
21 21
 plan 'no_plan';
22 22
 
23 23
 $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
... ...
@@ -33,7 +33,7 @@ my $dbname;
33 33
 my $rows;
34 34
 my $result;
35 35
 
36
-$dbi = DBIx::Custom::Next->connect(
36
+$dbi = DBIx::Custom->connect(
37 37
     dsn => "dbi:mysql:database=$database",
38 38
     user => $user,
39 39
     password => $password
... ...
@@ -43,7 +43,7 @@ $dbi->execute('create table table1 (key1 varchar(255), key2 varchar(255))');
43 43
 
44 44
 test 'connector => 1';
45 45
 {
46
-    my $dbi = DBIx::Custom::Next->connect(dsn => $dsn, user => $user, password => $password,
46
+    my $dbi = DBIx::Custom->connect(dsn => $dsn, user => $user, password => $password,
47 47
       option => {PrintError => 1}, connector => 1);
48 48
     is(ref $dbi->connector, 'DBIx::Connector');
49 49
     ok($dbi->dbh->{PrintError});
+2 -2
t/next/sqlite-quote.t
... ...
@@ -1,7 +1,7 @@
1 1
 # Change quote for tests
2
-use DBIx::Custom::Next;
2
+use DBIx::Custom;
3 3
 {
4
-    package DBIx::Custom::Next;
4
+    package DBIx::Custom;
5 5
     no warnings 'redefine';
6 6
     sub quote { '""' }
7 7
 }
+21 -21
t/next/sqlite.t
... ...
@@ -13,15 +13,15 @@ BEGIN {
13 13
         or plan skip_all => 'DBD::SQLite >= 1.25 required';
14 14
 
15 15
     plan 'no_plan';
16
-    use_ok('DBIx::Custom::Next');
16
+    use_ok('DBIx::Custom');
17 17
 }
18 18
 
19 19
 $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
20 20
 sub test { print "# $_[0]\n" }
21 21
 
22
-use DBIx::Custom::Next;
22
+use DBIx::Custom;
23 23
 {
24
-    package DBIx::Custom::Next;
24
+    package DBIx::Custom;
25 25
     has dsn => sub { 'dbi:SQLite:dbname=:memory:' }
26 26
 }
27 27
 
... ...
@@ -40,17 +40,17 @@ my $binary;
40 40
 my $model;
41 41
 
42 42
 # Prepare table
43
-$dbi = DBIx::Custom::Next->connect;
43
+$dbi = DBIx::Custom->connect;
44 44
 
45 45
 
46 46
 ### SQLite only test
47 47
 test 'option default';
48
-$dbi = DBIx::Custom::Next->new;
48
+$dbi = DBIx::Custom->new;
49 49
 is_deeply($dbi->option, {});
50 50
 
51 51
 
52 52
 test 'prefix';
53
-$dbi = DBIx::Custom::Next->connect;
53
+$dbi = DBIx::Custom->connect;
54 54
 eval { $dbi->execute('drop table table1') };
55 55
 $dbi->execute('create table table1 (key1 varchar, key2 varchar, primary key(key1));');
56 56
 $dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
... ...
@@ -61,7 +61,7 @@ is_deeply($rows, [{key1 => 1, key2 => 4}], "basic");
61 61
 
62 62
 
63 63
 test 'insert created_at and updated_at scalar reference';
64
-$dbi = DBIx::Custom::Next->connect;
64
+$dbi = DBIx::Custom->connect;
65 65
 eval { $dbi->execute('drop table table1') };
66 66
 $dbi->execute('create table table1 (key1, key2, key3)');
67 67
 $dbi->now(\"datetime('now')");
... ...
@@ -71,7 +71,7 @@ $row   = $result->one;
71 71
 is($row->{key1}, $row->{key2});
72 72
 is($row->{key1}, $row->{key3});
73 73
 
74
-$dbi = DBIx::Custom::Next->connect;
74
+$dbi = DBIx::Custom->connect;
75 75
 eval { $dbi->execute('drop table table1') };
76 76
 $dbi->execute('create table table1 (key1, key2, key3)');
77 77
 $dbi->now(\"datetime('now')");
... ...
@@ -83,7 +83,7 @@ is($row->{key1}, $row->{key2});
83 83
 is($row->{key1}, $row->{key3});
84 84
 
85 85
 test 'insert created_at and updated_at scalar reference';
86
-$dbi = DBIx::Custom::Next->connect;
86
+$dbi = DBIx::Custom->connect;
87 87
 eval { $dbi->execute('drop table table1') };
88 88
 $dbi->execute('create table table1 (key1, key2, key3)');
89 89
 $dbi->now(\"datetime('now')");
... ...
@@ -94,7 +94,7 @@ is($row->{key1}, $row->{key2});
94 94
 is($row->{key1}, $row->{key3});
95 95
 
96 96
 test 'update updated_at scalar reference';
97
-$dbi = DBIx::Custom::Next->connect;
97
+$dbi = DBIx::Custom->connect;
98 98
 eval { $dbi->execute('drop table table1') };
99 99
 $dbi->execute('create table table1 (key1, key2)');
100 100
 $dbi->now(\"datetime('now')");
... ...
@@ -115,7 +115,7 @@ $row = $result->one;
115 115
 is($row->{key1}, $row->{key2});
116 116
 is($row->{key1}, $row->{key3});
117 117
 
118
-$dbi = DBIx::Custom::Next->connect;
118
+$dbi = DBIx::Custom->connect;
119 119
 eval { $dbi->execute('drop table table1') };
120 120
 $dbi->execute('create table table1 (key1, key2)');
121 121
 $dbi->now(\"datetime('now')");
... ...
@@ -128,7 +128,7 @@ is($row->{key1}, $row->{key2});
128 128
 test 'DBIX_CUSTOM_DEBUG ok';
129 129
 {
130 130
     local $ENV{DBIX_CUSTOM_DEBUG} = 1;
131
-    $dbi = DBIx::Custom::Next->connect;
131
+    $dbi = DBIx::Custom->connect;
132 132
     eval { $dbi->execute('drop table table1') };
133 133
     my $error;
134 134
     local $SIG{__WARN__} = sub {
... ...
@@ -139,7 +139,7 @@ test 'DBIX_CUSTOM_DEBUG ok';
139 139
 }
140 140
 
141 141
 test 'quote';
142
-$dbi = DBIx::Custom::Next->connect;
142
+$dbi = DBIx::Custom->connect;
143 143
 $dbi->quote('"');
144 144
 eval { $dbi->execute("drop table ${q}table$p") };
145 145
 $dbi->execute($create_table_quote);
... ...
@@ -150,7 +150,7 @@ $rows   = $result->all;
150 150
 is_deeply($rows, [], "quote");
151 151
 
152 152
 test 'finish statement handle';
153
-$dbi = DBIx::Custom::Next->connect;
153
+$dbi = DBIx::Custom->connect;
154 154
 $dbi->execute($create_table1);
155 155
 $dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
156 156
 $dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
... ...
@@ -172,7 +172,7 @@ $result = $dbi->select(table => 'table2');
172 172
 $row = $result->fetch_hash_first;
173 173
 ok(!$row, "no row fetch");
174 174
 
175
-$dbi = DBIx::Custom::Next->connect;
175
+$dbi = DBIx::Custom->connect;
176 176
 eval { $dbi->execute('drop table table1') };
177 177
 $dbi->execute($create_table1);
178 178
 $dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
... ...
@@ -214,7 +214,7 @@ like($@, qr/Row count must be specified/, "Not specified row count");
214 214
 
215 215
 test 'bind_type option';
216 216
 $binary = pack("I3", 1, 2, 3);
217
-$dbi = DBIx::Custom::Next->connect(option => {sqlite_unicode => 1});
217
+$dbi = DBIx::Custom->connect(option => {sqlite_unicode => 1});
218 218
 $dbi->execute('create table table1(key1, key2)');
219 219
 $dbi->insert({key1 => $binary, key2 => 'あ'}, table => 'table1', bind_type => [key1 => DBI::SQL_BLOB]);
220 220
 $result = $dbi->select(table => 'table1');
... ...
@@ -225,7 +225,7 @@ $row = $result->one;
225 225
 is($row->{key1_length}, length $binary);
226 226
 
227 227
 test 'type_rule from';
228
-$dbi = DBIx::Custom::Next->connect;
228
+$dbi = DBIx::Custom->connect;
229 229
 $dbi->type_rule(
230 230
     from1 => {
231 231
         date => sub { uc $_[0] }
... ...
@@ -251,7 +251,7 @@ is_deeply($rows, [{key1 => 3, key2 => 4}], "append statement");
251 251
 
252 252
 # DEPRECATED! test
253 253
 test 'filter __ expression';
254
-$dbi = DBIx::Custom::Next->connect;
254
+$dbi = DBIx::Custom->connect;
255 255
 eval { $dbi->execute('drop table table2') };
256 256
 eval { $dbi->execute('drop table table3') };
257 257
 $dbi->execute('create table table2 (id, name, table3_id)');
... ...
@@ -282,7 +282,7 @@ $result = $dbi->select(
282 282
 is($result->fetch_first->[0], 'b');
283 283
 
284 284
 test 'quote';
285
-$dbi = DBIx::Custom::Next->connect;
285
+$dbi = DBIx::Custom->connect;
286 286
 eval { $dbi->execute("drop table ${q}table$p") };
287 287
 $dbi->quote('"');
288 288
 $dbi->execute($create_table_quote);
... ...
@@ -293,7 +293,7 @@ $rows   = $result->all;
293 293
 is_deeply($rows, [{select => 1, update => 2}]);
294 294
 
295 295
 test 'join function';
296
-$dbi = DBIx::Custom::Next->connect;
296
+$dbi = DBIx::Custom->connect;
297 297
 eval { $dbi->execute("drop table table1") };
298 298
 eval { $dbi->execute("drop table table2") };
299 299
 $dbi->execute($create_table1);
... ...
@@ -310,7 +310,7 @@ $result = $dbi->select(
310 310
 );
311 311
 is_deeply($result->all, [{"table2.key3" => 4}]);
312 312
 
313
-$dbi = DBIx::Custom::Next->connect;
313
+$dbi = DBIx::Custom->connect;
314 314
 eval { $dbi->execute("drop table table1") };
315 315
 eval { $dbi->execute("drop table table2") };
316 316
 $dbi->execute($create_table1);