lib/DX/Role/Value.pm

   1 package DX::Role::Value;
   2
   3 use DX::ActionBuilder::Null;
   4 use DX::Role;
   5
   6 has identity_path => (is => 'ro');
   7
   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
  16 sub but_set_action_builder {
  17   my ($self, $ab) = @_;
  18   $self->but(action_builder => $ab);
  19 }
  20
  21 1;