slightly less useless error on lack of variable

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

diff --git a/lib/DX/State.pm b/lib/DX/State.pm
index b75a39d..899c0d9 100644 (file)
--- a/lib/DX/State.pm
+++ b/lib/DX/State.pm
@@ -29,7 +29,9 @@ has actions => (is => 'ro', default => sub { {} });
 
 sub scope_var {
   my ($self, $name) = @_;
-  $self->by_id->{$self->scope->{$name}};
+  my $id = $self->scope->{$name}
+    or die "no such variable in scope: $name";
+  $self->by_id->{$id};
 }
 
 sub resolve_value {