@@ -1,3 +1,6 @@

+0.1733

+    - removed argument checking logic because in database performance is more

+      important.

 0.1732

     - removed EXPERIMETNAL flag from like_value

 0.1731

@@ -1,7 +1,7 @@

 package DBIx::Custom;

 use Object::Simple -base;

-our $VERSION = '0.1732';

+our $VERSION = '0.1733';

 use 5.008001;

 use Carp 'croak';

@@ -370,11 +370,6 @@ sub each_table {

     }

 }

-our %VALID_ARGS = map { $_ => 1 } qw/append after_build_sql allow_delete_all

-  allow_update_all bind_type column filter id join param prefix primary_key

-  query relation sqlfilter table table_alias timestamp type type_rule_off

-  type_rule1_off type_rule2_off wrap/;

-

 sub execute {

     my $self = shift;

     my $sql = shift;

@@ -408,12 +403,6 @@ sub execute {

     $primary_key = [$primary_key] unless ref $primary_key eq 'ARRAY';

     my $append = delete $args{append};

     $sql .= $append if defined $append && !ref $sql;

-

-    # Check argument names

-    foreach my $name (keys %args) {

-        croak qq{"$name" is wrong option } . _subname

-          unless $VALID_ARGS{$name};

-    }

     my $query

       = ref $sql ? $sql : $self->_create_query($sql, $after_build_sql);

@@ -1747,7 +1736,6 @@ sub apply_filter {

 }

 # DEPRECATED!

-our %SELECT_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);

 sub select_at {

     my ($self, %args) = @_;

@@ -1759,12 +1747,6 @@ sub select_at {

     my $where = delete $args{where};

     my $param = delete $args{param};

-    # Check arguments

-    foreach my $name (keys %args) {

-        croak qq{"$name" is wrong option } . _subname

-          unless $SELECT_AT_ARGS{$name};

-    }

-    

     # Table

     croak qq{"table" option must be specified } . _subname

       unless $args{table};

@@ -1777,7 +1759,6 @@ sub select_at {

 }

 # DEPRECATED!

-our %DELETE_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);

 sub delete_at {

     my ($self, %args) = @_;

@@ -1788,12 +1769,6 @@ sub delete_at {

     $primary_keys = [$primary_keys] unless ref $primary_keys;

     my $where = delete $args{where};

-    # Check arguments

-    foreach my $name (keys %args) {

-        croak qq{"$name" is wrong option } . _subname

-          unless $DELETE_AT_ARGS{$name};

-    }

-    

     # Create where parameter

     my $where_param = $self->_create_param_from_id($where, $primary_keys);

@@ -1801,7 +1776,6 @@ sub delete_at {

 }

 # DEPRECATED!

-our %UPDATE_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);

 sub update_at {

     my $self = shift;

@@ -1817,12 +1791,6 @@ sub update_at {

     my $p = delete $args{param} || {};

     $param  ||= $p;

-    # Check arguments

-    foreach my $name (keys %args) {

-        croak qq{"$name" is wrong option } . _subname

-          unless $UPDATE_AT_ARGS{$name};

-    }

-    

     # Create where parameter

     my $where_param = $self->_create_param_from_id($where, $primary_keys);

@@ -1830,7 +1798,6 @@ sub update_at {

 }

 # DEPRECATED!

-our %INSERT_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);

 sub insert_at {

     my $self = shift;

@@ -1846,12 +1813,6 @@ sub insert_at {

     my $p = delete $args{param} || {};

     $param  ||= $p;

-    # Check arguments

-    foreach my $name (keys %args) {

-        croak qq{"$name" is wrong option } . _subname

-          unless $INSERT_AT_ARGS{$name};

-    }

-    

     # Create where parameter

     my $where_param = $self->_create_param_from_id($where, $primary_key);

     $param = $self->merge_param($where_param, $param);

@@ -469,9 +469,6 @@ $dbi->insert(table => $table1, param => {$key1 => 1, $key2 => 2}, append => '

 $rows = $dbi->select(table => $table1)->all;

 is_deeply($rows, [{$key1 => 1, $key2 => 2}], 'insert append');

-eval{$dbi->insert(table => $table1, noexist => 1)};

-like($@, qr/noexist/, "invalid");

-

 eval{$dbi->insert(table => 'table', param => {';' => 1})};

 like($@, qr/safety/);

@@ -626,9 +623,6 @@ is_deeply($rows, [{$key1 => 1, $key2 => 22, $key3 => 3, $key4 => 4, $key5 => 5},

 $result = $dbi->update(table => $table1, param => {$key2 => 11}, where => {$key1 => 1}, append => '   ');

-eval{$dbi->update(table => $table1, where => {$key1 => 1}, noexist => 1)};

-like($@, qr/noexist/, "invalid");

-

 eval{$dbi->update(table => $table1)};

 like($@, qr/where/, "not contain where");

@@ -805,9 +799,6 @@ $dbi->delete(table => $table1, where => {$key1 => 1, $key2 => 2});

 $rows = $dbi->select(table => $table1)->all;

 is_deeply($rows, [{$key1 => 3, $key2 => 4}], "delete multi key");

-eval{$dbi->delete(table => $table1, where => {$key1 => 1}, noexist => 1)};

-like($@, qr/noexist/, "invalid");

-

 eval { $dbi->execute("drop table $table1") };

 $dbi->execute($create_table1);

 $dbi->insert(table => $table1, param => {$key1 => 1, $key2 => 2});

@@ -914,9 +905,6 @@ $rows = $dbi->select(

 )->all;

 is_deeply($rows, [{"${table1}_$key1" => 1, "${table2}_$key1" => 1, $key2 => 2, $key3 => 5}], "relation : no exists where");

-eval{$dbi->select(table => $table1, noexist => 1)};

-like($@, qr/noexist/, "invalid");

-

 $dbi = DBIx::Custom->connect;

 eval { $dbi->execute("drop table ${q}table$p") };

 $dbi->execute($create_table_reserved);

@@ -991,9 +979,6 @@ $dbi->execute($create_table1);

     like($@, qr/Custom.*\.t /s, "fail : verbose");

 }

-eval{$dbi->execute('select * from $table1', no_exists => 1)};

-like($@, qr/wrong/, "invald SQL");

-

 $query = $dbi->execute("select * from $table1 where $key1 = :$key1", {}, query => 1);

 $dbi->dbh->disconnect;

 eval{$dbi->execute($query, param => {$key1 => {a => 1}})};

@@ -1075,13 +1060,10 @@ $dbi->execute($create_table1);

 }

 {

     local $Carp::Verbose = 1;

-    eval{$dbi->execute('select * frm $table1')};

+    eval{$dbi->execute("select * frm $table1")};

     like($@, qr/Custom.*\.t /s, "fail : verbose");

 }

-eval{$dbi->execute('select * from $table1', no_exists => 1)};

-like($@, qr/wrong/, "invald SQL");

-

 $query = $dbi->execute("select * from $table1 where $key1 = :$key1", {}, query => 1);

 $dbi->dbh->disconnect;

 eval{$dbi->execute($query, param => {$key1 => {a => 1}})};