lib/DX/Role/Value.pm

   1 package DX::Role::Value;
   2
   3 use DX::ActionBuilder::Null;
   4 use DX::Role;
   5
   6 has action_builder => (
   7   is => 'ro',
   8   default => 'DX::ActionBuilder::Null',
   9   handles => [ qw(can_set_value action_for_set_value) ],
  10 );
  11
  12 sub value_path { shift->action_builder->target_path }
  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 requires 'to_data';
  22
  23 sub equals {
  24   my ($self, $other) = @_;
  25   require YAML;
  26   YAML::Dump($self->to_data) eq YAML::Dump($other->to_data);
  27 }
  28
  29 1;