From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 3 Mar 2018 20:39:52 +0000 (+0000)
Subject: add depends_on info to resolve trace
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93de8fb00e23098c868bb6b9a0a83bef3ed91b11;p=scpubgit%2FDX.git

add depends_on info to resolve trace
---

diff --git a/lib/DX/Step/ResolveProposition.pm b/lib/DX/Step/ResolveProposition.pm
index f2d2f27..1b4cd26 100644
--- a/lib/DX/Step/ResolveProposition.pm
+++ b/lib/DX/Step/ResolveProposition.pm
@@ -72,6 +72,15 @@ sub apply_to {
             [ block => [ @{$self->actions} ] ],
           ] ]
         : ()),
+      [ statement => [
+        [ symbol => 'depends_on' ],
+        [ pairs => [
+          map [
+            (split '::', ${$_->[0]})[-1],
+            [ value_path => [ @{$_}[1..$#$_] ] ]
+          ], @{$self->depends_on}
+        ] ],
+      ] ],
     ] ]
   ] ];
   my $ns = do {