projekt kivitendo

our @EXPORT_OK = qw(_hashify camelify snakify trim);

sub trim {

  my $value = shift;

  $value    =~ s{^ \p{WSpace}+ | \p{WSpace}+ $}{}xg if defined($value);

  return $value;

}

=item C<trim $string>

Removes all leading and trailing whitespaces from C<$string> and

returns it. Whitespaces within the string won't be changed.

This function considers everything matching the Unicode character

property "Whitespace" (C<WSpace>) to be a whitespace.