Showing 3 changed files with 22 additions and 6 deletions
+1 -1
Changes
... ...
@@ -1,7 +1,7 @@
1 1
 0.1638
2
+  added experimental base_table attribute and  removed experimental table_class attribute
2 3
   renamed helper to method. helper is available, but deprecated.
3 4
   added experimental DBIx::Custom::Result::stash()
4
-  added experimental base_table attribute and  removed experimental table_class attribute
5 5
   renamed experimental DBIx::Custom::Table helper to method
6 6
 0.1637
7 7
   renamed dbi_options to dbi_option. dbi_options is available, but deprecated.
+16 -5
lib/DBIx/Custom/Result.pm
... ...
@@ -7,7 +7,10 @@ use base 'Object::Simple';
7 7
 
8 8
 use Carp 'croak';
9 9
 
10
-__PACKAGE__->attr([qw/filters sth/]);
10
+__PACKAGE__->attr(
11
+    [qw/filters sth/],
12
+    stash => sub { {} }
13
+);
11 14
 
12 15
 sub filter {
13 16
     my $self = shift;
... ...
@@ -328,8 +331,8 @@ and implements the following new ones.
328 331
 
329 332
 =head2 C<(experimental) end_filter>
330 333
 
331
-    $result    = $result->end_filter(title  => 'to_upper_case',
332
-                                     author => 'to_upper_case');
334
+    $result    = $result->end_filter(title  => 'to_something',
335
+                                     author => 'to_something');
333 336
 
334 337
 End filters.
335 338
 These each filters is executed after the filters applied by C<apply_filter> of
... ...
@@ -387,11 +390,19 @@ Row count must be specified.
387 390
 
388 391
 =head2 C<filter>
389 392
 
390
-    $result    = $result->filter(title  => 'to_upper_case',
391
-                                 author => 'to_upper_case');
393
+    $result = $result->filter(title  => 'to_something',
394
+                              author => 'to_something');
392 395
 
393 396
 Filters.
394 397
 These each filters override the filters applied by C<apply_filter> of
395 398
 L<DBIx::Custom>.
396 399
 
400
+=head2 C<(experimental) stash>
401
+
402
+    my $stash = $result->stash;
403
+    my $foo = $result->stash->{foo};
404
+    $result->stash->{foo} = $foo;
405
+
406
+Stash is hash reference to save your data.
407
+
397 408
 =cut
+5
t/dbix-custom-core-sqlite.t
... ...
@@ -1067,3 +1067,8 @@ $dbi = DBIx::Custom->connect(data_source => 'dbi:SQLite:dbname=:memory:',
1067 1067
                              dbi_options => {PrintError => 1});
1068 1068
 ok($dbi->dbh->{PrintError});
1069 1069
 
1070
+test 'DBIx::Custom::Result stash()';
1071
+$result = DBIx::Custom::Result->new;
1072
+is_deeply($result->stash, {}, 'default');
1073
+$result->stash->{foo} = 1;
1074
+is($result->stash->{foo}, 1, 'get and set');