Lines Matching refs:param
78 my ($order,@param) = @_;
79 my ($result, $leftover) = _rearrange_params( $order, @param );
86 my ($order,@param) = @_;
88 my ($result,$leftover) = _rearrange_params( $order, @param );
95 my($order,@param) = @_;
96 return [] unless @param;
98 if (ref($param[0]) eq 'HASH') {
99 @param = %{$param[0]};
101 return \@param
102 unless (defined($param[0]) && substr($param[0],0,1) eq '-');
115 while (@param) {
116 my $key = lc(shift(@param));
119 $result[$pos{$key}] = shift(@param);
121 $leftover{$key} = shift(@param);