Lines Matching refs:REF
238 =item dump_data REF, OPTS
240 Dump the data from REF into a string that can be evaluated into the same
250 Include the outer delimiter of the REF type in the resulting string if C<1>,
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";
318 if (ref($product) eq "CODE") {