basic formatting of resolved props

[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);
}

sub but_set_identity_path {
  my ($self, $path) = @_;
  $self->but(identity_path => $path);
}

1;