Lines Matching defs:params
158 sub params {
163 my $params = {};
164 $params->{''} = 1 if $what->{''};
165 $params->{IV} = 1 if $what->{IV} || $what->{UV} || $what->{PVN};
166 $params->{NV} = 1 if $what->{NV};
167 $params->{PV} = 1 if $what->{PV} || $what->{PVN};
168 $params->{SV} = 1 if $what->{SV};
169 return $params;
186 my ($self, $params) = @_;
188 $body .= ", int utf8" if $params->{''};
189 $body .= ", IV *iv_return" if $params->{IV};
190 $body .= ", NV *nv_return" if $params->{NV};
191 $body .= ", const char **pv_return" if $params->{PV};
192 $body .= ", SV **sv_return" if $params->{SV};
197 my ($self, $params) = @_;
199 $body .= ", utf8" if $params->{''};
200 $body .= ", iv_return" if $params->{IV};
201 $body .= ", nv_return" if $params->{NV};
202 $body .= ", pv_return" if $params->{PV};
203 $body .= ", sv_return" if $params->{SV};