add exists, convert dot_ssh to use prop for everything

[scpubgit/DKit.git] / lib / DX / State.pm

diff --git a/lib/DX/State.pm b/lib/DX/State.pm
index 6fd62a2..e87682a 100644 (file)
--- a/lib/DX/State.pm
+++ b/lib/DX/State.pm
@@ -58,10 +58,10 @@ sub assign_vars {
 }
 
 sub bind_value {
-  my ($self, $var, $value) = @_;
-  my $bound = $var->with_value($value);
+  my ($self, $var_id, $value) = @_;
+  my $bound = $self->by_id->{$var_id}->with_value($value);
   $self->but(
-    by_id => { %{$self->by_id}, $var->id => $bound },
+    by_id => { %{$self->by_id}, $var_id => $bound },
   );
 }