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

package DX::Op::Exists;

use DX::Op::SetScope;
use Moo;

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

with 'DX::Role::Op';

sub run {
  my ($self, $state) = @_;
  my $ret_op = DX::Op::SetScope->new(
    scope => $state->scope,
    next => $self->next
  );
  $state->assign_vars(map +($_ => {}), @{$self->vars})
        ->push_return_then($ret_op, $self->body);
}

1;
Commit	Line	Data
deec7cc4	1	package DX::Op::Exists;
	2
	3	use DX::Op::SetScope;
	4	use Moo;
	5
	6	has vars => (is => 'ro', required => 1);
	7	has body => (is => 'ro', required => 1);
	8
	9	with 'DX::Role::Op';
	10
	11	sub run {
	12	my ($self, $state) = @_;
	13	my $ret_op = DX::Op::SetScope->new(
	14	scope => $state->scope,
	15	next => $self->next
	16	);
	17	$state->assign_vars(map +($_ => {}), @{$self->vars})
	18	->push_return_then($ret_op, $self->body);
	19	}
	20
	21	1;