Lines Matching refs:off
343 my ($off,$key, $val, $all, $m) = @_;
347 print( (' ' x $off) . "\$", &unctrl($key), " = " );
348 DumpElem $entry, 3+$off, $m;
351 print( (' ' x $off) . "\@$key = (\n" );
352 unwrap(\@entry,3+$off,$m) ;
353 print( (' ' x $off) . ")\n" );
359 print( (' ' x $off) . "\%$key = (\n" );
360 unwrap(\%entry,3+$off,$m) ;
361 print( (' ' x $off) . ")\n" );
364 print( (' ' x $off) . "FileHandle($key) => fileno($fileno)\n" );
368 dumpsub($off, $key);
378 my $off = 0; # It reads better this way
381 print( (' ' x $off) . "$key = (\n" );
382 unwrap($val,3+$off,$m) ;
383 print( (' ' x $off) . ")\n" );
386 print( (' ' x $off) . "$key = (\n" );
387 unwrap($val,3+$off,$m) ;
388 print( (' ' x $off) . ")\n" );
391 print( (' ' x $off) . "FileHandle($key) => fileno($fileno)\n" );
395 # dumpsub($off, $$val);
398 print( (' ' x $off) . &unctrl($key), " = " );
399 DumpElem $$val, 3+$off, $m;
413 my ($off,$sub) = @_;
423 print( (' ' x $off) . "&$s in $place\n" );