diff --git a/lib/Text/Wrap/Wrap.rakumod b/lib/Text/Wrap/Wrap.rakumod index f264a47..9ef4d40 100644 --- a/lib/Text/Wrap/Wrap.rakumod +++ b/lib/Text/Wrap/Wrap.rakumod @@ -11,7 +11,10 @@ sub wrap-paragraph(Str $_, :$max-len, :$prefix) { my (&len, $paragraph-prefix) = (&display-length, $prefix || ~$); my $line-len = len $prefix; - sub wrap-words-to-lines(@lines, $text ($word, $ws='')) { + multi sub wrap-words-to-lines(@lines) { + wrap-words-to-lines(@lines, ("",)) + } + multi sub wrap-words-to-lines(@lines, $text ($word, $ws='')) { my $prefix = ~($paragraph-prefix ~~ /\n*<(\V*)>/); my @next-lines = gather if $line-len+len($word) ≤ $max-len {