allow value scalarref, refactor

[scpubgit/DKit.git] / lib / DX / Op / Prop.pm

package DX::Op::Prop;

use Moo;

with 'DX::Role::Op';

has of => (is => 'ro', required => 1);
has name => (is => 'ro', required => 1);
has value => (is => 'ro', required => 1);

sub run {
  my ($self, $state) = @_;
  ($state, my %args) = $self->_expand_args(
    $state, map +($_ => $self->$_), qw(of name value)
  );
  die "property name must be bound" unless $args{name}->is_bound;
  my $name = $args{name}->bound_value;
  if ($args{of}->is_bound) {
    if ($args{value}->is_bound) {
      if ($args{of}->bound_value->$name eq $args{value}->bound_value) {
        return $state->then($self->next);
      }
      return $state->backtrack;
    }
    my $value = $args{of}->bound_value;
    if ($value->can("has_${name}") and not $value->${\"has_${name}"}) {
      return $state->backtrack;
    }
    return $state->bind_value($args{value}->id, $value->$name);
  }
  die "Can't yet handle unbound 'of' argument";
}

1;