##
$r = (@r, @r) ;
$v = (%r, %r) ;
##
##
use strict;
use warnings;
sub print_context {
my $c = ( wantarray()
? 'List'
: ( defined(wantarray())
? 'Scalar'
: 'Void'
)
);
print("$c\n");
}
my $r1 = ( print_context(), print_context() );
# Void
# Scalar
##
##
my $r2 = sub { ( print_context(), print_context() ) }->();
# Scalar
# Scalar
##
##
$r = () = 1..27 ;