X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FOp%2FExists.pm;fp=lib%2FDX%2FOp%2FExists.pm;h=0000000000000000000000000000000000000000;hb=1ca2da5edfd6c5719f486c88a5997ec9cd9e5b88;hp=a7758ddfd9437f34e47671ea5cef42e4545f9dbc;hpb=7d384ecaab6d7440b19924dd45040a01345b4392;p=scpubgit%2FDKit.git diff --git a/lib/DX/Op/Exists.pm b/lib/DX/Op/Exists.pm deleted file mode 100644 index a7758dd..0000000 --- a/lib/DX/Op/Exists.pm +++ /dev/null @@ -1,21 +0,0 @@ -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;