Lines Matching refs:hash
39 and getopts() will also accept a hash reference as an optional second argument.
88 my ($argumentative, $hash) = @_;
108 if (ref $hash) {
109 $$hash{$first} = $rest;
117 if (ref $hash) {
118 $$hash{$first} = 1;
132 unless (ref $hash) {
219 my ($argumentative, $hash) = @_;
240 if (ref $hash) {
241 $$hash{$first} = $rest;
249 if (ref $hash) {
250 $$hash{$first} = 1;
287 unless (ref $hash) {