Lines Matching refs:args
954 my %args = @_;
955 %args = map { uc($_), $args{$_} } keys %args;
958 my $unlink = (exists $args{UNLINK} ? $args{UNLINK} : 1 );
959 delete $args{UNLINK};
963 my @template = ( exists $args{TEMPLATE} ? $args{TEMPLATE} : () );
964 delete $args{TEMPLATE};
967 delete $args{OPEN};
970 my ($fh, $path) = tempfile( @template, %args );
978 %{*$fh} = %args;
1115 # number of args
1287 # number of args
1730 # Read args
1790 # Read args
1876 # Read args