X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FRole%2FBoundValueAction.pm;h=3bd125e1446b511b738a020313e39b5fdaf2829b;hb=c25fbf056abf91b25ef365e9be2a84eb2b132dba;hp=37b317bcb38da851e4d640750e050440ed69e69a;hpb=839c00187ec8fa2eaf2349ceabaec43a010be111;p=scpubgit%2FDX.git

diff --git a/lib/DX/Role/BoundValueAction.pm b/lib/DX/Role/BoundValueAction.pm
index 37b317b..3bd125e 100644
--- a/lib/DX/Role/BoundValueAction.pm
+++ b/lib/DX/Role/BoundValueAction.pm
@@ -16,6 +16,15 @@ has inner_action => (is => 'ro', required => 1);
 
 requires 'update_class';
 
+sub for_deparse {
+  my ($self) = @_;
+  [ statement => [
+    [ symbol => (split('::',ref($self)))[-1] ],
+    [ value_path => $self->target_path ],
+    $self->new_value,
+  ] ];
+}
+
 sub dry_run {
   my ($self, $hyp) = @_;
   my ($outer_hyp, @inner_events) = $self->inner_action->dry_run(