NAME Eval::Util - Utilities related to eval() VERSION This document describes version 0.002 of Eval::Util (from Perl distribution Eval-Util), released on 2018-03-12. SYNOPSIS use Eval::Util qw( inside_eval inside_block_eval inside_string_eval eval_level ); # will not print 'foo', but print 'bar' and 'baz' say "foo" if inside_eval(); eval { say "bar" if inside_eval() }; eval q(say "baz" if inside_eval()); # will not print 'foo' or 'baz' but print 'bar' say "foo" if inside_block_eval(); eval { say "bar" if inside_block_eval() }; eval q(say "baz" if inside_block_eval()); # will not print 'foo' or 'bar' but print 'baz' say "foo" if inside_string_eval(); eval { say "bar" if inside_string_eval() }; eval q(say "baz" if inside_string_eval()); say eval_level(); # 0 eval { say eval_level() }; # 1 eval { eval { say eval_level() } }; # 2 DESCRIPTION FUNCTIONS None exported by default, but they are exportable. inside_eval Usage: inside_eval() => bool Will check if running code is inside eval() (either string eval or block eval). This is done via examining the stack trace and checking for frame with subroutine named "(eval)". A faster and simpler alternative is to check if the Perl special variable $^S is true. Consult perlvar for more details about this variable. inside_block_eval Usage: inside_block_eval() => bool Will check if running code is inside block eval() ("eval { ... }"). Will return false if code is only inside string eval. This is done via examining the stack trace and checking for frame with subroutine named "(eval)" that has undefined eval text. inside_string_eval Usage: inside_string_eval() => bool Will check if running code is inside string eval() ("eval " ... ""). Will return false if code is only inside block eval. This is done via examining the stack trace and checking for frame with subroutine named "(eval)" that has defined eval text. eval_level Usage: eval_level() => int Return 0 if running code is not inside any eval, 1 if inside one eval, 2 if inside two evals, and so on. HOMEPAGE Please visit the project's homepage at . SOURCE Source repository is at . BUGS Please report any bugs or feature requests on the bugtracker website When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature. SEE ALSO "caller" in perlfunc $^S in perlvar AUTHOR perlancar COPYRIGHT AND LICENSE This software is copyright (c) 2018 by perlancar@cpan.org. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.