The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
NAME
    Text::Wrap::Smart - Wrap text into chunks of (mostly) equal length

SYNOPSIS
     use Text::Wrap::Smart qw(wrap_smart);

     $text = "..."; # random length

     # example options
     %options = (
                 no_split => 1,
                 max_msg_size => 160,
                );

     @chunks = wrap_smart($text, \%options);

DESCRIPTION
    "Text::Wrap::Smart" was primarly developed to split an overly long SMS
    message into chunks of mostly equal size. The distribution's
    "wrap_smart()" may nevertheless be suitable for other purposes.

FUNCTIONS
  wrap_smart
     @chunks = wrap_smart($text [, { options } ]);

    "options" may contain the "no_split" option indicating that words shall
    not be broken up which indicates 'fuzzy wrapping` (if "no_split" is
    undefined, 'exact wrapping` will be applied). "max_msg_size" sets the
    character length boundary for each chunk emitted.

SEE ALSO
    Text::Wrap

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.

    See <http://www.perl.com/perl/misc/Artistic.html>