[Jifty-commit] r5491 - in Jifty-DBI/trunk: lib/Jifty lib/Jifty/DBI

[Jifty commits]

Author: alexmv
Date: Thu Jun  5 16:31:57 2008
New Revision: 5491

Modified:
   Jifty-DBI/trunk/   (props changed)
   Jifty-DBI/trunk/lib/Jifty/DBI.pm
   Jifty-DBI/trunk/lib/Jifty/DBI/Record.pm

Log:
 r32615 at kohr-ah:  chmrr | 2008-06-05 16:31:30 -0400
  * Add the ability to unload columns and prefetched values


Modified: Jifty-DBI/trunk/lib/Jifty/DBI.pm
==============================================================================
--- Jifty-DBI/trunk/lib/Jifty/DBI.pm	(original)
+++ Jifty-DBI/trunk/lib/Jifty/DBI.pm	Thu Jun  5 16:31:57 2008
@@ -2,7 +2,7 @@
 use warnings;
 use strict;
 
-$Jifty::DBI::VERSION = '0.50';
+$Jifty::DBI::VERSION = '0.51';
 
 =head1 NAME
 

Modified: Jifty-DBI/trunk/lib/Jifty/DBI/Record.pm
==============================================================================
--- Jifty-DBI/trunk/lib/Jifty/DBI/Record.pm	(original)
+++ Jifty-DBI/trunk/lib/Jifty/DBI/Record.pm	Thu Jun  5 16:31:57 2008
@@ -1734,6 +1734,19 @@
     );
 }
 
+=head2 unload_value COLUMN
+
+Purges the cached value of COLUMN from the object, forcing it to be
+fetched from the database next time it is queried.
+
+=cut
+
+sub unload_value {
+    my $self = shift;
+    my $column = shift;
+    delete $self->{$_}{$column} for qw/values fetched decoded _prefetched/;
+}
+
 1;
 
 __END__