The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/pugs

use v6;
use Test;

# Another bug found by Limbic_Region

plan 2;

my $should_ret_empty_list1 = sub { return (); my $x = 5 };
my $should_ret_empty_list2 = sub { return () };

is (*$should_ret_empty_list1()).elems, 0, "our sub returned an empty list (1)", :todo<bug>;
is (*$should_ret_empty_list2()).elems, 0, "our sub returned an empty list (2)";