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; |