rewrite deparse system

[scpubgit/DX.git] / lib / DX / Value / Dict.pm

diff --git a/lib/DX/Value/Dict.pm b/lib/DX/Value/Dict.pm
index 13cec8d..8c61afe 100644 (file)
--- a/lib/DX/Value/Dict.pm
+++ b/lib/DX/Value/Dict.pm
@@ -14,6 +14,10 @@ has '+action_builder' => (
 
 has members => (is => 'ro', required => 1);
 
+sub for_deparse {
+  [ dict => $_[0]->members ]
+}
+
 sub index_list { sort keys %{$_[0]->members} }
 
 sub get_member_at {