use Contextual::Return;
use Test::More 'no_plan';
sub foo {
return
SCALAR { 86 }
VALUE { 42, 99 }
}
is_deeply \@{foo()}, [42,99] => 'ARRAYREF from NONVOID';
is ${foo()}+0, 86 => 'NUMERIC from SCALAR';
is "${foo()}", '86' => 'STRING from SCALAR';
is "@{foo()}", '42 99' => 'STRING from NONVOID';