lib/DX/Value/Number.pm

   1 package DX::Value::Number;
   2
   3 use DX::Class;
   4
   5 with 'DX::Role::Value';
   6
   7 has number_value => (is => 'ro', required => 1, isa => Num);
   8
   9 sub for_deparse { [ number => $_[0]->number_value ] }
  10
  11 sub to_data { 0+$_[0]->number_value }
  12
  13 1;