indirect via resolve_value method

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

diff --git a/lib/DX/Op/Observe.pm b/lib/DX/Op/Observe.pm
index c458d2c..d264be5 100644 (file)
--- a/lib/DX/Op/Observe.pm
+++ b/lib/DX/Op/Observe.pm
@@ -17,7 +17,7 @@ has _arg_map => (is => 'lazy', builder => sub {
 sub run {
   my ($self, $state) = @_;
   ($state, my %args) = $self->_expand_args($state, %{$self->_arg_map});
-  my @vars = map $_->bound_value, @args{sort keys %args};
+  my @vars = map $state->resolve_value($_), @args{sort keys %args};
   my $observer = $self->builder->(@vars);
   $state->return_from_run(
     DX::ObservationRequired->new(