Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse -
my @things = $q->param('t') or $q->param('things');
...

$q->param('things') unless my(@things) = $q->param('t');
my(@things) = $q->param('t') || $q->param('things');
  2. or download this
    my @things = $q->param('t') ? $q->param('t') : $q->param('things');