rewrite deparse system

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

diff --git a/lib/DX/Value/String.pm b/lib/DX/Value/String.pm
index e1a55b6..33b110a 100644 (file)
--- a/lib/DX/Value/String.pm
+++ b/lib/DX/Value/String.pm
@@ -6,6 +6,8 @@ with 'DX::Role::Value';
 
 has string_value => (is => 'ro', required => 1);
 
+sub for_deparse { [ string => $_[0]->string_value ] }
+
 sub to_data { ''.$_[0]->string_value }
 
 1;