NAME
Text::Wrap::Smart - Wrap text into chunks of similar length
SYNOPSIS
use Text::Wrap::Smart ':all';
# or
use Text::Wrap::Smart qw(exact_wrap fuzzy_wrap);
@chunks = exact_wrap($text, $wrap_at);
@chunks = fuzzy_wrap($text, $wrap_at);DESCRIPTION
Text::Wrap::Smart is the pure perl companion of Text::Wrap::Smart::XS.
FUNCTIONS
exact_wrap
@chunks = exact_wrap($text [, $wrap_at ]);Wrap a text of varying length into exact chunks (except the last one, which consists of the remaining text).
Optionally a wrapping length may be specified; if no length is supplied, a default of 160 will be assumed.
fuzzy_wrap
@chunks = fuzzy_wrap($text [, $wrap_at ]);Wrap a text of varying length into chunks of fuzzy length (the boundary is normally calculated from the last whitespace preceding the wrapping length, and if no remaining whitespace could be found the end of text; if the wrapping length is smaller than the size of a word, greedy wrapping will be applied: all characters until the first whitespace encountered form a chunk).
Optionally a wrapping length may be specified; if no length is supplied, a default of 160 will be assumed.
EXPORT
Functions
exact_wrap(), fuzzy_wrap() are exportable.
Tags
:all - *()
BUGS & CAVEATS
The wrapping length will not be applied directly, but is used to calculate the average length to split text into chunks.
Text will be normalized prior to being processed, i.e. leading and trailing whitespace will be chopped off before each remaining whitespace is converted to a literal space.
SEE ALSO
Text::Wrap, Text::Wrap::Smart::XS
AUTHOR
Steven Schubiger <schubiger@cpan.org>
LICENSE
This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.