Lines Matching refs:v
41 local($v) ;
56 local($v) ;
118 my $end = "0..$#{$v} '" .
123 $short = $sp . "0..$#{$v} '" .
124 join("' '", @{$v}[0..$tArrayDepth]) . "'$shortmore";
133 local($v) = shift ;
137 local(%v,@v,$sp,$value,$key,@sortKeys,$more,$shortmore,$short) ;
144 if (ref $v) {
145 my $val = $v;
146 $val = &{'overload::StrVal'}($v)
168 } elsif (ref \$v eq 'GLOB') {
170 $address = "$v" . ""; # To avoid a bug with globs
178 if (ref $v eq 'Regexp') {
180 my $re = "$v";
188 my @sortKeys = sort keys(%$v) ;
197 if ($compactDump && !grep(ref $_, values %{$v})) {
206 push @keys, &stringify($_) . " => " . &stringify($v->{$_});
214 $value = $ {$v}{$key} ;
223 $tArrayDepth = $#{$v} ;
226 $tArrayDepth = $#{$v} < $arrayDepth-1 ? $#{$v} : $arrayDepth-1
229 $more = "....\n" if $tArrayDepth < $#{$v} ;
231 $shortmore = " ..." if $tArrayDepth < $#{$v} ;
233 if ($compactDump && !grep(ref $_, @{$v})) {
234 if ($#$v >= 0) {
235 $short = $sp . "0..$#{$v} " .
237 map {exists $v->[$_] ? stringify $v->[$_] : "empty"} ($[..$tArrayDepth)
251 if (exists $v->[$num]) {
252 if (defined $v->[$num]) {
253 DumpElem $v->[$num], $s, $m-1;
262 print "$sp empty array\n" unless @$v;
265 unless (defined $$v) {
270 DumpElem $$v, $s, $m-1;
272 print "$sp-> $$v\n";
273 return unless defined $$v;
274 unwrap($$v, $s+3, $m-1);
278 dumpsub (0, $v);
281 print "$sp-> ",&stringify($$v,1),"\n";
284 dumpglob($s, "{$$v}", $$v, 1, $m-1);
285 } elsif (defined ($fileno = fileno($v))) {
286 print( (' ' x ($s+3)) . "FileHandle({$$v}) => fileno($fileno)\n" );
288 } elsif (ref \$v eq 'GLOB') {
291 dumpglob($s, "{$v}", $v, 1, $m-1) if $globPrint;
292 } elsif (defined ($fileno = fileno(\$v))) {
293 print( (' ' x $s) . "FileHandle({$v}) => fileno($fileno)\n" );