The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

#!/usr/bin/perl -I.

use Text::Wrap;

print "1..1\n";

$Text::Wrap::columns = 1;
eval { wrap('', '', ''); };

print $@ ? "not ok 1\n" : "ok 1\n";