Lines Matching refs:args
363 my $args = $_[0];
364 if (ref($args) ne 'HASH')
366 $args = { @_ };
375 $set_args->{$key} = $args->{$key} if exists $args->{$key};
376 delete $args->{$key};
378 if (keys %$args > 0)
382 join("','",keys %$args),"' passed to $class\->config()");
826 my ($self,$a,$p,$r,@args) = @_;
830 # @args all 'other' arguments (0 for unary, 1 for binary ops)
841 foreach ($self,@args)
850 foreach ($self,@args)
886 my ($self,$a,$p,$r,@args) = @_;
890 # @args all 'other' arguments (0 for unary, 1 for binary ops)
901 foreach ($self,@args)
910 foreach ($self,@args)
2211 # the first argument is number of args objectify() should look at it will