[Jifty-commit] r6145 - in Net-Jifty/branches/classbuilder: .

Jifty commits jifty-commit at lists.jifty.org
Wed Dec 17 00:27:28 EST 2008


Author: sartak
Date: Wed Dec 17 00:27:28 2008
New Revision: 6145

Modified:
   Net-Jifty/branches/classbuilder/   (props changed)
   Net-Jifty/branches/classbuilder/lib/Net/Jifty/Meta/Instance.pm

Log:
 r77649 at onn:  sartak | 2008-12-17 00:27:02 -0500
 set_slot_value adds to the list of transactions


Modified: Net-Jifty/branches/classbuilder/lib/Net/Jifty/Meta/Instance.pm
==============================================================================
--- Net-Jifty/branches/classbuilder/lib/Net/Jifty/Meta/Instance.pm	(original)
+++ Net-Jifty/branches/classbuilder/lib/Net/Jifty/Meta/Instance.pm	Wed Dec 17 00:27:28 2008
@@ -2,7 +2,7 @@
 use Moose;
 extends 'Moose::Meta::Instance';
 
-around get_slot_value => {
+around get_slot_value => sub {
     my $orig = shift;
     my ($self, $instance, $slot_name) = @_;
 
@@ -21,6 +21,11 @@
     return $instance->{$slot_name} = delete $instance->{__net_jifty_cache};
 };
 
+after set_slot_value => sub {
+    my ($self, $instance, $slot_name, $value) = @_;
+    $instance->add_change({ $slot_name => $value });
+};
+
 __PACKAGE__->meta->make_immutable;
 no Moose;
 


More information about the Jifty-commit mailing list