removed from cache() and cache_method() document for...
...a while and cache() value
| ... | ... |
@@ -1,3 +1,7 @@ |
| 1 |
+0.1666 |
|
| 2 |
+ - removed from cache() and cache_method() document for a while and cache() value |
|
| 3 |
+ become 0 because I find something bug. |
|
| 4 |
+ |
|
| 1 | 5 |
0.1665 |
| 2 | 6 |
- removed EXPERIMETNAL flag from insert_at(), update_at(), delete_at(), select_at(), insert_param(), not_exists(), select()'s query option, update_param(), where, table tag, each column, safety_character, DBIx::Where, where(). |
| 3 | 7 |
- added EXPERIMETNAL create_model() |
| ... | ... |
@@ -1,6 +1,6 @@ |
| 1 | 1 |
package DBIx::Custom; |
| 2 | 2 |
|
| 3 |
-our $VERSION = '0.1665'; |
|
| 3 |
+our $VERSION = '0.1666'; |
|
| 4 | 4 |
|
| 5 | 5 |
use 5.008001; |
| 6 | 6 |
use strict; |
| ... | ... |
@@ -23,7 +23,7 @@ our @COMMON_ARGS = qw/table query filter type/; |
| 23 | 23 |
|
| 24 | 24 |
__PACKAGE__->attr( |
| 25 | 25 |
[qw/data_source password pid user/], |
| 26 |
- cache => 1, |
|
| 26 |
+ cache => 0, |
|
| 27 | 27 |
cache_method => sub {
|
| 28 | 28 |
sub {
|
| 29 | 29 |
my $self = shift; |
| ... | ... |
@@ -1550,14 +1550,6 @@ L<DBIx::Custom Wiki|https://github.com/yuki-kimoto/DBIx-Custom/wiki> |
| 1550 | 1550 |
|
| 1551 | 1551 |
=head1 ATTRIBUTES |
| 1552 | 1552 |
|
| 1553 |
-=head2 C<cache> |
|
| 1554 |
- |
|
| 1555 |
- my $cache = $dbi->cache; |
|
| 1556 |
- $dbi = $dbi->cache(1); |
|
| 1557 |
- |
|
| 1558 |
-Enable caching L<DBIx::Custom::Query>, |
|
| 1559 |
-default to 1. |
|
| 1560 |
- |
|
| 1561 | 1553 |
=head2 C<data_source> |
| 1562 | 1554 |
|
| 1563 | 1555 |
my $data_source = $dbi->data_source; |
| ... | ... |
@@ -1688,27 +1680,6 @@ You can set multiple filters at once. |
| 1688 | 1680 |
} |
| 1689 | 1681 |
); |
| 1690 | 1682 |
|
| 1691 |
-=head2 C<cache_method> |
|
| 1692 |
- |
|
| 1693 |
- $dbi = $dbi->cache_method(\&cache_method); |
|
| 1694 |
- $cache_method = $dbi->cache_method |
|
| 1695 |
- |
|
| 1696 |
-Method to set and get cache. |
|
| 1697 |
-Default to the following one. |
|
| 1698 |
- |
|
| 1699 |
- sub {
|
|
| 1700 |
- my $self = shift; |
|
| 1701 |
- |
|
| 1702 |
- $self->{_cached} ||= {};
|
|
| 1703 |
- |
|
| 1704 |
- if (@_ > 1) {
|
|
| 1705 |
- $self->{_cached}{$_[0]} = $_[1];
|
|
| 1706 |
- } |
|
| 1707 |
- else {
|
|
| 1708 |
- return $self->{_cached}{$_[0]};
|
|
| 1709 |
- } |
|
| 1710 |
- } |
|
| 1711 |
- |
|
| 1712 | 1683 |
=head2 C<connect> |
| 1713 | 1684 |
|
| 1714 | 1685 |
my $dbi = DBIx::Custom->connect( |
| ... | ... |
@@ -513,6 +513,7 @@ ok(! $result->fetch_first, "rollback"); |
| 513 | 513 |
|
| 514 | 514 |
test 'cache'; |
| 515 | 515 |
$dbi = DBIx::Custom->connect($NEW_ARGS->{0});
|
| 516 |
+$dbi->cache(1); |
|
| 516 | 517 |
$dbi->execute($CREATE_TABLE->{0});
|
| 517 | 518 |
$source = 'select * from table1 where {= key1} and {= key2};';
|
| 518 | 519 |
$dbi->create_query($source); |
| ... | ... |
@@ -0,0 +1,10 @@ |
| 1 |
+use Test::More 'no_plan'; |
|
| 2 |
+ |
|
| 3 |
+use strict; |
|
| 4 |
+use warnings; |
|
| 5 |
+use DBIx::Custom; |
|
| 6 |
+ |
|
| 7 |
+my $dbi = DBIx::Custom->connect('dbi:SQLite:dbname=:memory:');
|
|
| 8 |
+ |
|
| 9 |
+ |
|
| 10 |
+ |