NAME

Text::Overflow -

SYNOPSIS

use Text::Overflow qw(ellipsis clip);

clip('1234567890', 6);
#=> '123456';

clip('１２３４５６７８９０', 6);
#=> '１２３';

ellipsis('1234567890', 6);
#=> '12345…';

ellipsis('１２３４５６７８９０', 6);
#=> '１２…';

DESCRIPTION

Text::Overflow is for clipping text for a width

Text::Overflow::vlength($string)

Return visual width of $string.

Text::Overflow::vtrim($string, $length, $delim)

Trim $string to visual width specified $length including $delim

Text::Overflow::clip($string, $length)

Clip $string. This is same as vtrim($string, $length, "")

Text::Overflow::ellipsis($string, $length);

Clip and append ellipsis character. This is same as vtrim($string, $length, "…")

AUTHOR

cho45 <cho45@lowreal.net>

SEE ALSO

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.