Searched refs:arrayUsage (Results 1 - 3 of 3) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Ddumpvar.pl473 sub arrayUsage { # array ref, name subroutine
487 my $keys = arrayUsage \@keys;
488 my $values = arrayUsage \@values;
501 $total += arrayUsage \@name, $_[1] if @name;
H A DDumpvalue.pm434 $size = $self->arrayUsage($_[0]);
445 sub arrayUsage { # array ref, name subroutine
460 my $keys = $self->arrayUsage(\@keys);
461 my $values = $self->arrayUsage(\@values);
475 $total += $self->arrayUsage(\@stab, $_[1]) if @stab;
H A DDumpvalue.t237 is( $d->arrayUsage( [1, 2, 3], 'a' ), 3, 'arrayUsage reports correct lengths' );
238 is( $out->read, "\@a = 3 items (data: 3 bytes)\n", 'arrayUsage message okay' );

Completed in 139 milliseconds