my $foo;
sub context :lvalue { $foo = wantarray ? 'list' : 'scalar' } 

context() x= 1;
print $foo;

__END__
scalar