Text::Convert::ToImage
use Text::Convert::ToImage; my $tti = Text::Convert::ToImage->new(); my $length = length($email); if ($length > 150) { $email = "Your text length of $length is too large:"; } my $config = { TEXT => $email ? $email : "y\@hn.org", POINTSIZE => $point_size ? $point_size : 14, LEVEL => $level ? $level : 0, FONT => $font, XSKEW => $xskew, YSKEW => $yskew, }; $tti->calculate($config); print "Content-type: image/png\n\n"; binmode STDOUT; $tti->Write('png:-');
This was knocked up a long time ago and someone asked me if the source was available so I decided to put it on CPAN. There is very little documentation with it.
There are also very few tests. If more than me and the person who asked for the module use it then I will write some tests for it.
At the moment I have been using it top obfuscate emails and not much else. A demo can be found at http://www.hjackson.org/cgi-bin/tools/email.pl
There are some undocumented features to this module and they are this way because I have not tested to see if they work yet.
Image::Magick
Harry Jackson
Copyright (C) 2005 by Harry Jackson
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.3 or, at your option, any later version of Perl 5 you may have available.
To install Text::Convert::ToImage, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Text::Convert::ToImage
CPAN shell
perl -MCPAN -e shell install Text::Convert::ToImage
For more information on module installation, please visit the detailed CPAN module installation guide.