Lines Matching refs:ref

244     my $ref = shift;
269      if (ref($ref) eq "ARRAY") {
270          if (scalar @$ref == 0) {
279              @items = @$ref;
281      } elsif (ref($ref) eq "HASH") {
282          if (scalar keys %$ref == 0) {
286                  quotify1($_) . " => " . dump_data($ref->{$_}, %subopts);
291              @items = sort keys %$ref;
293      } elsif (ref($ref) eq "SCALAR") {
294          $product = defined $$ref ? quotify1 $$ref : "undef";
296          $product = defined $ref ? quotify1 $ref : "undef";