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

package DX::Role::Value;

use DX::ActionBuilder::Null;
use DX::Role;

has identity_path => (is => 'ro');

has action_builder => (
  is => 'ro',
  default => 'DX::ActionBuilder::Null',
  handles => [ qw(can_set_value action_for_set_value) ],
);

sub is_set { 1 }

sub but_set_action_builder {
  my ($self, $ab) = @_;
  $self->but(action_builder => $ab);
}

1;
Commit	Line	Data
9d759b64	1	package DX::Role::Value;
	2
	3	use DX::ActionBuilder::Null;
	4	use DX::Role;
	5
efad53c4	6	has identity_path => (is => 'ro');
efad53c4	7
9d759b64	8	has action_builder => (
	9	is => 'ro',
	10	default => 'DX::ActionBuilder::Null',
	11	handles => [ qw(can_set_value action_for_set_value) ],
	12	);
	13
	14	sub is_set { 1 }
	15
efad53c4	16	sub but_set_action_builder {
	17	my ($self, $ab) = @_;
	18	$self->but(action_builder => $ab);
	19	}
	20
9d759b64	21	1;