From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 5 Mar 2016 09:21:47 +0000 (+0000)
Subject: add qdeps debug command
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aae0d764cb7828be0fb4fe9104bacf8dc7f8b2ae;p=scpubgit%2FDX.git

add qdeps debug command
---

diff --git a/lib/DX/ShellSession.pm b/lib/DX/ShellSession.pm
index fff5d1e..13ebf78 100644
--- 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}
   ) {