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

package DX::Op::Materialize;

use Moo;

with 'DX::Role::Op';

has var_name => (is => 'ro', required => 1);

sub run {
  my ($self, $state) = @_;
  my $var = $state->scope_var($self->var_name);
  unless ($var->is_bound) {
    die "Can't materialize unbound ".$self->var_name;
  }
  $state->resolve_value($var);
  $state->then($self->next);
}

1;
Commit	Line	Data
71217e42	1	package DX::Op::Materialize;
	2
	3	use Moo;
	4
	5	with 'DX::Role::Op';
	6
	7	has var_name => (is => 'ro', required => 1);
	8
	9	sub run {
	10	my ($self, $state) = @_;
6e409579	11	my $var = $state->scope_var($self->var_name);
	12	unless ($var->is_bound) {
	13	die "Can't materialize unbound ".$self->var_name;
	14	}
	15	$state->resolve_value($var);
71217e42	16	$state->then($self->next);
	17	}
	18
	19	1;