slightly less incomplete deparse output

[scpubgit/DX.git] / lib / DX / Deparse.pm

diff --git a/lib/DX/Deparse.pm b/lib/DX/Deparse.pm
index ea96412..ba41df6 100644 (file)
--- a/lib/DX/Deparse.pm
+++ b/lib/DX/Deparse.pm
@@ -90,6 +90,11 @@ sub _fmt_array {
   "{\n${chunks}\n}";
 }
 
+sub _fmt_glob {
+  my ($self, $glob, $meta) = @_;
+  return ((''.*$glob) =~ /::([A-Z_]+)$/)[0];
+}
+
 sub _fmt_action_setvalue {
   my ($self, $action, $meta) = @_;
   $self->_fmt_action_generic(SetValue => $action, $meta);
@@ -108,7 +113,11 @@ sub _fmt_action_generic {
 
 sub _fmt_resolvedpropositionset {
   my ($self, $rps, $meta) = @_;
-  $self->_fmt($rps->propositions, $meta);
+  $self->_fmt_object([
+    map {
+      [ $_, $rps->dependencies_for($_) ]
+    } @{$rps->propositions},
+  ], $meta);
 }
 
 sub _fmt_proposition {