Text::Quote 0.3

Text::Quote contains quotes strings as required for perl to eval them back correctly.

SYNOPSIS

use Text::Quote;

my @quotes=map{$quoter->quote($_,indent=>6,col_width=>60)}(
"The time has come"
the walrus said,
"to speak of many things..."
," 123456abtn13fr16172021222324252627303132e34353637",
("6abtn13fr32e34" x 5),2/3,10,00);
for my $i (1..@quotes) {
print "$var$i=".$quotes[$i-1].";n";
}
Would produce:
$var1=qq"The time has come"ntthetwalrus said,nt"to speak of man.
qqy things...";
$var2=" 123456abtn13fr16172021222324252627".
"303132e34353637";
$var3=("6abtn13fr32e34" x 5);
$var4=0.666666666666667;
$var5=10;
$var6=00;