Improvement for Text::ANSI::Fold module

[kaz-utashiro]

This is interesting.

perl-App-TextWrapUtils/lib/App/TextWrapUtils.pm

Lines 102 to 105 in ea23895

	if ($backend eq 'Text::ANSI::Fold') {
	require Text::ANSI::Fold;
	$para_text = join("", map {"$_\n"} Text::ANSI::Fold->new(width=>$width)->text($para_text)->chops);
	$para_text =~ s/\R\z//;

As for Text::ANSI::Fold module, next program produces nicer output. When line-break mode is enabled, two extra columns are used for run-in margin. So produces maximum $width + 2 width text.

            require Text::ANSI::Fold;
            Text::ANSI::Fold->import(qw(:constants));
            state $fold = Text::ANSI::Fold->new(width => $width,
                                                boundary => 'word',
                                                linebreak => &LINEBREAK_ALL);
            $para_text = join("\n", $fold->text($para_text)->chops);

[perlancar]

Applied, thanks.