$Order = join '|', grep defined && /\S/, (ref $Order)? @{$Order}: $Order;
$OrderBy = join '|', grep defined && /\S/, (ref $OrderBy)? @{$OrderBy}: $OrderBy;
$Order = join '|', grep defined && /\S/, (ref $Order)? @{$Order}: $Order;
$OrderBy = join '|', grep defined && /\S/, (ref $OrderBy)? @{$OrderBy}: $OrderBy;