@@ -1,5 +1,6 @@

 0.1687

     - added EXPERIMENTAL type_rule method

+    - added EXPERIMENTAL execute() type_rule_off option

 0.1686

     - select() column option can receive array reference in array.

       This is EXPERIMENTAL

@@ -22,7 +22,7 @@ use Encode qw/encode encode_utf8 decode_utf8/;

 use constant DEBUG => $ENV{DBIX_CUSTOM_DEBUG} || 0;

 use constant DEBUG_ENCODING => $ENV{DBIX_CUSTOM_DEBUG_ENCODING} || 'UTF-8';

-our @COMMON_ARGS = qw/table query filter type id primary_key/;

+our @COMMON_ARGS = qw/table query filter type id primary_key type_rule_off/;

 __PACKAGE__->attr(

     [qw/connector dsn password user/],

@@ -442,6 +442,7 @@ sub execute {

     $filter = _array_to_hash($filter);

     my $type = delete $args{type};

     $type = _array_to_hash($type);

+    my $type_rule_off = delete $args{type_rule_off};

     # Check argument names

     foreach my $name (keys %args) {

@@ -489,21 +490,23 @@ sub execute {

     # Type rule

     my $applied_filter = {};

-    foreach my $name (keys %$param) {

-        my $table;

-        my $column;

-        if ($name =~ /(?:(.+)\.)?(.+)/) {

-            $table = $1;

-            $column = $2;

-        }

-        $table ||= $main_table;

-        

-        my $into = $self->{_into} || {};

-        if (defined $table && $into->{$table} &&

-            (my $rule = $into->{$table}->{$column}))

-        {

-            $applied_filter->{$column} = $rule;

-            $applied_filter->{"$table.$column"} = $rule;

+    unless ($type_rule_off) {

+        foreach my $name (keys %$param) {

+            my $table;

+            my $column;

+            if ($name =~ /(?:(.+)\.)?(.+)/) {

+                $table = $1;

+                $column = $2;

+            }

+            $table ||= $main_table;

+            

+            my $into = $self->{_into} || {};

+            if (defined $table && $into->{$table} &&

+                (my $rule = $into->{$table}->{$column}))

+            {

+                $applied_filter->{$column} = $rule;

+                $applied_filter->{"$table.$column"} = $rule;

+            }

         }

     }

@@ -591,6 +594,7 @@ sub execute {

             filter => $filter->{in} || {},

             end_filter => $filter->{end} || {},

             type_rule => $self->type_rule,

+            type_rule_off => $type_rule_off

         );

         return $result;

@@ -2050,6 +2054,28 @@ filter name registerd by C<register_filter()>.

     );

 These filters are added to the C<out> filters, set by C<apply_filter()>.

+C<filter> option is also available

+by C<insert()>, C<update()>, C<delete()>, C<select()>

+

+=item C<type>

+

+Specify database data type.

+

+    type => [image => DBI::SQL_BLOB]

+    type => [[qw/image audio/] => DBI::SQL_BLOB]

+

+This is used to bind paramter by C<bind_param()> of statment handle.

+

+    $sth->bind_param($pos, $value, DBI::SQL_BLOB);

+

+C<type> option is also available

+by C<insert()>, C<update()>, C<delete()>, C<select()>.

+

+=item C<type_rule_off> EXPERIMENTAL

+

+    type_rule_off => 1

+

+Trun type rule off.

 =back

@@ -2098,34 +2124,7 @@ Append statement to last of SQL. This is string.

 =item C<filter>

-Filter, executed before data is send to database. This is array reference.

-Filter value is code reference or

-filter name registerd by C<register_filter()>.

-

-    # Basic

-    $dbi->delete(

-        filter => {

-            title  => sub { uc $_[0] }

-            author => sub { uc $_[0] }

-        }

-    );

-    

-    # At once (use array reference)

-    $dbi->delete(

-        filter => [

-            [qw/title author/]  => sub { uc $_[0] }

-        ]

-    );

-    

-    # Filter name

-    $dbi->delete(

-        filter => {

-            title  => 'upper_case',

-            author => 'upper_case'

-        }

-    );

-

-These filters are added to the C<out> filters, set by C<apply_filter()>.

+Same as C<execute> method's C<filter> option.

 =item C<query>

@@ -2162,6 +2161,14 @@ The above is same as the followin ones.

 See C<id> option.

+=item C<type>

+

+Same as C<execute> method's C<type> option.

+

+=item C<type_rule_off> EXPERIMENTAL

+

+Same as C<execute> method's C<type_rule_off> option.

+

 =back

 =head2 C<delete_all>

@@ -2208,45 +2215,56 @@ Append statement to last of SQL. This is string.

 =item C<filter>

-Filter, executed before data is send to database. This is array reference.

-Filter value is code reference or

-filter name registerd by C<register_filter()>.

+Same as C<execute> method's C<filter> option.

+

+=item C<query>

+

+Get L<DBIx::Custom::Query> object instead of executing SQL.

+This is true or false value.

+

+    my $query = $dbi->insert(query => 1);

+

+You can check SQL.

+

+    my $sql = $query->sql;

+

+=item C<id>

+

+Insert using primary_key.

-    # Basic

     $dbi->insert(

-        filter => {

-            title  => sub { uc $_[0] }

-            author => sub { uc $_[0] }

-        }

+        primary_key => 'id',

+        id => 4,

+        param => {title => 'Perl', author => 'Ken'}

     );

-    

-    # At once (use array reference)

+

     $dbi->insert(

-        filter => [

-            [qw/title author/]  => sub { uc $_[0] }

-        ]

+        primary_key => ['id1', 'id2'],

+        id => [4, 5],

+        param => {title => 'Perl', author => 'Ken'}

     );

-    

-    # Filter name

+

+The above is same as the followin ones.

+

     $dbi->insert(

-        filter => {

-            title  => 'upper_case',

-            author => 'upper_case'

-        }

+        param => {id => 4, title => 'Perl', author => 'Ken'}

     );

-These filters are added to the C<out> filters, set by C<apply_filter()>.

+    $dbi->insert(

+        param => {id1 => 4, id2 => 5, title => 'Perl', author => 'Ken'}

+    );

-=item C<query>

+=item C<primary_key>

-Get L<DBIx::Custom::Query> object instead of executing SQL.

-This is true or false value.

+See C<id> description.

-    my $query = $dbi->insert(query => 1);

+=item C<type>

-You can check SQL.

+Same as C<execute> method's C<type> option.

-    my $sql = $query->sql;

+=item C<type_rule_off> EXPERIMENTAL

+

+Turn type rule off.

 =back

@@ -2576,34 +2594,7 @@ This option is for Oracle and SQL Server paging process.

 =item C<filter>

-Filter, executed before data is send to database. This is array reference.

-Filter value is code reference or

-filter name registerd by C<register_filter()>.

-

-    # Basic

-    $dbi->select(

-        filter => {

-            title  => sub { uc $_[0] }

-            author => sub { uc $_[0] }

-        }

-    );

-    

-    # At once (use array reference)

-    $dbi->select(

-        filter => [

-            [qw/title author/]  => sub { uc $_[0] }

-        ]

-    );

-    

-    # Filter name

-    $dbi->select(

-        filter => {

-            title  => 'upper_case',

-            author => 'upper_case'

-        }

-    );

-

-These filters are added to the C<out> filters, set by C<apply_filter()>.

+Same as C<execute> method's C<filter> option.

 =item C<query>

@@ -2618,14 +2609,11 @@ You can check SQL.

 =item C<type>

-Specify database data type.

-

-    $dbi->select(type => [image => DBI::SQL_BLOB]);

-    $dbi->select(type => [[qw/image audio/] => DBI::SQL_BLOB]);

+Same as C<execute> method's C<type> option.

-This is used to bind paramter by C<bind_param()> of statment handle.

+=item C<type_rule_off> EXPERIMENTAL

-    $sth->bind_param($pos, $value, DBI::SQL_BLOB);

+Same as C<execute> method's C<type_rule_off> option.

 =back

@@ -2693,34 +2681,7 @@ Append statement to last of SQL. This is string.

 =item C<filter>

-Filter, executed before data is send to database. This is array reference.

-Filter value is code reference or

-filter name registerd by C<register_filter()>.

-

-    # Basic

-    $dbi->update(

-        filter => {

-            title  => sub { uc $_[0] }

-            author => sub { uc $_[0] }

-        }

-    );

-    

-    # At once (use array reference)

-    $dbi->update(

-        filter => [

-            [qw/title author/]  => sub { uc $_[0] }

-        ]

-    );

-    

-    # Filter name

-    $dbi->update(

-        filter => {

-            title  => 'upper_case',

-            author => 'upper_case'

-        }

-    );

-

-These filters are added to the C<out> filters, set by C<apply_filter()>.

+Same as C<execute> method's C<filter> option.

 =item C<query>

@@ -2733,30 +2694,6 @@ You can check SQL.

     my $sql = $query->sql;

-Insert using primary_key.

-

-    $dbi->insert(

-        primary_key => 'id',

-        id => 4,

-        param => {title => 'Perl', author => 'Ken'}

-    );

-

-    $dbi->insert(

-        primary_key => ['id1', 'id2'],

-        id => [4, 5],

-        param => {title => 'Perl', author => 'Ken'}

-    );

-

-The above is same as the followin ones.

-

-    $dbi->insert(

-        param => {id => 4, title => 'Perl', author => 'Ken'}

-    );

-

-    $dbi->insert(

-        param => {id1 => 4, id2 => 5, title => 'Perl', author => 'Ken'}

-    );

-

 =item C<id>

 update using primary_key.

@@ -2789,6 +2726,14 @@ The above is same as the followin ones.

 See C<id> option.

+=item C<type>

+

+Same as C<execute> method's C<type> option.

+

+=item C<type_rule_off> EXPERIMENTAL

+

+Turn type rule off.

+

 =back

 =head2 C<update_all>

@@ -9,7 +9,7 @@ use Carp 'croak';

 use DBIx::Custom::Util qw/_array_to_hash _subname/;

 __PACKAGE__->attr(

-    [qw/filters sth type_rule/],

+    [qw/filters sth type_rule type_rule_off/],

     stash => sub { {} }

 );

@@ -111,7 +111,7 @@ sub fetch {

     for (my $i = 0; $i < @$columns; $i++) {

-        if ($type_rule->{$types->[$i]} &&

+        if (!$self->type_rule_off && $type_rule->{$types->[$i]} &&

             (my $rule = $type_rule->{$types->[$i]}->{from}))

         {

             $row[$i] = $rule->($row[$i]);

@@ -181,7 +181,7 @@ sub fetch_hash {

     for (my $i = 0; $i < @$columns; $i++) {

         # Type rule

-        if ($type_rule->{$types->[$i]} &&

+        if (!$self->type_rule_off && $type_rule->{$types->[$i]} &&

             (my $rule = $type_rule->{$types->[$i]}->{from}))

         {

             $row->[$i] = $rule->($row->[$i]);

@@ -389,6 +389,13 @@ Resistered filters.

 Statement handle of L<DBI>.

+=head2 C<type_rule_off> EXPERIMENTAL

+

+    my $type_rule_off = $result->type_rule_off;

+    $result = $result->type_rule_off(1);

+

+Turn type rule off.

+

 =head1 METHODS

 L<DBIx::Custom::Result> inherits all methods from L<Object::Simple>

@@ -2636,4 +2636,30 @@ $row = $result->one;

 is($row->{key1}, 'A');

 is($row->{key2}, 'B');

+

+test 'type_rule_off';

+$dbi = DBIx::Custom->connect(dsn => 'dbi:SQLite:dbname=:memory:');

+$dbi->execute("create table table1 (key1 Date, key2 datetime)");

+$dbi->type_rule(

+    Date => {

+        from => sub { $_[0] * 2 },

+        into => sub { $_[0] * 3 },

+    }

+);

+$dbi->insert({key1 => 2}, table => 'table1', type_rule_off => 1);

+$result = $dbi->select(table => 'table1', type_rule_off => 1);

+is($result->fetch->[0], 2);

+

+$dbi = DBIx::Custom->connect(dsn => 'dbi:SQLite:dbname=:memory:');

+$dbi->execute("create table table1 (key1 Date, key2 datetime)");

+$dbi->type_rule(

+    Date => {

+        from => sub { $_[0] * 2 },

+        into => sub { $_[0] * 3 },

+    }

+);

+$dbi->insert({key1 => 2}, table => 'table1', type_rule_off => 1);

+$result = $dbi->select(table => 'table1', type_rule_off => 1);

+is($result->one->{key1}, 2);

+

 =cut