Select Code to Download

my @things = $q->param('t') or $q->param('things');

sub foo {
    wantarray ? () : 1;
...
warn @thingies; # Expected (3,4) here, got ()
my @thingies = ( foo() ) or ( bar() );
warn @thingies; # Expected (3,4) here too, got ()