projects
/
scpubgit/DKit.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
surprise! Object::Remote!
[scpubgit/DKit.git]
/
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;