eliminate variable name requirement from query()

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

diff --git a/lib/DX/Result.pm b/lib/DX/Result.pm
index d409b55..3740cc7 100644 (file)
--- a/lib/DX/Result.pm
+++ b/lib/DX/Result.pm
@@ -6,7 +6,8 @@ use Moo;
 has _state => (is => 'ro', required => 1, init_arg => 'state');
 
 sub var_names {
-  sort keys %{$_[0]->_state->scope};
+  grep $_[0]->_state->scope_var($_)->is_bound,
+    sort keys %{$_[0]->_state->scope};
 }
 
 sub actions {