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'); |
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 | |
0498469a |
21 | sub but_set_identity_path { |
22 | my ($self, $path) = @_; |
23 | $self->but(identity_path => $path); |
24 | } |
25 | |
9d759b64 |
26 | 1; |