[scpubgit/DKit.git] / lib / DX / VarRef.pm

package DX::VarRef;

use Moo;

with 'DX::Role::Ref';

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

has derive => (is => 'ro', default => sub { $_[0] });

sub resolve {
  my ($self, $state) = @_;
  $state->resolve_value($state->by_id->{$self->var_id})->${\$self->derive};
}

1;
Commit	Line	Data
165d0b2c	1	package DX::VarRef;
	2
	3	use Moo;
	4
	5	with 'DX::Role::Ref';
	6
	7	has var_id => (is => 'ro', required => 1);
	8
	9	has derive => (is => 'ro', default => sub { $_[0] });
	10
	11	sub resolve {
	12	my ($self, $state) = @_;
	13	$state->resolve_value($state->by_id->{$self->var_id})->${\$self->derive};
	14	}
	15
	16	1;