Eval::Quosure - Evaluate within a caller environment
version 0.001002
use Eval::Quosure; sub foo { my $a = 2; my $b = 3; return Eval::Quosure->new('bar($a, $b, $c)'); } sub bar { my ($a, $b, $c) = @_; return $a * $b * $c; } my $q = foo(); my $a = 0; # This is not used when evaluating the quosure. print $q->eval( { '$c' => 7 } ), "\n";
This class acts similar to R's "quosure". A "quosure" is an object that combines an expression and an environment in which the expression can be evaluated.
Note that as this is string eval so is not secure. USE IT WITH CAUTION!
new(Str $expr, $level=0)
$expr is a string. $level is used like the argument of caller and PadWalker's peek_my, 0 is for the scope that creates the quosure object, 1 is for the upper scope of the scope that creates the quosure, and so on.
$expr
$level
caller
peek_my
0
1
Get the expression stored in the object.
Get the captured variables stored in the object. Returns a hashref with keys being variables names including sigil and values being references to the variables.
Get the caller info stored in the object. Returns an arrayref of same structure as what the caller() returns.
caller()
eval(HashRef $additional_captures={})
Evaluate the quosure's expression in its own environment, with captured variables from what's obtained when the quosure's created plus specified by $additional_captures, which is a hashref with keys be the full name of the variable including sigil.
$additional_captures
R's "rlang" package which provides quosure.
Eval::Closure, Binding
Stephan Loyd <sloyd@cpan.org>
This software is copyright (c) 2019-2023 by Stephan Loyd.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install Eval::Quosure, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Eval::Quosure
CPAN shell
perl -MCPAN -e shell install Eval::Quosure
For more information on module installation, please visit the detailed CPAN module installation guide.