In module Test§
See primary documentation in context for sub eval-lives-ok.
multi eval-lives-ok(Str $code, $reason = '')
Marks a test as passed if the given $string
does not throw an exception when eval
ed as code.
The function accepts an optional description of the test.
eval-lives-ok q[my $daenerys-burns = False; die "Oops, Khaleesi now ashes" if $daenerys-burns], "Dany is blood of the dragon";