... | ... |
@@ -1,7 +1,7 @@ |
1 | 1 |
package DBIx::Custom; |
2 | 2 |
use Object::Simple -base; |
3 | 3 |
|
4 |
-our $VERSION = '0.1711'; |
|
4 |
+our $VERSION = '0.1712'; |
|
5 | 5 |
use 5.008001; |
6 | 6 |
|
7 | 7 |
use Carp 'croak'; |
... | ... |
@@ -27,27 +27,15 @@ use DBIx::Custom; |
27 | 27 |
|
28 | 28 |
# Constant |
29 | 29 |
my $create_table1 = 'create table table1 (key1 varchar, key2 varchar);'; |
30 |
-my $create_table1_2 = 'create table table1 (key1 varchar, key2 varchar, key3 varchar, key4 varchar, key5 varchar);'; |
|
31 |
-my $create_table2 = 'create table table2 (key1 varchar, key3 varchar);'; |
|
32 |
-my $create_table2_2 = "create table table2 (key1 varchar, key2 varchar, key3 varchar)"; |
|
33 |
-my $create_table3 = "create table table3 (key1 varchar, key2 varchar, key3 varchar)"; |
|
34 | 30 |
my $create_table_reserved = 'create table "table" ("select" varchar, "update" varchar)'; |
35 |
- |
|
36 | 31 |
my $q = '"'; |
37 | 32 |
my $p = '"'; |
38 | 33 |
|
39 | 34 |
# Variables |
40 | 35 |
my $dbi; |
41 |
-my $param; |
|
42 |
-my $params; |
|
43 |
-my $sql; |
|
44 | 36 |
my $result; |
45 | 37 |
my $row; |
46 |
-my @rows; |
|
47 | 38 |
my $rows; |
48 |
-my $model; |
|
49 |
-my $model2; |
|
50 |
-my $where; |
|
51 | 39 |
my $binary; |
52 | 40 |
|
53 | 41 |
# Prepare table |