uhg.pl

sub foo(&) {
    my $code = shift;
    my @got = $code->();
    die "codeblock returned stuff, it should not" if @got;
}

sub blah {
    return 1 if defined wantarray;
    return;
}

foo { blah() };