The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More 0.89;

use List::Gather;

is sub {
    () = gather {
        return 42;
    };

    return 23;
}->(), 42;

done_testing;