add qdeps debug command

diff --git a/lib/DX/ShellSession.pm b/lib/DX/ShellSession.pm
index fff5d1e..13ebf78 100644 (file)
--- a/lib/DX/ShellSession.pm
+++ b/lib/DX/ShellSession.pm
@@ -41,6 +41,12 @@ has tcl => (is => 'lazy', builder => sub {
     push our @Result, [ output => $locals ];
     return;
   });
+  $tcl->CreateCommand(qdeps => sub {
+    my $rps = $self->shell_state->current_query_state->search_state
+                   ->current_hypothesis->resolved_propositions;
+    push our @Result, [ output => $rps ];
+    return;
+  });
   foreach my $pred (
     keys %{$self->shell_state->template_query_state->predicates}
   ) {