NAME
Image::Epeg - Thumbnail jpegs at lightning speed
SYNOPSIS
use Image::Epeg qw(:constants);
my $epg = new Image::Epeg( "test.jpg" );
$epg->resize( 150, 150, MAINTAIN_ASPECT_RATIO );
$epg->write_file( "test_resized.jpg" );DESCRIPTION
Perl wrapper to the ultra-fast jpeg manipulation library "Epeg". This library can be used to thumbnail (resize down) jpegs, set comments and quality. NOTE: The resize() method *must* be called with valid arguments or get_data() and write_file() will fail.
Methods
new( [filename|data ref] )
get_height()
get_width()
set_quality( [0-100] )
set_comment( [comment] )
get_comment()
resize( [width], [height], [Aspect Ratio Mode] )
The resize() method can only be used to downsize images. If neither the width or height specified is less than the source image it will return undef.
write_file( [filename] )
get_data()
AUTHOR
Michael Curtis <mike@beatbot.com>
Tokuhiro Matsuno
THANKS TO
chiba
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.