From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 7 Mar 2016 22:23:53 +0000 (+0000)
Subject: less terrible deparsing for BindValue
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=13e9d35af19d324998bde0a6f6994b3a6c642b49;p=scpubgit%2FDX.git

less terrible deparsing for BindValue
---

diff --git a/lib/DX/Deparse.pm b/lib/DX/Deparse.pm
index 541a5a5..8edfffd 100644
--- a/lib/DX/Deparse.pm
+++ b/lib/DX/Deparse.pm
@@ -112,7 +112,14 @@ sub _fmt_action_addvalue {
 
 sub _fmt_action_bindvalue {
   my ($self, $action, $meta) = @_;
-  $self->_fmt_action_generic(BindValue => $action, $meta);
+  my $path = join '.', map $self->_fmt($_, $meta), @{$action->target_path};
+  my $bound_path = join '.',
+                     map $self->_fmt($_, $meta),
+                       @{$action->new_value
+                                ->action_builder
+                                ->inner_action_builder
+                                ->target_path};
+  join ' ', BindValue => $path, $bound_path;
 }
 
 sub _fmt_action_setboundvalue {