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