| ... | ... |
@@ -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 |