File Coverage

blib/lib/Text/Wrap/NoStrip.pm

Criterion	Covered	Total	%
statement	31	33	93.9
branch	5	6	83.3
condition	3	3	100.0
subroutine	4	4	100.0
pod	1	1	100.0
total	44	47	93.6

package Text::Wrap::NoStrip;

use strict;
use warnings;

use Exporter qw(import);

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-02-18'; # DATE
our $DIST = 'Text-Wrap-NoStrip'; # DIST
our $VERSION = '0.003'; # VERSION

our @EXPORT_OK = qw(
                       wrap
               );

our $columns = 76;

sub wrap {
    my $initial_indent = shift;
    my $subsequent_indent = shift;

    my @res = ($initial_indent);
    my $width = length($initial_indent);
    my $si_len = length($subsequent_indent);

    for my $text (@_) {
        my @chunks = split /(\R+|\s+)/, $text;
        #use DD; dd \@chunks;
        for my $chunk (@chunks) {
            if ($chunk =~ /\R/) {
                $width = 0;
                push @res, $chunk;
            } else {
              L1:
                my $len = length $chunk;
                #print "D:got chunk=<$chunk> ($len), width=$width, scalar(\@res)=".scalar(@res)."\n";
                if ($width + $len > $columns) {

                    # should we chop long word?
                    if ($chunk !~ /\s/ && $len > $columns - $si_len) {
                        my $s = substr($chunk, 0, $columns - $width);
                        #print "D:wrapping <$s>\n";
                        substr($chunk, 0, $columns - $width) = "";
                        push @res, $s, "\n$subsequent_indent";
                        $width = $si_len;
                        goto L1;
                    } else {
                        push @res, "\n$subsequent_indent", $chunk;
                        $width = $len;
                    }
                } else {
                    #print "D:adding <$chunk>\n";
                    push @res, $chunk;
                    $width += $len;
                }
            }
            #print "D:width=$width\n";
        }
    }

    join("", @res);
}

1;
# ABSTRACT: Line wrapping without stripping the whitespace

__END__