Lines Matching refs:ref
263 my $ref = shift;
288 if (ref($ref) eq "ARRAY") {
289 if (scalar @$ref == 0) {
298 @items = @$ref;
300 } elsif (ref($ref) eq "HASH") {
301 if (scalar keys %$ref == 0) {
305 quotify1($_) . " => " . dump_data($ref->{$_}, %subopts);
310 @items = sort keys %$ref;
312 } elsif (ref($ref) eq "SCALAR") {
313 $product = defined $$ref ? quotify1 $$ref : "undef";
315 $product = defined $ref ? quotify1 $ref : "undef";
