From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 5 Mar 2016 10:13:04 +0000 (+0000)
Subject: deparse needs to show ?X for introduced names
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e08346a8484f9ad8c3babf7c139b288c7a0d34e6;p=scpubgit%2FDX.git

deparse needs to show ?X for introduced names
---

diff --git a/lib/DX/Deparse.pm b/lib/DX/Deparse.pm
index df624c5..ff590f9 100644
--- a/lib/DX/Deparse.pm
+++ b/lib/DX/Deparse.pm
@@ -138,7 +138,9 @@ sub _fmt_proposition {
   my ($self, $prop, $meta) = @_;
   join ' ',
     $prop->predicate,
-    map $self->_fmt($_, $meta), @{$prop->args};
+    map $self->_fmt($_, $meta),
+      map +((!ref($_) and $prop->introduced_names->{$_}) ? "?$_" : $_),
+        @{$prop->args};
 }
 
 sub _fmt_scope {