1#!/usr/bin/perl -I. 2 3use Text::Wrap qw(wrap $columns $huge $break); 4 5print "1..1\n"; 6 7$huge='overflow'; 8$Text::Wrap::columns=9; 9$break=".(?<=[,.])"; 10eval { 11$a=$a=wrap('','', 12"mmmm,n,ooo,ppp.qqqq.rrrrr.adsljasdf\nlasjdflajsdflajsdfljasdfl\nlasjdflasjdflasf,sssssssssssss,ttttttttt,uu,vvv wwwwwwwww####\n"); 13}; 14 15if ($@) { 16 my $e = $@; 17 $e =~ s/^/# /gm; 18 print $e; 19} 20print $@ ? "not ok 1\n" : "ok 1\n"; 21 22 23