X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FState.pm;h=899c0d9edd59692252d5ccb15c2bdbd5b97aeb4a;hb=e09f23e1129cc9cce11248a45c833795d1079b2f;hp=b75a39d4d0cf6fba2c43c12f69187f3875c26721;hpb=97c0c46e84692374cb6aacede35707e09903c1b7;p=scpubgit%2FDKit.git diff --git a/lib/DX/State.pm b/lib/DX/State.pm index b75a39d..899c0d9 100644 --- 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 {