lib/DX/VarRef.pm

   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;