projekt kivitendo

sub truncate {

  my ($self, $text, @slurp) = @_;

  my %params                = _hashify(@slurp);

  $params{at}             ||= 50;

  $params{at}               =  3 if 3 > $params{at};

  $params{at}              -= 3;

  return $text if length($text) < $params{at};

  return substr($text, 0, $params{at}) . '...';

}

=item C<truncate $text, %params>

Returns the C<$text> truncated after a certain number of

characters.

The number of characters to truncate at is determined by the parameter

C<at> which defaults to 50. If the text is longer than C<$params{at}>

then it will be truncated and postfixed with '...'. Otherwise it will

be returned unmodified.