indirect via resolve_value method

[scpubgit/DKit.git] / lib / DX / Op / Predicate.pm

diff --git a/lib/DX/Op/Predicate.pm b/lib/DX/Op/Predicate.pm
index 6971199..80a42b6 100644 (file)
--- a/lib/DX/Op/Predicate.pm
+++ b/lib/DX/Op/Predicate.pm
@@ -20,7 +20,7 @@ sub run {
     foreach my $i (0..$#arg_names) {
       if ($req->[$i] eq '+') {
         next CASE unless $args[$i]->is_bound;
-        $_{$arg_names[$i]} = $args[$i]->bound_value;
+        $_{$arg_names[$i]} = $state->resolve_value($args[$i]);
       } elsif ($req->[$i] eq '-') {
         next CASE if $args[$i]->is_bound;
       }