my $hinthash = (caller($level))[10];
my $in_effect = $hinthash->{'Return::Type::Lexical/in_effect'};
return !defined $in_effect || $in_effect;
my $hinthash = (caller($level))[10];
my $in_effect = $hinthash->{'Return::Type::Lexical/in_effect'};
return !defined $in_effect || $in_effect;