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

package DX::Value::String;

use DX::Class;

with 'DX::Role::Value';

has string_value => (is => 'ro', required => 1, isa => Str);

sub for_deparse { [ string => $_[0]->string_value ] }

sub to_data { ''.$_[0]->string_value }

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