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

package DX::Value::Number;

use DX::Class;

with 'DX::Role::Value';

has number_value => (is => 'ro', required => 1);

sub for_deparse { [ number => $_[0]->number_value ] }

sub to_data { 0+$_[0]->number_value }

1;
Commit	Line	Data
9d759b64	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);
	8
c25fbf05	9	sub for_deparse { [ number => $_[0]->number_value ] }
c25fbf05	10
9e13b86b	11	sub to_data { 0+$_[0]->number_value }
9e13b86b	12
9d759b64	13	1;