bind_var_then -> bind_value

[scpubgit/DKit.git] / t / observe.t

diff --git a/t/observe.t b/t/observe.t
index 70b70c1..04432ac 100644 (file)
--- a/t/observe.t
+++ b/t/observe.t
@@ -15,7 +15,8 @@ my %paths = %observe_path;
 my $set_dot_ssh = FromCode->new(
   code => sub {
     my ($self, $state) = @_;
-    $state->bind_var_then($state->scope_var('P'), '/home/me/.ssh', $self->next);
+    $state->bind_value($state->scope_var('P'), '/home/me/.ssh')
+          ->then($self->next);
   }
 );
 
@@ -23,7 +24,8 @@ my $path_status = FromCode->new(
   code => sub {
     my ($self, $state) = @_;
     if (my $p = $paths{$state->scope_var('P')->bound_value}) {
-      return $state->bind_var_then($state->scope_var('PS'), $p, $self->next);
+      return $state->bind_value($state->scope_var('PS'), $p)
+                   ->then($self->next);
     }
     return $state->backtrack;
   }