view release on metacpan or  search on metacpan

t/text_wrap.t  view on Meta::CPAN

    my $r = ""
    my $tail = pop(@t)
    my $t = expand(join("", (map { /\s+\z/ ? ( $_ ) : ($_, ' ') } @t), $tail))
    my $lead = $ip
    my $ll = $columns - length(expand($ip)) - 1
    $ll = 0 if $ll < 0
    my $nll = $columns - length(expand($xp)) - 1
    my $nl = ""
    my $remainder = ""

    use re 'taint'

    pos($t) = 0
    while $t !~ /\G\s*\Z/gc:
        if $t =~ /\G([^\n]{0,$ll})($break|\z)/xmgc:
            $r .= $unexpand \
                ? unexpand($nl . $lead . $1) \
                : $nl . $lead . $1
            $remainder = $2
        elsif $huge eq 'wrap' && $t =~ /\G([^\n]{$ll})/gc:
            $r .= $unexpand \