The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Base tests => 1;

is foo(), 'scalar_context', 'testing force scalar context';

sub foo {
    wantarray ? 'list_context' : 'scalar_context';
}