use Text::Reform;
my $TABLE = << '__FORMAT__';
<<<<<<<<<<<< <<<<<<<<<<<<<<<<< [[[[[[[[[[[[[[[[[[[[[[[[[
__FORMAT__
sub continue_line {
my ($text, $reqlen, $fldlen) = @_;
if ($reqlen == $fldlen) { $text =~ m/\A(\s*\S*)(.*)/s }
else { (" "x$reqlen . "\\", $text) }
}
print form
{ break => \&continue_line },
$TABLE, $class, $name, $args;
An *extremely* useful module!
In reply to Re: Format Question
by comand
in thread Format Question
by comand
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |