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 (file)
--- 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 {