pervasive type constraints

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

diff --git a/lib/DX/Value/Number.pm b/lib/DX/Value/Number.pm
index 74e30ac..0805165 100644 (file)
--- a/lib/DX/Value/Number.pm
+++ b/lib/DX/Value/Number.pm
@@ -4,7 +4,9 @@ use DX::Class;
 
 with 'DX::Role::Value';
 
-has number_value => (is => 'ro', required => 1);
+has number_value => (is => 'ro', required => 1, isa => Num);
+
+sub for_deparse { [ number => $_[0]->number_value ] }
 
 sub to_data { 0+$_[0]->number_value }