first test for observer code

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

diff --git a/lib/DX/Var.pm b/lib/DX/Var.pm
index 0017ffa..a711f98 100644 (file)
--- a/lib/DX/Var.pm
+++ b/lib/DX/Var.pm
@@ -15,4 +15,9 @@ sub with_stream {
   $self->new(%$self, bound_stream => $stream);
 }
 
+sub with_value {
+  my ($self, $stream) = @_;
+  $self->new(%$self, bound_value => $stream);
+}
+
 1;