Lines Matching refs:maxlen

9   my($pkg,$maxlen,$silent) = @_;
10   $maxlen ||= 31;
13   $maxlen = 2048 if $Config{'useshortenedsymbols'};
15   my($obj) = { '__M@xLen' => $maxlen, '__S!lent' => $silent };
21   my($self,$name,$maxlen,$silent) = @_;
23   unless (defined $maxlen) {
24     if (ref $self) { $maxlen ||= $self->{'__M@xLen'}; }
25     $maxlen ||= 31;
27   $maxlen = 2048 if $Config{'useshortenedsymbols'};
33   return $name if (length $name <= $maxlen);
38   if (length $trimmed > $maxlen) {
41     if (length $trimmed > $maxlen) {
51         if (length $squeezed > $maxlen) {
61         if (length "$xs$squeezed" > $maxlen) {
67       if (length $squeezed <= $maxlen) { $trimmed = $squeezed; }
69         my $frac = int((length $trimmed - $maxlen) / length $trimmed + 0.5);
81   my($self,$sym,$maxlen,$silent) = @_;
86   $maxlen ||= $self->{'__M@xLen'} || 31;
88   $trimmed = $self->trimsym($sym,$maxlen,1);
91     $trimmed = $self->trimsym($sym,$maxlen-3,$silent);