use
warnings;
use
strict;
BEGIN { use_ok
"Scope::Escape"
,
qw(
current_escape_function current_escape_continuation
)
; }
BEGIN { Scope::Escape::_set_sanity_checking(1); }
eval
{
¤t_escape_function
(); };
like $@,
qr/\Acurrent_escape_function called as a function/
;
eval
{
¤t_escape_continuation
(); };
like $@,
qr/\Acurrent_escape_continuation called as a function/
;
1;